diff options
Diffstat (limited to 'FS/FS/Yori.pm')
-rw-r--r-- | FS/FS/Yori.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/FS/FS/Yori.pm b/FS/FS/Yori.pm index 01f36b1c0..8ecb05a0f 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; |