/[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.1 by dpavlin, Fri Jun 28 18:23:35 2002 UTC revision 1.2 by dpavlin, Wed Apr 30 19:49:49 2003 UTC
# Line 1  Line 1 
1  #!/bin/sh  #!/usr/bin/perl -w
2  if [ -z "$2" ] ; then  
3   ruptime | grep $1 |\  if ($#ARGV == 0) {
4   awk '{print $7; print $8; print $9; print $4, $5; print $3, $2; print $1}' |\          open(UPTIME,"ruptime |") || die "ruptime: $!";
5   sed 's/,//'          while(<UPTIME>) {
6  else                  chomp;
7   shift                  if (/$ARGV[0].*(\d+) user.+load.+([\d\.]+), ([\d\.]+), ([\d\.]+)/) {
8   $* |\                          print "$2\n$3\n$4\n$1\n";
9   awk '{print $10; print $11; print $12; print $6, $7}' |\  #               } else {
10   sed 's/,//'  #                       print "skip: $_\n";
11  fi                  }
12            }
13    } else {
14            shift @ARGV;    # ship hostname (used for ruptime)
15            my $cmd = join(" ",@ARGV);
16            open(UPTIME,"$cmd |") || die "$cmd: $!";
17            while(<UPTIME>) {
18                    chomp;
19                    if (/(\d+) user.+load.+([\d\.]+), ([\d\.]+), ([\d\.]+)/) {
20                            print "$2\n$3\n$4\n$1\n";
21    #               } else {
22    #                       print "skip: $_\n";
23                    }
24            }
25    }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26