#! /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 "$m
\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 "No one logged on\n" ;
}
else
{
print "\n" ;
shift @fingerout ;
shift @fingerout ;
print " @fingerout" ;
print "\n" ;
}
}
else
{
print "Not Responding!\n"
}
}
}
}
print "Content-type: text/html\n\n" ;
print "\n" ;
print "\n" ;
print "The state of the RH 004\n" ;
print "\n" ;
print "\n" ;
print "The state of the RH 004
\n" ;
print "Front row workstations
\n" ;
&PrintRow(@row1) ;
print "Middle row workstations
\n" ;
&PrintRow(@row2) ;
print "Back row workstations
\n" ;
&PrintRow(@row3) ;
print "\n" ;
print "\n" ;