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