viewvc.cgi/cricket/getload

#!/usr/bin/perl -w

if ($#ARGV == 0) {
        open(UPTIME,"ruptime |") || die "ruptime: $!";
        while(<UPTIME>) {
                chomp;
                if (/$ARGV[0].*(\d+) user.+load.+([\d\.]+), ([\d\.]+), ([\d\.]+)/) {
                        print "$2\n$3\n$4\n$1\n";
#               } else {
#                       print "skip: $_\n";
                }
        }
} else {
        shift @ARGV;    # ship hostname (used for ruptime)
        my $cmd = join(" ",@ARGV);
        open(UPTIME,"$cmd |") || die "$cmd: $!";
        while(<UPTIME>) {
                chomp;
                if (/(\d+) user.+load.+([\d\.]+), ([\d\.]+), ([\d\.]+)/) {
                        print "$2\n$3\n$4\n$1\n";
#               } else {
#                       print "skip: $_\n";
                }
        }
}
1	dpavlin	1.2	#!/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);
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			}