#!perl -w

use strict;
use CGI;
use MySite::ConfigVars qw(%config);

$CGI::HEADERS_ONCE = 1;
my $q = CGI->new();

print $q->header("text/html");

open (ERRORLOG, $config{'errorlog'})
	or die "Error opening error log $config{'errorlog'}\n\n$!";

print $q->start_html("Error Logs");
while(<ERRORLOG>)
{
	print "$_\n", $q->br();
}
print $q->end_html();

#########ERROR MESSAGE:
[Fri Jul 06 00:53:38 2001] [error] [client 127.0.0.1] Premature end of script headers: d:/program files/apache group/apache/cgi-bin/errorlog.cgi
[Fri Jul 06 00:53:38 2001] [error] [client 127.0.0.1] Can't locate MySite/ConfigVars.pm in @INC (@INC contains: D:/Perl/lib D:/Perl/site/lib) at d:\PROGRA~1\APACHE~1\apache\cgi-bin\errorlog.cgi line 5.

[Fri Jul 06 00:53:38 2001] [error] [client 127.0.0.1] BEGIN failed--compilation aborted at d:\PROGRA~1\APACHE~1\apache\cgi-bin\errorlog.cgi line 5.