#!/usr/bin/perl # $Header: /home/cvs/386BSD/ports/lang/perl/eg/myrup,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ # This was a customization of ruptime requested by someone here who wanted # to be able to find the least loaded machine easily. It uses the # /etc/ghosts file that's defined for gsh and gcp to prune down the # number of entries to those hosts we have administrative control over. print "node load (u)\n------- --------\n"; open(ghosts,'/etc/ghosts') || die "Can't open /etc/ghosts: $!"; line: while () { next line if /^#/; next line if /^$/; next line if /=/; ($host) = split; $wanted{$host} = 1; } open(ruptime,'ruptime|') || die "Can't run ruptime: $!"; open(sort,'|sort +1n'); while () { ($host,$upness,$foo,$users,$foo,$foo,$load) = split(/[\s,]+/); if ($wanted{$host} && $upness eq 'up') { printf sort "%s\t%s (%d)\n", $host, $load, $users; } }