home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / newsclip / pmeter < prev    next >
Encoding:
Text File  |  1993-07-14  |  561 b   |  28 lines
  1. #!/usr/local/bin/perl
  2.  
  3. ($loadavg, $pid, $debug) = @ARGV;
  4. $running = 1;
  5.  
  6. while (kill 0, $pid) {
  7.     `/usr/ucb/uptime` =~ /load average:\s+([\d.]+)/
  8.     || die "Can't run uptime: $!\n";;
  9.  
  10.     if ($1 > $loadavg) {
  11.     kill 'STOP', $pid;
  12.     if ($running) {
  13.         print STDERR "stopping at $1\r\n" if $debug;
  14.         $0 = "pmeter (stopped $pid at $loadavg)";
  15.         $running = 0;
  16.     }
  17.     }
  18.     else {
  19.     kill 'CONT', $pid;
  20.     if (!$running) {
  21.         print STDERR "starting at $1\r\n" if $debug;
  22.         $0 = "pmeter (started $pid at $loadavg)";
  23.         $running = 1;
  24.     }
  25.     }
  26.     sleep 120;
  27. }
  28.