[freeside-commits] branch master updated. 74183581d97f1c258bc3104b71e1798c9b71d308

Ivan ivan at 420.am
Mon Jan 19 04:42:40 PST 2015


The branch, master has been updated
       via  74183581d97f1c258bc3104b71e1798c9b71d308 (commit)
      from  8e2372530191ae32938786363885aa4b540e29c7 (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 74183581d97f1c258bc3104b71e1798c9b71d308
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Mon Jan 19 04:42:37 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(-)




More information about the freeside-commits mailing list