２ch型掲示板 その２

my $tmp=substr(crypt($tmp,$FORM{'bbs'}),-8);
if(-e $file){
open(RIP,"<$file");
@IP = <RIP>;
close(RIP);
foreach(@IP){
chop;
($key,$host1,$mes) = split /<>/;
if($ID eq $host1){
if($FORM{'time'} eq $key || $tmp eq $mes){
DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：２重カキコですか？？");

この辺の規制が厳しすぎてすぐAAにしゃべらせるスレだと２重カキコ制限にひっかかってしまいますYO!