Down Systems

downsys.pl is a simple Perl script to report down systems.  This script sources from the downsys_programs.cfg file.

#!/usr/bin/perl

# downsys.pl -- list all down systems

die "Usage:  downsys.pl <secs timeout>\n" if ($#ARGV != 0) ;

foreach $sys (`/pikt/bin/piktc -L +H all`) {
        chomp $sys ;
        next if (`/pikt/lib/programs/maxtime.exp $ARGV[0]
                  /bin/ping $sys` =~ /is alive/) ;
        print "$sys\n" ;
}

For more examples, see Samples.