summaryrefslogtreecommitdiff
path: root/cpuload.pl
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2010-11-06 21:13:51 +0000
committerPaul Buetow <paul@buetow.org>2010-11-06 21:13:51 +0000
commit61309a9272445ccac28e8ed3041686d18739a0be (patch)
tree2a445e409dbad121cff2477ca8038e44fe6ca1dc /cpuload.pl
parentf9e698230a761ba3930488bab0640b35c7c94366 (diff)
Diffstat (limited to 'cpuload.pl')
-rwxr-xr-xcpuload.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/cpuload.pl b/cpuload.pl
index 31b2cd4..477135d 100755
--- a/cpuload.pl
+++ b/cpuload.pl
@@ -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;