perlcraft
epoptai
#!perl
# 1. errorlog.pl parses and displays apache errorlogs
# 2. just change $error_log and $apache to your paths
# 3. cookies remember the list size and filter status
use strict;
use CGI qw(:standard);
use CGI::Cookie;
use HTML::Entities;
my$error_log = 'c:\path\to\error.log'; # CHANGE
my$apache = 'c:\path\to\Apache\Apache.exe: '; # CHANGE but, leave space at end.
my$show = 10; # default number of errors to show
my@EL = stat $error_log;
my%cookies = fetch CGI::Cookie;
my%i = map{$_ => param($_)} param;
my$url = url();
my$time = localtime();
$time =~s| .{4}$||o;
open (ELOG,"<".$error_log) or die "$!";
my@elog=<ELOG>;
close (ELOG) or die "$!";
my($cc,$c1,$c2);
if($cookies{'show'}){
unless($i{'n'}=~/\d+/){
$show = $cookies{'show'}->value;
}
}
if($i{'n'}=~/\d+/){
$show=$i{'n'};
$c1 = new CGI::Cookie(-name=>'show',-value=>"$show",-expires=>'+1y');
}
if(($cookies{'clean'}=~/yes/) or ($i{'do'}=~/clean/)){
if($i{'do'}=~/clean/){
$c2 = new CGI::Cookie(-name=>'clean',-value=>'yes',-expires=>'+1y');
}
$cc=' checked';
}
if(($i{'go'}=~/show/) && ($i{'do'}!~/clean/)){
$c2 = new CGI::Cookie(-name=>'clean',-value=>'no',-expires=>'+1y');
$cc=();
}
print header(-cookie=>[$c1,$c2]);
print<<HTML;
<html><head>
<title>$show Recent $ENV{'SERVER_NAME'} Server Errors</title>
<SCRIPT LANGUAGE="JavaScript"><!--
function me(){
document.forms[0].elements[0].select();
document.forms[0].elements[0].focus();}
//--></SCRIPT></head>
<body bgcolor="#c0c0c0" text="#000000" onload="me()">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><form method="post"><td>
<h3>$show Recent <a href="http://$ENV{'SERVER_NAME'}/">
$ENV{'SERVER_NAME'}</a> Server Errors<br>
<font size="-1">$time</font><br></h3></td>
<td align="right"><small>
clean</small><input type="checkbox" name="do" value="clean"$cc>
<input type="text" name="n" value="$show" size="3" maxlength="4" onfocus="select()">
<input type="submit" name="go" value="show"></td>
<td rowspan="2"> </td></form></tr></table>
<hr>
HTML
@elog=reverse(@elog);
my$c=0;
foreach my $ln(@elog){
unless($c==$show){
&encode_entities($ln);
$ln=~s|\Q$apache||oi;
if($cc=~/checked/){
$ln=~s/\s\[(?:notice|error|warn)\]\s\[client.*\]//o;
$ln=~s/\s2\d{3}]/\]<br>/o;
$ln=~s/\[/<small><b>/o;
$ln=~s|\]|</b></small>\n|o;
}
print $ln.'<hr>';
$c++
}
}
print<<HTML;
<table width="100%"><tr><td colspan="2" align="right"><font size="-1">
<a href="file://$error_log">$error_log</a> = $EL[7] bytes</td></tr></table></body></html>
HTML
exit