#!/usr/bin/perl
$imode = "http://www.indierom.com/dengei/mobile/i/"; # i-modeのとき飛ぶURL
$jsky = "http://www.indierom.com/dengei/mobile/sb/"; # J-Sky(パケット/ステーション非対応機)のとき飛ぶURL
$jsky2 = "http://www.indierom.com/dengei/mobile/sb/"; # J-Sky( 〃 対応機)のとき飛ぶURL
$ezweb = "http://www.indierom.com/dengei/mobile/ez/"; # ezweb(3000/5000シリーズ以下)のとき飛ぶURL
$ezweb2= "http://www.indierom.com/dengei/mobile/ez/"; # ezweb( 〃 以上)のとき飛ぶURL
$doti = "http://www.indierom.com/dengei/mobile/i/"; # i-modeのとき飛ぶURL
$etc = "http://www.indierom.com/dengei/home.html"; # その他のとき飛ぶURL
$iphone= "http://www.indierom.com/dengei/homemain.html"; # iphoneのとき飛ぶURL
$Loc = 0; # Locationが使えないサーバは1にする
$Title = "サイト名"; # 上記1の場合サイト名を入れる
#---[設定ここまで]----------------------+
$URL="";
$ag=$ENV{'HTTP_USER_AGENT'};
# ユーザエージェントに DoCoMo が入っていたらi-mode
if($ag=~ /DoCoMo/){$URL=$imode;}
# Vodafonee が入っていたらvodafone
elsif($ag=~ /Vodafone/){$URL=$jsky;}
# SoftBank が入っていたらvodafone
elsif($ag=~ /SoftBank/){$URL=$jsky;}
# J-PHONE/2 が入っていたらJ-Sky
elsif($ag=~ /J-PHONE\/2/){$URL=$jsky;}
# J-PHONE/3以上 が入っていたらJ-Sky2
elsif($ag=~ /J-PHONE\/[3-9]/){$URL=$jsky2;}
# iPhoneが入っていたらiPhone
elsif($ag=~ /iPhone/){$URL=$iphone;}
# ASTEL が入っていたらドットi
elsif($ag=~ /ASTEL/){$URL=$doti;}
# UP.Browser が先頭だったらezweb
elsif(index($ag,"UP.Browser")==0){$URL=$ezweb;}
# UP.Browser が先頭でなかったらezweb2
elsif(index($ag,"UP.Browser") > 0){$URL=$ezweb2;}
# それ以外ならetc
if($URL eq ""){$URL=$etc;}
# Locationが使えなければ
if($Loc){
# eawebならHDMLを出力
if($URL eq "$ezweb"){
print "Content-type: text/x-hdml; charset=Shift_JIS\n\n";
print <<"_HDML_";
$Title
ENTER
_HDML_
# それ以外ならHTMLを出力
}else{
print"Content-type: text/html\n\n";
print <<"_HTML_";
enter
$Title
ENTER
_HTML_
}
# Locationが使えれば
}else{
if ($ENV{PERLXS} eq "PerlIS") { # IISサーバ(PerlIS)対応
print "HTTP/1.0 302 Temporary Redirection\r\n";
print "Content-type: text/html\n";
}
print "Location: $URL\n\n";
}
exit;