#!/export/home/scottg/bin/perl5

open (FINGER, "finger \@csnet.net |");

print "Content-type\: text/html\n\n";

print "<HTML><TITLE>Who is online at Hackensack?</TITLE>\n";
print "<body background=\"/scottg/images/pa1030.jpg\">\n";
print "<center><img src=\"/scottg/images/whoson.gif\" align=abscenter>"; print "<font size=+2>Who's online at Hackensack?";
print "<img src=\"/scottg/images/whoson.gif\" align=abscenter></center></font><hr>\n";
print "<center>\n<TABLE align=center BORDER>\n";
print "<center><tr><td>User</td><td>Port</td><td>IP Number</td><td>Email 'em!</td></tr>\n";

<FINGER>;
<FINGER>;
while (<FINGER>)
 {
  ($port, $who, $user) = split;
  $ipn = $port+20;
  if( $port ne "+1")
  {
  print "<tr><td><center>$user</center></td><td><center>$port</center></td><td>204.180.226.$ipn</td>";
  print "<td><a href=\"mailto:$user\@csnet.net\"><center><img src=\"/scottg/images/email.gif\" align=abscenter border=0>";
  print "</center></a></td><tr>\n";
  }
 }
print "</table></center>\n<hr>";
print "<font size=-1>Copyright 1996, Community School Networks, Inc. all 
rights reserved.<br> This page was written by and is maintained by <a 
href=\"mailto:scottg\@csnet.net\">Scott Glass</a></html>\n"; exit;
