#!/usr/local/bin/perl
# ↑ ご利用のプロバイダー指定のパールへのパスを記述してください。
# ↓index.htmlまでの絶対パスを記してください。
#例：$ntt = 'http://www.accitano.com/i/index.html';
$movil = ''; #携帯サイト用への絶対パス
$ezweb = ''; #旧EZweb用への絶対パス
$web = './index.html'; #一般Webサイト用への相対パス。ダメなら絶対パス。
# ------------------------------------------------------------------------------
$agent = $ENV{'HTTP_USER_AGENT'};
print "Location: ";
if ($agent =~ /(DoCoMo|J-PHONE|ASTEL|KDDI)/){
print "$movil";
}elsif($agent =~ /UP/){
print "$ezweb";
}else{
print "$web\n";
print "Content-type: text/html; charset=euc-jp";
}
print "\n\n";
exit; | 
