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