#!/usr/bin/perl
# Viever for sawdog status files
# print "Content-Type: text/html\n\n";
print "sawdog Viewer\n";
print '';
print "\n\n\n";
print "Sawdog Status Viewer
\n";
open (ST, ";
close (ST);
print "\n";
$oldserver = '';
for (@status) {
($server, $port, $status) = /(\S+)\s(\S+)\s(\S+)$/;
print "\n" if (($server ne $oldserver) & ($oldserver ne ''));
print "| $server | \n" if ($server ne $oldserver);
print "$port | \n" if ($status eq 'dead');
print "$port | \n" if ($status eq 'unknown');
print "$port | \n" if ($status eq 'alive');
$oldserver = $server;
}
print "
\n";
print "\n";