/[cricket]/getload
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /getload

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Sat May 17 22:57:52 2003 UTC revision 1.4 by dpavlin, Sat May 31 13:50:23 2003 UTC
# Line 2  Line 2 
2    
3  if ($#ARGV == 0) {  if ($#ARGV == 0) {
4          open(UPTIME,"ruptime |") || die "ruptime: $!";          open(UPTIME,"ruptime |") || die "ruptime: $!";
5            my $host = $ARGV[0];
6          while(<UPTIME>) {          while(<UPTIME>) {
7                  chomp;                  chomp;
8                  if (/$ARGV[0].*(\d+) user.+load.+ ([\d\.]+), ([\d\.]+), ([\d\.]+)/) {                  if (/$host.+(\d+) user.+load.+?([\d\.]+), ([\d\.]+), ([\d\.]+)$/) {
9                          print "$2\n$3\n$4\n$1\n";                          print "$2\n$3\n$4\n$1\n";
10  #               } else {  #               } else {
11  #                       print "skip: $_\n";  #                       print "skip: $_\n";

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.26