/[cricket]/getload
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /getload

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Sat May 17 22:57:52 2003 UTC (20 years, 10 months ago) by dpavlin
Branch: MAIN
Changes since 1.2: +3 -3 lines
fix for 1 minute load

1 #!/usr/bin/perl -w
2
3 if ($#ARGV == 0) {
4 open(UPTIME,"ruptime |") || die "ruptime: $!";
5 while(<UPTIME>) {
6 chomp;
7 if (/$ARGV[0].*(\d+) user.+load.+ ([\d\.]+), ([\d\.]+), ([\d\.]+)/) {
8 print "$2\n$3\n$4\n$1\n";
9 # } else {
10 # print "skip: $_\n";
11 }
12 }
13 } else {
14 shift @ARGV; # ship hostname (used for ruptime)
15 my $cmd = join(" ",@ARGV) || "uptime";
16 open(UPTIME,"$cmd |") || die "$cmd: $!";
17 while(<UPTIME>) {
18 chomp;
19 if (/(\d+) user.+load.+ ([\d\.]+), ([\d\.]+), ([\d\.]+)/) {
20 print "$2\n$3\n$4\n$1\n";
21 # } else {
22 # print "skip: $_\n";
23 }
24 }
25 }

  ViewVC Help
Powered by ViewVC 1.1.26