[freeside-commits] branch FREESIDE_3_BRANCH updated. bdb82505541105352ceeefb63aab40df7f25dc45

[Ivan]

The branch, FREESIDE_3_BRANCH has been updated
       via  bdb82505541105352ceeefb63aab40df7f25dc45 (commit)
      from  b4aea58e0d04ff1930397e0f96ecdc50748b748b (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit bdb82505541105352ceeefb63aab40df7f25dc45
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Mon Jan 19 04:42:41 2015 -0800

    cardfortress merchant deletion (disabling)

diff --git a/FS/FS/part_export/cardfortress.pm b/FS/FS/part_export/cardfortress.pm
index 4916a6e..68a1aea 100644
--- a/FS/FS/part_export/cardfortress.pm
+++ b/FS/FS/part_export/cardfortress.pm
@@ -58,7 +58,22 @@ sub _export_replace {
 sub _export_delete {
   #my( $self, $svc_x ) = (shift, shift);
 
-  return 'deletion not yet supproted';
+  #well, we're just going to disable them for now, but there you go
+
+  eval "use Net::OpenSSH;";
+  return $@ if $@;
+
+  open my $def_in, '<', '/dev/null' or die "unable to open /dev/null";
+  my $ssh = Net::OpenSSH->new( $self->machine,
+                               default_stdin_fh => $def_in );
+
+  my $private_key = $ssh->run(
+    '/usr/local/bin/merchant_disable', map $svc_acct->$_, qw( username )
+  );
+  return $ssh->error if $ssh->error;
+
+  '';
+
 }
 
 1;

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/part_export/cardfortress.pm |   17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)