#!/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";
		}
	}
}