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;