アク禁レス代行スレの意見情報交換雑談スレ39

http://qb5.2ch.net/test/read.cgi/sec2chd/1282729703/488
> 488 ：とん ★ ：2010/09/04(土) 16:14:55 ID:???0
> こんなんで始めてみる。
>
> #############################################################################
> #専門板?
> #############################################################################
> 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;}