3 # $RCSfile: myrup,v $$Revision: 4.1 $$Date: 92/08/07 17:20:26 $
5 # This was a customization of ruptime requested by someone here who wanted
6 # to be able to find the least loaded machine easily. It uses the
7 # /etc/ghosts file that's defined for gsh and gcp to prune down the
8 # number of entries to those hosts we have administrative control over.
10 print "node load (u)\n------- --------\n";
12 open(ghosts,'/etc/ghosts') || die "Can't open /etc/ghosts: $!";
13 line: while (<ghosts>) {
21 open(ruptime,'ruptime|') || die "Can't run ruptime: $!";
22 open(sort,'|sort +1n');
25 ($host,$upness,$foo,$users,$foo,$foo,$load) = split(/[\s,]+/);
26 if ($wanted{$host} && $upness eq 'up') {
27 printf sort "%s\t%s (%d)\n", $host, $load, $users;