HOME > アルバム > おもちゃ箱 >

#!/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;

戻る