現在の こーど

{#mobile

unless($ENV{'HTTP_USER_AGENT'} =~ /DoCoMo|J-PHONE|UP.Browser|KDDI|DDIPOCKET/i){
# 携帯から
if($ENV{'HTTP_REFERER'} !~ /^http:\/\/$ENV{'HTTP_HOST'}/){
print "Content-type: text/html; charset=shift_jis\n\n";
print <<EOF;
<html><head><title>ERROR!</title><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"></head><body>ERROR:referer情報がブラ変です。(ref1)$ENV{'HTTP_REFERER'}</body></html>

EOF
exit;
#DispError("ERROR!","ERROR:referer情報がブラ変です。(ref1)$ENV{'HTTP_REFERER'}");
}
}

}#mobile