From 9fa2bad9e9954ba0f838b032b4732de6847bb55b Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 3 Dec 2012 20:27:16 -0800
Subject: [PATCH] add suspend/unsuspend to http exports, RT#20054

---
 FS/FS/part_export/acct_http.pm      | 12 ++++++++++++
 FS/FS/part_export/broadband_http.pm | 12 ++++++++++++
 FS/FS/part_export/http.pm           | 22 ++++++++++++++++++++++
 3 files changed, 46 insertions(+)

diff --git a/FS/FS/part_export/acct_http.pm b/FS/FS/part_export/acct_http.pm
index 23df7b37d..af358997e 100644
--- a/FS/FS/part_export/acct_http.pm
+++ b/FS/FS/part_export/acct_http.pm
@@ -41,6 +41,18 @@ tie %options, 'Tie::IxHash',
       "password \$new->_password",
     ),
   },
+  'suspend_data' => {
+    label   => 'Suspend data',
+    type    => 'textarea',
+    default => join("\n",
+    ),
+  },
+  'unsuspend_data' => {
+    label   => 'Unsuspend data',
+    type    => 'textarea',
+    default => join("\n",
+    ),
+  },
   'success_regexp' => {
     label  => 'Success Regexp',
     default => '',
diff --git a/FS/FS/part_export/broadband_http.pm b/FS/FS/part_export/broadband_http.pm
index c1ed7fca6..5be8b6851 100644
--- a/FS/FS/part_export/broadband_http.pm
+++ b/FS/FS/part_export/broadband_http.pm
@@ -35,6 +35,18 @@ tie %options, 'Tie::IxHash',
     type    => 'textarea',
     default => '',
   },
+  'suspend_data' => {
+    label   => 'Suspend data',
+    type    => 'textarea',
+    default => join("\n",
+    ),
+  },
+  'unsuspend_data' => {
+    label   => 'Unsuspend data',
+    type    => 'textarea',
+    default => join("\n",
+    ),
+  },
   'success_regexp' => {
     label   => 'Success Regexp',
     default => '',
diff --git a/FS/FS/part_export/http.pm b/FS/FS/part_export/http.pm
index c35c89f12..0d62409fc 100644
--- a/FS/FS/part_export/http.pm
+++ b/FS/FS/part_export/http.pm
@@ -33,6 +33,18 @@ tie %options, 'Tie::IxHash',
     default => join("\n",
     ),
   },
+  'suspend_data' => {
+    label   => 'Suspend data',
+    type    => 'textarea',
+    default => join("\n",
+    ),
+  },
+  'unsuspend_data' => {
+    label   => 'Unsuspend data',
+    type    => 'textarea',
+    default => join("\n",
+    ),
+  },
   'success_regexp' => {
     label  => 'Success Regexp',
     default => '',
@@ -64,6 +76,16 @@ sub _export_delete {
   $self->_export_command('delete', @_);
 }
 
+sub _export_suspend {
+  my $self = shift;
+  $self->_export_command('suspend', @_);
+}
+
+sub _export_unsuspend {
+  my $self = shift;
+  $self->_export_command('unsuspend', @_);
+}
+
 sub _export_command {
   my( $self, $action, $svc_x ) = ( shift, shift, shift );
 
-- 
2.11.0