ぜろちゃんねるスクリプト総合質問スレ Part2

319 ：管理人 ★：2003/05/09 00:23 ID:???

>>318
sub OutErrorLog
{
　　my　$this = shift;
　　my　($ekind,$edata,%SysInfo) = @_;
　　my　$ehost = $CGet->GetRemoteHost($SETTING{BBS_GETHOSTBYADDR});
　　my　$etime = time,$ever = substr($SysInfo{'CgiVersion'},12);

　　open(ERRLOG,">>$SysInfo{'BoardRoot'}/$SysInfo{'BoardName'}/log/errs.cgi");
　　print ERRLOG "$etime<>$ehost<>$ever<>$ekind<>$edata\n";
　　close(ERRLOG);

　　eval{ chmod(0600,"$SysInfo{'BoardRoot'}/$SysInfo{'BoardName'}/log/errs.cgi"); };
}

↓

sub OutErrorLog
{
　　my　$this = shift;
　　my　($ekind,$edata,%SysInfo) = @_;

　　return;
}

こんなかんじで。

＞ちなみに、エラーログを保存することによってどのような利があるのでしょうか？
＞荒らし対策？

そんなかんじです。