#!/usr/bin/perl
##############################################################
# by BumbleBeeWare.com 2006
# visual page to show the status of each server based on log files
#
##############################################################
# directory of status logs
$dir = "/pathto/statusdir";
# refresh time in seconds 5 minutes is 300 seconds
$refreshtime = 300;
###############################################################
# End Configuration
###############################################################
# print page
print "Content-type: text/html\n\n";
print "
Server Status
";
opendir DIR, "$dir" || die "Unable to open directory: DIR";
@allfiles = readdir DIR;
foreach $file(@allfiles) {
if ($file eq "."){}
elsif ($file eq ".."){}
elsif ($file eq "statuslog.txt"){}
else { &read_file;}
}
print "";
exit;
sub read_file {
open (BASE, "$dir/$file");
@base=;
close BASE;
$statusmessage = "@base";
# for each line in file
foreach $base (@base) {
if ($base =~ /SERVER OK/i){$statuscolor = "008000";}
if ($base =~ /WARNING/i){$statuscolor = "FF0000";}
}
print "
";
}