diff options
Diffstat (limited to 'lib')
| -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 ) { |