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.
|