#!/usr/bin/perl

#			携帯振り分けＣＧＩ"RABBIT"とトップページサンプル Ver.2.00
#							RABBIT200.lzh
#				MOBILE-NVENTOR.COM  info@mobile-inventor.com
#================================================================
#このスクリプトはフリーソフトです。このスクリプトを使用したいかな
#る損害に対しても作者は一切の責任を負いません。
#===========================使用法===============================
# 次のようにして呼び出してください。
#		http://・・・・・/index.cgi
#		http://・・・・・/
#
#================================================================
# ▼設定▼ジャンプ先ＵＲＬ(フルパス)の設定
#================================================================
$imode ='http://www.prana1.com/i/index_i.htm';		#i-mode用
$vodafone ='http://www.prana1.com/i/index_j.html';	#vodafone(j-sky)用
$ezweb ='http://www.prana1.com/i/index_e.htm';		#AU(EZweb)用
$foma ='http://www.prana1.com/i/index_f.htm';			#FOMA用
$other ='http://www.prana1.com/main.html';		#それ以外のときのジャンプ先・・・i-modeと共通

#================================================================
# ▼設定終了▼
#================================================================

#================================================================
# 機種判別
#================================================================

if($ENV{'HTTP_USER_AGENT'} =~ /^(docomo\/1)/i){	# i-mode
	$browser   = "i";
	$carrier ="i-mode";

}elsif($ENV{'HTTP_USER_AGENT'} =~ /^(L-mode)/i){# L-mode
	$browser   = "i";
	$carrier ="i-mode";

}elsif($ENV{'HTTP_USER_AGENT'} =~ /^(ASTEL)/i){	# ASTEL
	$browser   = "i";
	$carrier ="ASTEL";

}elsif($ENV{'HTTP_USER_AGENT'} =~ /^j\-phone/i){# J-PHONE
	$browser   = "j";
	$carrier ="j-sky";

}elsif($ENV{'HTTP_USER_AGENT'} =~ /Vodafone/i){# J-PHONE
	$browser   = "j";
	$carrier ="j-sky";

}elsif($ENV{'HTTP_USER_AGENT'} =~ /^(docomo\/2)/i){# XHTML(foma)
	$browser   = "f";
	$carrier ="i-mode";

}elsif($ENV{'HTTP_USER_AGENT'} =~ /^(KDDI)/i){# XHTML(ezweb)
	$browser   = "x";
	$carrier ="ezweb";

}elsif($ENV{'HTTP_USER_AGENT'} =~ /^up\.browser/i){# HDML >>>XHTML
	$browser   = "x";
	$carrier ="ezweb";

}else{										# Other(PC)
	$browser   ="pc";
	$carrier ="other";

}

#================================================================
# 機種判別情報に基づいてジャンプ
#================================================================

if ( $browser eq 'i' ) {
	print "Location: $imode\n\n";
} elsif ( $browser eq "j" ) {
	print "Location: $vodafone\n\n";
} elsif ( $browser eq "f" ) {
	print "Location: $foma\n\n";
} elsif ( $browser eq "x" ) {
	print "Location: $ezweb\n\n";
} else {
	print "Location: $other\n\n";
}

exit;