Added a debug mode.

This commit is contained in:
JT Smith 2002-08-08 03:50:02 +00:00
parent 3ce32801d2
commit f698899ab6
4 changed files with 36 additions and 26 deletions

View file

@ -84,6 +84,7 @@ sub warn {
}
$log = FileHandle->new(">>".$logfile) or fatalError("Can't open log file for warning.");
print $log localtime(time)." ".$0." WARNING: ".$_[0]."\n";
$session{debug}{warning} .= localtime(time)." ".$0." WARNING: ".$_[0]."<p>";
$log->close;
}