#!/usr/bin/perl # # Tail the status log print "Content-Type: text/html\n\n\n"; print ""; print ""; print "

\n";
#print system("tail -20 /home/httpd/html/logs/baseServer.log");

# This is a workaround for Apache 1.1's broken CGI module
system("tail -40 /home/httpd/html/logs/baseServer.log >/var/tmp/status-log.txt");
open (LOGTEXT, "/var/tmp/status-log.txt");

while () {
    print $_;  
}

print "

\n";