ぜろちゃんねる掲示板＠総合質問スレ

216 ：7M. ◆7M./4Uw. ：2003/02/14 00:47 ID:???

if ($ret >= 999){ # 1000になったら
$text = "このスレッドは１０００を超えました。<br>";
$text = "$textもう書けないので、新しいスレッドを立ててくださいです。。。";
print FILE "１００１<><>Over 1000 Thread<>$text<>\n";
}
えーと、datファイルへの書き込み部分を↑から↓へ。
if ($ret >= 999){ # 1000になったら
$text = "このスレッドは１０００を超えました。<br>";
$text = "$textもう書けないので、新しいスレッドを立ててくださいです。。。";
print FILE "１００１<><>Over 1000 Thread<>$text<>\n";
}
open(LOG, ">>$SYSINFO{'BoardRoot'}/$SYSINFO{'BoardName'}/log/$key.cgi");
binmode(LOG);
eval{ flock(LOG,2); };
print LOG "$name<>$mail<>$date<>$text<>$subj<>$host
<>$ENV{'REMOTE_ADDR'}<>$ENV{'HTTP_USERAGENT'}\n";
eval{ flock(LOG,8); };
close(LOG);