こんなんで始めてみる。

#############################################################################
#専門板?
#############################################################################
sub IsSenmon
{
my ($GB) = @_ ;

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;}
if($GB->{FORM}->{bbs} eq 'morningcoffee') {return 0;}
if($GB->{FORM}->{bbs} eq 'news') {return 0;}
if($GB->{FORM}->{bbs} eq 'anime4vip') {return 0;}
if($GB->{FORM}->{bbs} eq 'news4vip') {return 0;}
if($GB->{FORM}->{bbs} eq 'news4viptasu') {return 0;}
if($GB->{FORM}->{bbs} eq 'newsplus') {return 0;}
if($GB->{FORM}->{bbs} eq 'campus') {return 0;}
if($GB->{FORM}->{bbs} eq 'ghard') {return 0;}
if($GB->{FORM}->{bbs} eq 'poverty') {return 0;}
if($GB->{FORM}->{bbs} eq 'wcomic') {return 0;}
if($GB->{FORM}->{bbs} eq 'soccer') {return 0;}
if($GB->{FORM}->{bbs} eq 'ms') {return 0;}
if($GB->{FORM}->{bbs} eq 'campus') {return 0;}
if($GB->{FORM}->{bbs} eq 'streaming') {return 0;}
if($GB->{FORM}->{bbs} eq 'mmo') {return 0;}
if($GB->{FORM}->{bbs} eq 'slot') {return 0;}
if($GB->{FORM}->{bbs} eq 'comic') {return 0;}
if($GB->{FORM}->{bbs} eq 'skate') {return 0;}
if($GB->{FORM}->{bbs} eq 'keiba') {return 0;}
if($GB->{FORM}->{bbs} eq 'giin') {return 0;}
if($GB->{FORM}->{bbs} eq 'seiji') {return 0;}
if($GB->{FORM}->{bbs} eq 'famicom') {return 0;}
if($GB->{FORM}->{bbs} eq 'shar') {return 0;}
if($GB->{FORM}->{bbs} eq 'mog2') {return 0;}
if($GB->{FORM}->{bbs} eq 'download') {return 0;}
if($GB->{FORM}->{bbs} eq 'livemarket2') {return 0;}
if($GB->{FORM}->{bbs} eq 'livemarket1') {return 0;}
if($GB->{FORM}->{bbs} eq 'base') {return 0;}

return 1 ;
}