#!/usr/local/bin/perl5
print "Content-type\: text/html\n\n";
print "Who is online at Parsippany?\n";
print "Who is online at Hackensack?
\n";
print "
\n";
$finger = "/usr/ucb/finger";
if (!( -e $finger )) {
print "Can't find finger command!\n";
}
open (FINGER, "finger \@csnet.net |");
;
while ()
{
($port, $who, $user) = split;
print "| $port | $user |
\n";
}
print "
\n";
exit;