| テストしてうまく行ったように思ったのですが、今また投票してみたら連続投票が出来てしまいました。
$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
この設定は戻さなきゃいけませんよね。
これかな？問題は･･･。
|
