sub reports { #should be autogenerated i guess
qw( freeside_version debian_version pg_version
apache_version apache_mpm
+ payment_gateways
);
#ssh_vulnkey
}
$apache_mpm;
}
+sub report_payment_gateways {
+ my @gateways = split(/\n/,
+ `aptitude -F '%c %p' search 'libbusiness-onlinepayment-.*' | grep '^i ' | grep -v '^i libbusiness-onlinepayment-perl' | cut -c29- | cut -d- -f1`
+ );
+ join(', ', @gateways);
+}
+
#sub report_ssh_vulnkey{
# 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;
+}
+