掲示板でスパム書き込みが多いとうんざりするので少しでも削除の手間を省くために禁止IPを設定しておきたい。
条件としては、$ENV{'REMOTE_ADDR'} が取得できるサーバーであることと、エラー処理のサブルーチンを&errorとして適当につくってください。
実はKENT WEBのYY-BOARD v2.74（かなり古いバージョン）に追加する用途のものです。
現バージョンではちょっと違うかもしれないけど。
ついでに投稿を知らせるメールにも投稿者のIPアドレスを載せておくと、後から禁止IPを追加するのに便利なのでお薦め。
# 禁止IPアドレスを設定
@ips=('111.222.333.','444.555.666.');
# ログ書き込み処理の最初の部分に追加する
foreach (@ips){
if($ENV{'REMOTE_ADDR'} =~ /$_/) { &error("投稿できません。"); }
}
# 書き込みのお知らせメール本文を設定する部分に以下１行を追加
print MAIL "IP : $ENV{'REMOTE_ADDR'}\n";
コメントする