#!C:/apache2triadpath/perl/bin/perl.exe
$log1 = "C:/apache2triadpath/logs/error.log";
$log2 = "C:/apache2triadpath/logs/ssl_error.log";
$log3 = "C:/apache2triadpath/mysql/logs/myerror.log";
$log4 = "C:/apache2triadpath/php/logs/php_error.log";
print "Content-type: text/html\n\n";
print "Apache2Triad error logs\n";
print "\n";
print "
";
open (LOG1, "$log1")|| die "Can't open $log1\n";
@log1 = ;
close (LOG1);
print "The Apache server on $ENV{'SERVER_NAME'}:80 most frequent 10 erors:
\n";
foreach $log1 (@log1) {
if ($log1 =~ m/.*? \[error\] \[client .*?\] (.*)/){$all1{$1} += "1";}
}
foreach $key (sort { $all1{$a} <=> $all1{$b} } keys %all1) {
push(@all1,"$key $all1{$key} times
\n");
}
@all1 = reverse(@all1);
splice @all1, 10;
foreach $all1 (@all1) {
print "$all1";
}
print "
";
print "The Apache server on $ENV{'SERVER_NAME'}:80 last 100 eror log lines:
";
print "
";
open (LOG2, "$log2")|| die "Can't open $log2\n";
@log2 = ;
close (LOG2);
print "The Apache server on $ENV{'SERVER_NAME'}:443 most frequent 10 erors:
\n";
foreach $log2 (@log2) {
if ($log2 =~ m/.*? \[error\] \[client .*?\] (.*)/){$all2{$1} += "1";}
}
foreach $key (sort { $all2{$a} <=> $all2{$b} } keys %all2) {
push(@all2,"$key $all2{$key} times
\n");
}
@all2 = reverse(@all2);
splice @all2, 10;
foreach $all2 (@all2) {
print "$all2";
}
print "
";
print "The SSL server on $ENV{'SERVER_NAME'}:443 last 100 eror log lines:
";
print "
";
open (LOG3, "$log3")|| die "Can't open $log3\n";
@log3 = ;
close (LOG3);
print "The MySQL server on $ENV{'SERVER_NAME'}:3306 most frequent 10 erors:
\n";
foreach $log3 (@log3) {
if ($log3 =~ m/(.*)/){$all3{$1} += "1";}
}
foreach $key (sort { $all3{$a} <=> $all3{$b} } keys %all3) {
push(@all3,"$key $all3{$key} times
\n");
}
@all3 = reverse(@all3);
splice @all3, 10;
foreach $all3 (@all3) {
print "$all3";
}
print "
";
print "The MySQL server on $ENV{'SERVER_NAME'}:3306 last 100 eror log lines:
";
print "
";
open (LOG4, "$log4")|| die "Can't open $log4\n";
@log4 = ;
close (LOG4);
print "The Php server on $ENV{'SERVER_NAME'}:80 most frequent 10 erors:
\n";
foreach $log4 (@log4) {
if ($log4 =~ m/\[.*?\].*?error: (.*)/i){$all4{$1} += "1";}
}
foreach $key (sort { $all4{$a} <=> $all4{$b} } keys %all4) {
push(@all4,"$key $all4{$key} times
\n");
}
@all4 = reverse(@all4);
splice @all4, 10;
foreach $all4 (@all4) {
print "$all4";
}
print "
";
print "The Php server on $ENV{'SERVER_NAME'}:80 last 100 eror log lines:
";
print "Written by Vlad Alexa Mancini\n";
exit;