diff options
| author | Paul Buetow <paul@buetow.org> | 2012-06-23 15:49:59 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2012-06-23 15:49:59 +0200 |
| commit | 6fefdd8711af61d6f7b5bdcca9b242a92a529e1d (patch) | |
| tree | 4c837e1f088e9c9ff8faf3ce5a99546c05d1c92d /lib/Loadbars/Main.pm | |
| parent | 76d58f04f7681cc9849b0dd44856b55f65ca7311 (diff) | |
calculate loadavg remote
Diffstat (limited to 'lib/Loadbars/Main.pm')
| -rw-r--r-- | lib/Loadbars/Main.pm | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lib/Loadbars/Main.pm b/lib/Loadbars/Main.pm index ba9c6cd..afce58c 100644 --- a/lib/Loadbars/Main.pm +++ b/lib/Loadbars/Main.pm @@ -114,9 +114,16 @@ sub stats_thread ($;$) { close \\\$fh; } - for (0..$C{samples}) { + sub loadavg { printf qq(LOADAVG\n); - cat(qq(/proc/loadavg)); + open my \\\$fh, qq(/proc/loadavg); + printf qq(%s\n), join qq(;), (split qq( ), <\\\$fh>)[0..2]; + close \\\$fh; + } + + for (0..$C{samples}) { + loadavg(); + printf qq(CPUSTATS\n); cat(qq(/proc/stat)); printf qq(MEMSTATS\n); @@ -156,9 +163,8 @@ REMOTECODE $mode = 1; } - elsif ($_ =~ $loadavg_re) { - $AVGSTATS{$host} = "$1;$2;$3"; - + else { + $AVGSTATS{$host} = $_; } } elsif ( $mode == 1 ) { |