11/10/25 04:13:48.65
>>17
「一定時間内の連続した同じ発言の投稿」というのとはちょっと違うかもしれないけど、
ログファイルの中に、同じ人がまったく同じ内容の書き込みをしているものがあったら
エラーを出すっていうんじゃだめかな？
もしそれでよければ、以下のようにしてみてください。
robo.cgiの２５５行目に「# ログを開く」っていうのがあるのでその下に以下を
追加してみてください。
# ログを開く
open(DAT,"+< $cf{logfile}") || &error("open err: $cf{logfile}");
eval "flock(DAT, 2);";
my @data = <DAT>;
#追加
my $flg = 0;
foreach (@data) {
my ($adate,$aname,$aeml,$acom,$acol,$ahost) = split(/<>/);
if ($host eq $ahost && $in{comment} eq $acom) { $flg = 1; last; }
}
if ($flg == 1) { &error("二重投稿は禁止です"); }
#追加
もし時間を絡めたものにしたかったらほかの人がやってくれるのをお待ちください。