viewvc.cgi/cricket/getload

#!/usr/bin/perl -w

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