| テストしてうまく行ったように思ったのですが、今また投票してみたら連続投票が出来てしまいました。 $cooks= 0; にしてる状態なのですが、加えたものに間違いがあるのでしょうか?
open(IPI,"ip.log");#↓追加 while (<IPI>){ if($_ eq $addr){&er_("二重投票は禁止 投票は約3時間に1票!");}#IPがすでにある場合終わり } close(IPI); if((-M "ip.log") < 0.125){#更新されてから3時間以内ならIP追加 open(IPO,">>ip.log"); print IPO $addr; close(IPO); }else{#更新されて1日以上ならログをフォーマットして追加 open(IPO,">ip.log"); print IPO $addr; close(IPO); }#↑追加
ちなみに http://www.cj-c.com/sp/cbbs.cgi?mode=al2&namber=8975&no=1&KLOG=8 この設定は戻さなきゃいけませんよね。 これかな?問題は・・・。
|