/[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.4 by dpavlin, Sat May 31 13:50:23 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/,//'          my $host = $ARGV[0];
6  else          while(<UPTIME>) {
7   shift                  chomp;
8   $* |\                  if (/$host.+(\d+) user.+load.+?([\d\.]+), ([\d\.]+), ([\d\.]+)$/) {
9   awk '{print $10; print $11; print $12; print $6, $7}' |\                          print "$2\n$3\n$4\n$1\n";
10   sed 's/,//'  #               } else {
11  fi  #                       print "skip: $_\n";
12                    }
13            }
14    } else {
15            shift @ARGV;    # ship hostname (used for ruptime)
16            my $cmd = join(" ",@ARGV) || "uptime";
17            open(UPTIME,"$cmd |") || die "$cmd: $!";
18            while(<UPTIME>) {
19                    chomp;
20                    if (/(\d+) user.+load.+ ([\d\.]+), ([\d\.]+), ([\d\.]+)/) {
21                            print "$2\n$3\n$4\n$1\n";
22    #               } else {
23    #                       print "skip: $_\n";
24                    }
25            }
26    }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26