掲示板の新規スレッド作成を制限

掲示板にスパムと思われるスレッドが乱立したため、新規スレッドの作成を制限しました。
今回は以下のページの方法を参考にさせていただきましたが当方のバージョン( Web Patio v3.22)では一部場所が異なっていましたので編集箇所の抜粋を記載します。
http://www.kent-web.com/support/old/66/0485.html
対象ファイル:regist.cgi
(抜粋)水色部分が追記箇所
# 新規投稿(新規スレッド作成)
if ($in{‘res’} eq “”) {
# 新規投稿は管理人のみ(ここを追記)
if ($pass ne $in{‘pwd’}) { &error(“新規投稿は管理人のみ可能\です。”); }
# indexファイル
local($i, $flg, $top, @new, @tmp, @top);
open(DAT,”+< $nowfile”) || &error(“Open Error: $nowfile”);
eval “flock(DAT, 2);”;
$top = ;
しかし掲示板設置から5年以上経ってようやくスパムを受けることとなり、一応攻撃者からは認知される程度のページになっているのかと考えると、あまり適切ではありませんが感慨深いものがありますね。

コメントを残す