こんな感じだ


#############################################################################
# スレつぶし撃退(バイバイさるさん)
#############################################################################
sub bybySaruON
{
my ($GB) = @_ ;

if($GB->{FORM}->{bbs} eq 'goki') {return 1;}
#return 0;

if($GB->{FORM}->{bbs} eq 'doujin') {return 0;}
if($ENV{'SERVER_NAME'} =~ /qb/) {return 0;}
# if($ENV{'SERVER_NAME'} =~ /bbspink/) {return 0;}
if($GB->{FORM}->{bbs} eq 'news4viptasu') {return 0;}
# if($GB->{FORM}->{bbs} eq 'campus') {return 0;}
#return 1;

if($GB->{FORM}->{bbs} eq 'aastory') {return 0;}
if($GB->{FORM}->{bbs} eq 'aasaloon') {return 0;}
if($GB->{FORM}->{bbs} eq 'nida') {return 0;}
if($GB->{FORM}->{bbs} eq 'mona') {return 0;}
if($GB->{FORM}->{bbs} eq 'kao') {return 0;}
if($GB->{FORM}->{bbs} eq 'nanminhis') {return 0;}
if($GB->{FORM}->{bbs} eq 'eroparo') {return 0;}
if($GB->{FORM}->{bbs} eq 'intro') {return 0;}
if($GB->{FORM}->{bbs} eq 'warhis') {return 0;}
if($GB->{FORM}->{bbs} eq 'kitchen') {return 0;}
if($GB->{FORM}->{bbs} eq 'ume') {return 0;}
if($GB->{FORM}->{bbs} eq 'mog2') {return 0;}
return 1;