Down Systems

This sample downsys_programs.cfg defines a simple Perl script to report down systems.  Note that this is only installed on the piktmaster.

///////////////////////////////////////////////////////////////////////////////
//
// downsys_programs.cfg
//
///////////////////////////////////////////////////////////////////////////////

#if piktmaster

downsys.pl      // list all down systems

        #!=perl
        
        # downsys.pl -- list all down systems
        
        die "Usage:  downsys.pl <secs timeout>\n" if ($#ARGV != 0) ;
        
        foreach $sys (`=piktc -L +H all`) {
                chomp $sys ;
                next if (`=maxtime $ARGV[0] =ping $sys` =~ /is alive/) ;
                print "$sys\n" ;
        }

#endif

///////////////////////////////////////////////////////////////////////////////

On the piktmaster system, we would install the downsys.pl script to itself with the command:

# piktc -iv +P downsys.pl +H piktmaster

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
service downage
script macro