hi,
I have attached my patch to feedback.pl. the &log function calls
&internal error when the log file is not writable. The
&internal_error funtion always calls &log, so when the log file
is not writable, then an infinite loop occurs.
On line 137 of feedback.pl, I changed &internal_error to "die".
There should be a better way to do this, but at least this way, it
prevents the infinite loop.
Sincerely,
Jason Edgecombe <jwedgeco at uncc.edu> Index: feedback.pl =================================================================== RCS file: /usr/local/cvsroot/webwork/system/cgi/cgi-scripts/feedback.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2.2.1 diff -r1.1.1.1 -r1.2.2.1 1c1 < #!/usr/local/bin/webwork-perl
> #!/usr/bin/perl 3c3 < # $Id: feedback.pl,v 1.1.1.1 2002/10/22 17:14:20 jwedgeco Exp $
> # $Id: feedback.pl,v 1.2.2.1 2002/11/21 18:54:51 jwedgeco Exp $ 69a70 > $To = $Global::feedbackAddress if ($To eq ''); 136c137 < open(LOGFILE, ">> $LOGFILE") || &internal_error("Can't write to $LOGFILE"); # warn("Can't write to $LOGFILE\n");
> open(LOGFILE, ">> $LOGFILE") || die("Can't write to $LOGFILE"); # warn("Can't write to $LOGFILE\n");
<| Post or View Comments |>
|