From: jeff <jeff>
Date: Wed, 23 Dec 2009 23:14:12 +0000 (+0000)
Subject: teach yori to do some load monitoring
X-Git-Tag: root_of_svc_elec_features~600
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=45eab8ef3fd8fed016b401da8a5a8cbb9b657dc7

teach yori to do some load monitoring
---

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;
+}
+