掲示板でスパム書き込みが多いとうんざりするので少しでも削除の手間を省くために禁止IPを設定しておきたい。
条件としては、$ENV{'REMOTE_ADDR'} が取得できるサーバーであることと、エラー処理のサブルーチンを&errorとして適当につくってください。
実はKENT WEBのYY-BOARD v2.74（かなり古いバージョン）に追加する用途のものです。
現バージョンではちょっと違うかもしれないけど。
ついでに投稿を知らせるメールにも投稿者のIPアドレスを載せておくと、後から禁止IPを追加するのに便利なのでお薦め。
うざい宣伝書き込みの中でもとくにうざいURL大量書き込みを防ぐ改造。
$kakikomi 書き込み内容の変数
&error エラーサブルーチンとする。
$inhttp = 9; #URL書き込みの許容値（これ以上多かったらアウト）
$checkspam = $kakikomi ;
$httpspam = $checkspam =~ s/http\://g;
if( $httpspam > $inhttp ){ &error("投稿できません。"); }
これで10個以上URLを書き込まれた場合エラーになる。
掲示板にしつこく宣伝書き込みをされたりして困ったときに。
禁止ワードを設定できる掲示板に改造してみる。
$kakikomi が書き込み内容の変数
&error エラーのサブルーチンとする。
$badcomment = 'コメント１,コメント２'; # 禁止ワード（カンマで区切って複数指定可）
$badcomment =~ tr/,/|/;
$spam = $kakikomi =~ s/($badcomment)//g;
if( $spam > 0 ){ &error("投稿できません。"); }
こんな感じで、宣伝先のサイトのドメインとかURLを引っかけてしまえばいいと思う。
