★110819 pure [彼氏/彼女が]ｽﾚ[重複|移動|URL]ｺﾋﾟﾍﾟ荒らし報告

if($GB->{FORM}->{'FROM'} =~ /\!ninja/) {return 1;}
if($GB->{NEWTHREAD} && $GB->{FORM}->{'bbs'} ne "saku2ch")
{return 1;}

if($ENV{'SERVER_NAME'} =~ /qb7/) {return 1;}
if($GB->{FORM}->{'bbs'} eq "sato") {return 1;}
if($GB->{FORM}->{'bbs'} eq "yama") {return 1;}
if($FOX->{$GB->{FORM}->{'bbs'}}->{"BBS_NINJA"} eq "checked") {return 1;}
if($FOX->{$GB->{FORM}->{'bbs'}}->{"BBS_NINJA"} eq "nashi") {return 0;}
if($hhh =~ /\.plala.or.jp$/) {return 0;}
if($hhh =~ /\.ocn.ne.jp$/) {return 0;}

if($GB->{FORM}->{'bbs'} eq "opensesame"){return 0;}
if($GB->{FORM}->{'bbs'} eq "erobbs") {return 0;}
if($GB->{FORM}->{'bbs'} eq "ccc") {return 0;}
if($GB->{FORM}->{'bbs'} eq "pinknanmin"){return 0;}
if($GB->{FORM}->{'bbs'} eq "operate") {return 0;}
if($GB->{FORM}->{'bbs'} eq "accuse") {return 0;}
if($GB->{KEITAI} eq 1) {return 1;} #docomo
if($GB->{KEITAI} eq 2) {return 0;} #au
if($GB->{KEITAI} eq 3) {return 0;} #sb
if($hhh =~ /\.maido3.net$/) {return 0;}

if($hhh =~ /\.mesh.ad.jp$/) {return 1;}
if($hhh =~ /\.dion.ne.jp$/) {return 1;}
if($hhh =~ /\.t-com.ne.jp$/) {return 1;}

if($hhh =~ /\d$/) {return 1;}
if($hhh !~ /\./) {return 1;}
if($hhh =~ /\.com$/i) {return 1;}
if($hhh =~ /\.net$/i) {return 1;}
if($hhh =~ /\.fi$/i) {return 1;}
if($hhh =~ /\.tr$/i) {return 1;}
if($hhh =~ /\.za$/i) {return 1;}
if($hhh =~ /\.ph$/i) {return 1;}
if($hhh =~ /\.my$/i) {return 1;}
if($hhh =~ /\.tt$/i) {return 1;}
if($hhh =~ /\.sa$/i) {return 1;}
if($hhh =~ /\.au$/i) {return 1;}
if($hhh =~ /\.vn$/i) {return 1;}
if($hhh =~ /\.ee$/i) {return 1;}
if($hhh =~ /\.ge$/i) {return 1;}
if($hhh =~ /\.dk$/i) {return 1;}
if($hhh =~ /\.cy$/i) {return 1;}
if($hhh =~ /\.uk$/i) {return 1;}
if($hhh =~ /\.de$/i) {return 1;}
if($hhh =~ /\.do$/i) {return 1;}
if($hhh =~ /\.lt$/i) {return 1;}
if($hhh =~ /\.br$/i) {return 1;}

if($hhh =~ /\.so-net.ne.jp$/) {return 1;}
if($hhh =~ /\.ztv.ne.jp$/) {return 1;}

if($ENV{'SERVER_NAME'} =~ /hayabusa/) {return 0;}
if($ENV{'SERVER_NAME'} =~ /ipv6/) {return 0;}

if($hhh =~ /\.fiberbit.net$/) {return 0;}
if($hhh =~ /\.yournet.ne.jp$/) {return 1;}
if($hhh =~ /\.iij4u.or.jp$/) {return 1;}
if($hhh =~ /\.cts.ne.jp$/) {return 1;}
if($hhh =~ /\.scn-net.ne.jp$/) {return 1;}
if($hhh =~ /\.au-net.ne.jp$/) {return 1;}
if($hhh =~ /\.aitai.ne.jp$/) {return 1;}
if($hhh =~ /\.oct-net.ne.jp$/) {return 1;}
if($hhh =~ /\.spmode.ne.jp$/) {return 1;}
if($hhh =~ /\.tnc.ne.jp$/) {return 1;}
if($hhh =~ /\.spacelan.ne.jp$/) {return 1;}
if($hhh =~ /\.au-net.ne.jp$/) {return 1;}
if($hhh =~ /\.megaegg.ne.jp$/) {return 1;}
if($hhh =~ /\.alpha-net.ne.jp$/) {return 1;}
if($hhh =~ /\.zaq.ne.jp$/) {return 1;}
if($hhh =~ /\.eaccess.ne.jp$/) {return 1;}
if($hhh =~ /\.tac-net.ne.jp$/) {return 1;}
if($hhh =~ /\.home.ne.jp$/) {return 1;}
if($hhh =~ /\.toshima.ne.jp$/) {return 1;}
if($hhh =~ /\.icntv.ne.jp$/) {return 1;}
if($hhh =~ /\.dti.ne.jp$/) {return 1;}
if($hhh =~ /\.nttpc.ne.jp$/) {return 1;}
if($hhh =~ /\.wakwak.ne.jp$/) {return 1;}
if($hhh =~ /\.uqwimax.jp$/) {return 1;}
if($hhh =~ /\.em-net.ne.jp$/) {return 1;}
if($hhh =~ /\.prin.ne.jp$/) {return 1;}
if($hhh =~ /\.e-mobile.ne.jp$/) {return 1;}
if($hhh =~ /\.emobile.ad.jp$/) {return 1;}
if($hhh =~ /\.panda-world.ne.jp$/) {return 1;}
if($hhh =~ /\.cims.jp$/) {return 1;}
if($hhh =~ /\.asahi-net.or.jp$/) {return 1;}
if($hhh =~ /\.infoweb.ne.jp$/) {return 1;}
if($hhh =~ /\.vectant.ne.jp$/) {return 1;}
if($hhh =~ /\.eonet.ne.jp$/) {return 1;}
if($hhh =~ /\.odn\.ad\.jp$/) {return 1;}
if($hhh =~ /\.odn\.ne\.jp$/) {return 1;}
if($hhh =~ /\.katch.ne.jp$/) {return 1;}
if($hhh =~ /\.mopera.ne.jp$/) {return 1;}
if($hhh =~ /\.maido3.cc$/) {return 1;}
if($hhh =~ /\.ucom.ne.jp$/) {return 1;}

if($hhh =~ /\.ac.jp$/) {return 0;}
if($hhh =~ /\.go.jp$/) {return 0;}
if($hhh =~ /\.or.jp$/) {return 0;}
if($hhh =~ /\.ne.jp$/) {return 0;}
if($hhh =~ /\.ad.jp$/) {return 0;}
if($hhh =~ /\.ed.jp$/) {return 0;}
if($hhh =~ /\.lg.jp$/) {return 0;}
if($hhh =~ /\.jp$/) {return 1;}

return 0 ;

名前に!ninjaで1 スレ立とsaku2chで1 鯖qb7，sato，yamaで1
SETTING.TXTでChecked　→1　nashi→0
plala/ocn→0
板名opensesame，erobbs，ccc，pinknanmin，operate，accuse →0
携帯　docomo 1 au/sb 0
以下ドメイン別でフラグ

鯖hayabusa，ipv6 →0
以下ドメイン別でフラグ
何もなければ0返す。

把握しました。ありがとうございます。