>>20

えいっ

# 書き込みログファイル
open(RIP,"<$ripfile");
@ZIP = <RIP>;
close(RIP);


$SIP = grep(/$TIP/, @ZIP);
$JIP = (@ZIP)? @ZIP: 1;
if($FLAG > 7){
if($JIP < 8){
}elsif(($SIP / $JIP) > 0.25 || $SIP > 64){
DispError("ＥＲＲＯＲ！","このホストでは、しばらくスレッドが立てられません。<br>またの機会にどうぞ。。。");
}
}elsif($SIP){
DispError("ＥＲＲＯＲ！","このホストでは、しばらくスレッドが立てられません。<br>またの機会にどうぞ。。。");
}elsif($HIP){
$SIP = grep(/$HIP$/, @ZIP);
if($SIP > ($JIP / 16) + 1 || $SIP > 32){
DispError("ＥＲＲＯＲ！","このホストでは、しばらくスレッドが立てられません。<br>またの機会にどうぞ。。。");
}
}
# 書き込みホスト保存
open(WIP,">$ripfile");
#flock(WIP,2);
print WIP ("$HOST,$FORM{'sid'},$FORM{'key'}\n", @ZIP)[0..$SETTING{'BBS_THREAD_TATESUGI'}-1];
close(WIP);