From f0d52fc82b138598228c401d99b56e88366c6945 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 28 Aug 2008 19:09:19 +0000
Subject: [PATCH] payment gateway survey

---
 FS/FS/Tron.pm | 3 +++
 FS/FS/Yori.pm | 8 ++++++++
 2 files changed, 11 insertions(+)

diff --git a/FS/FS/Tron.pm b/FS/FS/Tron.pm
index dcb917e21..3f79e2d0d 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 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;
-- 
2.11.0