【広告】新機能　Rock54【自動排除】

sub BBXcheck
{
#以下の板はするー
if($FORM{'bbs'} eq ""){return 0;}
if($FORM{'bbs'} eq ""){return 0;}
#★はスルー

#●はスルー

#$FORM{'MESSAGE'}に投稿された本文が入っている

#広告かな?
if(!&IsKoukoku){return 0;}

my $HHH = $ENV{REMOTE_ADDR};
$HHH =~ s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$4.$3.$2.$1/;
my $AHOST = "$HHH.bbx.2ch.net";
my $SPAM = gethostbyname($AHOST);

if($SPAM)
{
DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：ロックは人生だ。");
}
return 0;
}