#!/usr/bin/perl
#上記はプロバイダに合わせる
######## パーミッションは755です ############
######## 以下、初期設定です。 ###############
#プロバイダ情報も振り分けの対象に入れる。対象に入れるとシミュレータなどの
#パソコンソフトで携帯用ページにアクセスしにくくなります。(アクセスする
#裏ワザはあります)
# yesは対象に入れる、noは入れない。
$host_ck = "no";
#シミュレータ等でアクセスした時に表示するエラーメッセージです。
#パソコン用のページに移動させる事も出来ます。
# pcはパソコン用のページに移動する、msgは移動させずにメッセージを表示する。
$go_pc = "msg";
#移動させないときのメッセージです。
#EZwebも共通しているので
以外のタグや絵文字は使えません。
$ng_msg = "当サイトはシミュレータを使ってのアクセスは出来ません。恐れ入りますが携帯電話を使ってアクセスして下さい。";
#そのメッセージを表示するページのタイトルです。ボーダフォン iモードのみです。
$title = "アクセス出来ません";
#移動ページ。iモードで使います。http://で指定。
$url_i = "http://www.t-kikous.com/i/index.html";
#移動ページ。ボーダフォンライブで使います。http://で指定。
$url_j = "http://www.t-kikous.com/i/index.html";
#移動ページ。パソコンで使います。http://で指定。
$url_pc = "http://www.t-kikous.com/index.html";
#移動ページ。EZwebで使います。http://で指定。
$url_e = "http://www.t-kikous.com/i/index.html";
#移動ページ。T-naviで使います。http://で指定。
$url_t = "http://www.t-kikous.com/i/index.html";
######## 設定はここまで ########
#プロバイダを調査
$host = $ENV{'REMOTE_HOST'};
if ($host =~ /\.(ezweb|ido)\.ne\.jp$/ ) { $pro = "ez";}
if ($host =~ /\.(jp-k|jp-t|jp-c|jp-q|jp-n|jp-s|jp-r|jp-h|jp-d)\.ne\.jp$/ ) { $pro = "jsky"; }
if ($host =~ /\.docomo\.ne\.jp$/ ) { $pro = "imode"; }
#アクセスしてくる種類を判断
$Imode=$ENV{'HTTP_USER_AGENT'};
if($Imode =~ /DoCoMo/){ $kei = "imode";}
$ez=$ENV{'HTTP_USER_AGENT'};
if($ez =~ /UP\.Browser/){$kei = "ez";}
$Jskyw=$ENV{'HTTP_X_JPHONE_MSNAME'};
if($Jskyw ne ""){$kei = "jsky";}
$tnavi=$ENV{'HTTP_USER_AGENT'};
if($tnavi =~ /InettvBrowser/){$kei = "tnavi";}
if ( $host_ck eq "yes" ) {
#ボーダフォンライブでアクセスしている時
if( $kei eq "jsky" && $pro eq "jsky" ){&j_hp;}
#iモードでアクセスしている時
elsif( $kei eq "imode" && $pro eq "imode" ){&i_hp;}
#ezwebでアクセスしている時
elsif( $kei eq "ez" && $pro eq "ez" ){&ez_hp;}
#T-naviでアクセスしている時
elsif( $kei eq "tnavi" ){&tnavi_hp;}
else {
#警告メッセージ
if ($go_pc eq "msg" ) {
if( $kei eq "jsky" || $kei eq "imode" ) { &msg_ji; }
elsif ( $kei eq "ez" ) { &msg_ez; }
#パソコンのページへ
else { &pc_hp; }
}
else {&pc_hp;}
}
} else {
if( $kei eq "jsky" ){&j_hp;}
elsif( $kei eq "imode" ){&i_hp;}
elsif( $kei eq "ez" ){&ez_hp;}
elsif( $kei eq "tnavi" ){&tnavi_hp;}
else {&pc_hp;}
}
#T-navi用のページ
sub tnavi_hp {
print "Location: $url_t\n\n";
}
#ボーダフォンライブ用のページ
sub j_hp {
print "Location: $url_j\n\n";
}
#パソコン用のページ
sub pc_hp {
print "Location: $url_pc\n\n";
}
#i-mode用のページ
sub i_hp {
print "Location: $url_i\n\n";
}
#EZweb用のページ
sub ez_hp {
print <<"EZ";
Content-Type: text/x-hdml;charset=Shift_JIS
EZ
}
#iモード、ボーダフォンライブ用シミュレータ・メッセージ
sub msg_ji {
print <<"JImsg";
Content-type: text/html
$title
$ng_msg
JImsg
}
#EZweb用シミュレータ・メッセージ
sub msg_ez {
print <<"EZmsg";
Content-Type: text/x-hdml;charset=Shift_JIS
$ng_msg
EZmsg
}