10/09/04 15:50:31 0
#############################################################################
#専門板?
#############################################################################
sub IsSenmon
{
my ($GB) = @_ ;
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 'operate2') {return 0;}
return 1 ;
}