規制人より はやく夏終われ べろべろば〜♪ ∩( ・ω・)∩ 芋137本目

>>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;}