diff options
author | jeff <jeff> | 2009-12-23 23:14:12 +0000 |
---|---|---|
committer | jeff <jeff> | 2009-12-23 23:14:12 +0000 |
commit | 45eab8ef3fd8fed016b401da8a5a8cbb9b657dc7 (patch) | |
tree | 8b5e63d79c59d4f0f8d056532626db64a482e506 | |
parent | b50700f72235bcbc23df43f4cf550b5676d70ed7 (diff) |
teach yori to do some load monitoring
-rw-r--r-- | FS/FS/Yori.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/FS/FS/Yori.pm b/FS/FS/Yori.pm index 8ecb05a0f..b5bdc0c16 100644 --- a/FS/FS/Yori.pm +++ b/FS/FS/Yori.pm @@ -71,3 +71,24 @@ sub report_payment_gateways { # my $ssh_vulnkey = `ssh-vulnkey -a | grep COMPROMISED`; # $ssh_vulnkey; #} + +sub report_load { + open LOAD, "</proc/loadavg" || return; + my($one, $five, $fifteen) = split ' ', <LOAD>; + close LOAD; + ($one, $five, $fifteen); +} + +sub report_freememory { + open MEM, "</proc/meminfo" || return; + my $free = 0; + my @interesting = qw( MemFree Cached SwapFree ); + while (<MEM>) { + /^(\w*):\s*(\d*) kB$/ || next; + next unless grep { $_ eq $1 } @interesting; + $free += $2; + } + close MEM; + $free; +} + |