#!/usr/local/bin/perl
#-------------------------------
# 携帯端末簡易振分CGI
# 『新携帯キャリア対応版』
# i-judge v1.00
# edit by Net Cruiser
# U R L :http://www.dot-s.jp/
# e-Mail:http://www.dot-s.jp/mail/
#-------------------------------
#-------------------------------
# オリジナルスクリプトCJ-Club
# Copyright(C) CJ-Club
# E-Mail:ryu＠cj-c.com
# W W W :http://www.cj-c.com/
#-------------------------------
#---[設置/使用方法]-------------
# 使用法:このCGIにリンクする
# パーミッション:755
#---[設定ここから]----------------------+
$imode = "http://www.---.com/i/"; # i-modeのとき飛ぶURL(相対パス可:以下同様)
$jsky = "http://www.---.com/j/"; # J-Sky(パケット/ステーション非対応機)のとき飛ぶURL
$jsky2 = "http://www.---.com/j2/"; # J-Sky( 〃 対応機)のとき飛ぶURL
$voda = "http://www.---.com/v/"; # Vodafoneのとき飛ぶURL
$soft = "http://www.---.com/s/"; # SoftBankのとき飛ぶURL
$ezweb = "http://www.---.com/ez/"; # ezweb(3000/5000シリーズ以下)のとき飛ぶURL
$ezweb2= "http://www.---.com/ez2/"; # ezweb( 〃 以上)のとき飛ぶURL
$doti = "http://www.---.com/di/"; # ドットiのとき飛ぶURL
$etc = "http://www.---.com/"; # その他のとき飛ぶURL
$Loc = 0; # Locationが使えないサーバは1にする
$Title = "サイト名"; # 上記1の場合サイト名を入れる
#---[設定ここまで]----------------------+
$URL="";
$ag=$ENV{'HTTP_USER_AGENT'};
# ユーザエージェントに DoCoMo が入っていたらi-mode
if($ag=~ /DoCoMo/){$URL=$imode;}
# 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;}
# Vodafone が入っていたらvoda
elsif($ag=~ /Vodafone/){$URL=$voda;}
# SoftBank が入っていたらsoft
elsif($ag=~ /SoftBank/){$URL=$soft;}
# 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;