diff options
| -rw-r--r-- | FS/FS/Tron.pm | 3 | ||||
| -rw-r--r-- | FS/FS/Yori.pm | 8 |
2 files changed, 11 insertions, 0 deletions
diff --git a/FS/FS/Tron.pm b/FS/FS/Tron.pm index dcb917e..3f79e2d 100644 --- a/FS/FS/Tron.pm +++ b/FS/FS/Tron.pm @@ -17,6 +17,9 @@ our %desired = ( 'debian_version' => qr/^4/, 'apache_mpm' => qw/^(Prefork|$)/, + #payment gateway survey + 'payment_gateway' => qw/^authorizenet$/, + #stuff to add/replace later #'pg_version' => qr/^8\.[1-9]/, #'apache_version' => qr/^2/, diff --git a/FS/FS/Yori.pm b/FS/FS/Yori.pm index 01f36b1..8ecb05a 100644 --- a/FS/FS/Yori.pm +++ b/FS/FS/Yori.pm @@ -9,6 +9,7 @@ our @EXPORT_OK = qw( reports report ); sub reports { #should be autogenerated i guess qw( freeside_version debian_version pg_version apache_version apache_mpm + payment_gateways ); #ssh_vulnkey } @@ -59,6 +60,13 @@ sub report_apache_mpm { $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; |