#! /usr/local/bin/perl
@row1 = ( 'rosman',
          'leicester', 'burnsville', 'marshall', 'pensacola', 'saluda' ) ;
@row2 = ( 'alexander',
	  'otto', 'cowee', 'brevard', 'oteen', 'celo' ) ;
@row3 = ( 'zirconia', 
	  'hominy', 'DIGITIZER', 'canton', 'fairview', 'clyde') ;

$os{'DIGITIZER'} = 'Calcomp' ;
$os{'alexander'} = 'solaris' ;
$os{'brevard'} = 'OSF/1' ;
$os{'burnsville'} = 'solaris' ;
$os{'canton'} = 'ultrix ' ;
$os{'celo'} = 'ultrix ' ;
$os{'clyde'} = 'ultrix ' ;
$os{'cowee'} = 'ultrix ' ;
$os{'fairview'} = 'solaris' ;
$os{'hominy'} = 'ultrix ' ;
$os{'leicester'} = 'solaris' ;
$os{'marshall'} = 'OSF/1' ;
$os{'oteen'} = 'ultrix ' ;
$os{'otto'} = 'ultrix ' ;
$os{'pensacola'} = 'solaris' ;
$os{'rosman'} = 'ultrix ' ;
$os{'saluda'} = 'ultrix ' ;
$os{'zirconia'} = 'Windows' ;

sub PrintRow
  {
   foreach $m (@_)
    {
     if ( ( $os{$m} ne 'Windows' ) && ( $os{$m} ne 'Calcomp' ) )
       {
        print "<H3>$m</H3>\n" ;
	$rc = system("ping -q -c 1 $m > /dev/null") ;
	if ( $rc == 0 ) 
          {
           @fingerout = `finger \@$m` ;
           if ( substr($fingerout[1],0,7) eq "No one " )
             {
              print "<I>No one logged on</I>\n" ;
             }
           else
             {
              print "<PRE>\n" ;
              shift @fingerout ;
              shift @fingerout ;
              print " @fingerout" ;
              print "</PRE>\n" ;
             }
          }
        else
          {
           print "<B>Not Responding!</B>\n"
          }
       }
    }
  }

print "Content-type: text/html\n\n" ;
print "<HTML>\n" ;
print "<HEAD>\n" ;
print "<TITLE>The state of the RH 004</TITLE>\n" ;
print "</HEAD>\n" ;

print "<BODY>\n" ;
print "<H1>The state of the RH 004</H1>\n" ;

print "<H2>Front row workstations</H2>\n" ;
&PrintRow(@row1) ;

print "<H2>Middle row workstations</H2>\n" ;
&PrintRow(@row2) ;

print "<H2>Back row workstations</H2>\n" ;
&PrintRow(@row3) ;

print "</BODY>\n" ;
print "</HTML>\n" ;