oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added "FATAL" to log when a fatal error occurs.

Browse source
This commit is contained in:
JT Smith 2002-05-29 14:53:49 +00:00
parent 6d95720e60
commit bc326ab2fa
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/ErrorHandler.pm
View file

@ -34,7 +34,7 @@ sub fatalError {
print "<h1>WebGUI Fatal Error</h1>Something unexpected happened that caused this system to fault.<p>" unless ($friendly);
$log = FileHandle->new(">>$logfile") or print "Can't open log file.";
print $0." at ".localtime(time)." reported:<br>" unless ($friendly);
print $log localtime(time)." ".$0." ".$_[0]."\n";
print $log localtime(time)." ".$0." FATAL: ".$_[0]."\n";
print $_[0] unless ($friendly);
print "<p><h3>Caller</h3><table border=1><tr><td valign=top>" unless ($friendly);
print "<b>Level 1</b><br>".join("<br>",caller(1)) unless ($friendly);