home *** CD-ROM | disk | FTP | other *** search
/ ftp.muug.mb.ca / 2014.06.ftp.muug.mb.ca.tar / ftp.muug.mb.ca / pub / src / perl / eg / myrup < prev    next >
Text File  |  1992-04-11  |  883b  |  30 lines
  1. #!/usr/bin/perl
  2.  
  3. # $Header: myrup,v 4.0 91/03/20 01:11:16 lwall Locked $
  4.  
  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.
  9.  
  10. print "node    load (u)\n------- --------\n";
  11.  
  12. open(ghosts,'/etc/ghosts') || die "Can't open /etc/ghosts: $!";
  13. line: while (<ghosts>) {
  14.     next line if /^#/;
  15.     next line if /^$/;
  16.     next line if /=/;
  17.     ($host) = split;
  18.     $wanted{$host} = 1;
  19. }
  20.  
  21. open(ruptime,'ruptime|') || die "Can't run ruptime: $!";
  22. open(sort,'|sort +1n');
  23.  
  24. while (<ruptime>) {
  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;
  28.     }
  29. }
  30.