規制人より はやく夏終われ べろべろば~♪ ∩( ・ω・)∩ 芋137本目at SEC2CHD
規制人より はやく夏終われ べろべろば~♪ ∩( ・ω・)∩ 芋137本目 - 暇つぶし2ch488:とん ★
10/09/04 16:14:55 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;}
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 ;
}



次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch