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.

 
Home | FAQ | News | Intro | Samples | Tutorial | Reference | Software
Developer's Notes | Licensing | Authors | Pikt-Users | Pikt-Workers | Related Projects | Site Index | Privacy Policy | Contact Us
Page best viewed at 1024x768 or greater.   Page last updated 2019-01-12.   This site is PIKT® powered.
Copyright © 1998-2019 Robert Osterlund. All rights reserved.
Home FAQ News Intro Samples Tutorial Reference Software
PIKT Logo
PIKT Page Title
View sample
BIND zone data
config file