Config.pm

The function Log_File_Error will warn you of the most common reason for failure.

Code Snippit
sub Log_File_Error { my ($file) = @_; select (STDOUT); $\| = 1; print STDOUT <<EOF; Content-type: text/html <html> <head> <title>Problem with log file</title> </head> <body> <center> <h1>ERROR!!!</h1> This program wants to remap STDERR to a log file '$file'. But it died trying to open the file '$file'. <p> The most likely cause is a lack of write permission on the log file. <p> Please check the permissions and then try again. </center> </body> </html> EOF exit (0); } #Log_File_Error

Code Snippit




sub Log_File_Error

{

    my ($file) = @_;

    select (STDOUT); $| = 1;



print STDOUT <<EOF;

Content-type: text/html



<html>

<head>

<title>Problem with log file</title>

</head>

<body>

<center>

<h1>ERROR!!!</h1>

This program wants to remap STDERR to a log file '$file'.

But it died trying to open the file '$file'.

<p>

The most likely cause is a lack of write permission on the log file.

<p>

Please check the permissions and then try again.

</center>

</body>

</html>

EOF



    exit (0);



} #Log_File_Error