PIKT

Samples: Down Systems

PIKT Logo
Home FAQ News Intro Samples Tutorial Reference Software Authors Licensing SiteSearch

Computer Magazines at Amazon.com

Linux Journal
Linux Journal

Network Security
Network Security

Journal Of Network And Computer Applications
Journal Of Network And Computer Applications

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 | Authors | Licensing | SiteSearch
Links | SiteIndex | Pikt-Users | Pikt-Workers | Contribute | ContactUs | Top of Page
Page best viewed at 1024x768.   Page last updated 2005-06-22.
This site is PIKT® powered.
PIKT® is a registered trademark of the University of Chicago.
Copyright © 1998-2005 Robert Osterlund.  All rights reserved.

Computer Books at Amazon.com

CGI Programming with Perl
CGI Programming with Perl

Perl Debugger Pocket Reference
Perl Debugger Pocket Reference

Randal Schwartz's Perls of Wisdom
Randal Schwartz's Perls of Wisdom