【スレッド】 ２ch型掲示板その４ 【フロート式】

[0195 名無しさん＠お腹いっぱい。 02/01/23 02:45 ID:???]

新型リンクバージョンのbbs.cgiをログを取るように改造したいのですが、
↓をどのように組み込んだらいいでしょうか。。。アドバイスよろしくお願いします。
# ------旧バージョンのソース---------------------------------------------
if(-e $PATH."log/"){
my $log = $PATH . "log/" . $FORM{'key'} . ".cgi";
my $num=$FLAG{'subnum'};$num++;
open(WIP,">>$log");
eval{flock(WIP,2);};
print WIP "$num<>$ENV{'REMOTE_ADDR'}<>$HOST<>$NOWTIME\n";
eval{flock(WIP,8);};
close(WIP);
chmod(0600,$log);
}
# -----------------------------------------------------------------------