diff options
| author | Paul Buetow <paul@buetow.org> | 2010-11-06 21:13:51 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2010-11-06 21:13:51 +0000 |
| commit | 61309a9272445ccac28e8ed3041686d18739a0be (patch) | |
| tree | 2a445e409dbad121cff2477ca8038e44fe6ca1dc | |
| parent | f9e698230a761ba3930488bab0640b35c7c94366 (diff) | |
| -rwxr-xr-x | cpuload.pl | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -31,7 +31,7 @@ my %GLOBAL_CONF :shared; %GLOBAL_CONF = ( average => 20, - samples => 100, + samples => 1000, interval => 0.1, ); @@ -58,11 +58,11 @@ sub parse_cpu_line ($) { } sub get_remote_stat ($) { - my $host = shift; + my $host = shift; loop { my $pid = open2 my $out, my $in, qq{ - ssh $host 'for i in \$(seq 1000); do cat /proc/stat; sleep 0.1; done' + ssh $host 'for i in \$(seq $GLOBAL_CONF{samples}); do cat /proc/stat; sleep 0.1; done' } or die "Error: $!\n"; $SIG{STOP} = sub { @@ -120,7 +120,7 @@ sub graph_stats ($$) { my %last_loads; loop { - my ($x, $y) = (0, 0); + my ($x, $y) = (0, 0); for my $key (sort keys %GLOBAL_STATS) { my ($host, $name) = split ';', $key; |
