10/09/05 01:58:06 0
>>615
変更してきた、bbspinkは除外
sub IsSenmon
{
my ($GB) = @_ ;
if($ENV{'SERVER_NAME'} !~ /2ch.net/) {return 1;}
if($ENV{SERVER_NAME} =~ /hayabusa/) {return 0;}
if($GB->{FORM}->{bbs} =~ /plus$/) {return 0;}
if($GB->{FORM}->{bbs} =~ /saloon$/) {return 0;}
if($GB->{FORM}->{bbs} =~ /anime/) {return 0;}