| ■No8198に返信(sinさんの記事) > > if($bup){&backup_;}の後に >($knum,$kd,$kname,$kem,$ksub,$kcom,$ku,$kf,$ki,$kty,$kde,$kip)=split(/<>/,$lines[0]); > ($Ip,$ID,$Sex,$Old,$Rank,$UT)=split(/:/,$kip); > if($Ip eq $ENV{'REMOTE_ADDR'} && -M $log < 0.001){&er_("連続投稿不可");} > > をいれましたが連続投稿が可能になってしまいます・・・
ではログ書き込みサブルーチン内にある if($name eq $na && $comment eq $com) { &er_("同じ内容は送信不可!","1"); } の下に ($Ip,$ID,$Sex,$Old,$Rank,$UT)=split(/:/,$ip); if($Ip eq $ENV{'REMOTE_ADDR'} && $Time-$UT < 300){&er_("連続投稿不可");} でどうでしょうか?
300 は 300秒以内なら投稿できないという設定です。
|