--- getload	2002/06/28 18:23:35	1.1
+++ getload	2003/04/30 19:49:49	1.2
@@ -1,12 +1,25 @@
-#!/bin/sh
-if [ -z "$2" ] ; then
- ruptime | grep $1 |\
- awk '{print $7; print $8; print $9; print $4, $5; print $3, $2; print $1}' |\
- sed 's/,//'
-else
- shift
- $* |\
- awk '{print $10; print $11; print $12; print $6, $7}' |\
- sed 's/,//'
-fi
- 
+#!/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";
+		}
+	}
+}