この部分に何やら蠢くものがいると言う事か?


if($ENV{'HTTP_USER_AGENT'} =~ /DoCoMo/i || $ENV{'HTTP_USER_AGENT'} =~ /J-PHONE/i || $ENV{'HTTP_USER_AGENT'} =~ /UP.Browser/i || $ENV{'HTTP_USER_AGENT'} =~ /DDIPOCKET/i)
{# 携帯からの書きこみフォロー（時限的処置）
if(&IsIP4Mobile)
{
$FLAG = 1 if(!$FLAG);
$SETTING{'SUBBBS_CGI_ON'} = 0;
$SETTING{'BBS_PROXY_CHECK'} = "";
$SETTING{'BBS_RAWIP_CHECK'} = "";
$SETTING{'BBS_OVERSEA_PROXY'} = "";
}
else
{
DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：ブラウザ変ですよん。$ENV{'HTTP_REFERER'}");
}
}
elsif (!$FLAG)
{
if($ENV{'HTTP_REFERER'} !~ /^http:\/\/$ENV{'HTTP_HOST'}/)
{
DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：ブラウザ変ですよん。(referer1)$ENV{'HTTP_REFERER'}");
}
if($ENV{'HTTP_HOST'} ne $ENV{'SERVER_NAME'})
{
DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：ブラウザ変ですよん(host)。　$ENV{'HTTP_REFERER'}");
}
}
}