#!C:/apache2triadpath/perl/bin/perl.exe
$show = 100;
$log1 = "C:/apache2triadpath/logs/access.log";
$log2 = "C:/apache2triadpath/logs/ssl_access.log";
$log3 = "C:/apache2triadpath/mysql/logs/myaccess.log";
print "Content-type: text/html\n\n";
print "Apache2Triad access logs\n";
print "\n";
print "
";
#http access log
$line = 0;
$start = clines($log1) - $show;
open (LOG1, $log1)|| die "Can't open $log1\n";
while (){
$line++;
if ($line >= $start){
push(@log1,$_);
}
}
close (LOG1);
@log1=reverse(@log1);
print "The Apache server on $ENV{'SERVER_NAME'}:80 last $show access log lines:
";
#https access log
$line = 0;
$start = clines($log2) - $show;
open (LOG2, "$log2")|| die "Can't open $log2\n";
while (){
$line++;
if ($line >= $start){
push(@log2,$_);
}
}
close (LOG2);
@log2=reverse(@log2);
print "The SSL server on $ENV{'SERVER_NAME'}:443 last $show access log lines:
";
#mysql access log
$line = 0;
$start = clines($log3) - $show;
open (LOG3, "$log3")|| die "Can't open $log3\n";
while (){
$line++;
if ($line >= $start){
push(@log3,$_);
}
}
close (LOG3);
@log3=reverse(@log3);
print "The Mysql server on $ENV{'SERVER_NAME'}:3306 last $show access log lines:
";
print "Written by Vlad Alexa Mancini\n";
sub clines {
my ($filename) = @_;
$lines = 0;
open(FILE, $filename) or die "Can't open `$filename': $!";
while (sysread FILE, $buffer, 4096) {
$lines += ($buffer =~ tr/\n//);
}
close FILE;
return $lines
}
exit;