contacts can be shared among customers / "duplicate contact emails", RT#27943

[freeside.git] / FS / FS / part_export / cardfortress.pm

diff --git a/FS/FS/part_export/cardfortress.pm b/FS/FS/part_export/cardfortress.pm
index 68a1aea..154f979 100644 (file)
--- a/FS/FS/part_export/cardfortress.pm
+++ b/FS/FS/part_export/cardfortress.pm
@@ -28,6 +28,7 @@ sub _export_insert {
   my $ssh = Net::OpenSSH->new( $self->machine,
                                default_stdin_fh => $def_in );
 
+  #capture2 and return STDERR, its probably useful if there's a problem
   my $private_key = $ssh->capture(
     { 'stdin_data' => $svc_acct->_password. "\n" },
     '/usr/local/bin/merchant_create', map $svc_acct->$_, qw( username finger )
@@ -56,7 +57,7 @@ sub _export_replace {
 }
 
 sub _export_delete {
-  #my( $self, $svc_x ) = (shift, shift);
+  my( $self, $svc_acct ) = (shift, shift);
 
   #well, we're just going to disable them for now, but there you go
 
@@ -67,7 +68,8 @@ sub _export_delete {
   my $ssh = Net::OpenSSH->new( $self->machine,
                                default_stdin_fh => $def_in );
 
-  my $private_key = $ssh->run(
+  #capture2 and return STDERR, its probably useful if there's a problem
+  my $unused_output = $ssh->capture(
     '/usr/local/bin/merchant_disable', map $svc_acct->$_, qw( username )
   );
   return $ssh->error if $ssh->error;