projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
b4aea58
)
cardfortress merchant deletion (disabling)
author
Ivan Kohler
<ivan@freeside.biz>
Mon, 19 Jan 2015 12:42:41 +0000
(
04:42
-0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Mon, 19 Jan 2015 12:42:41 +0000
(
04:42
-0800)
FS/FS/part_export/cardfortress.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/cardfortress.pm
b/FS/FS/part_export/cardfortress.pm
index
4916a6e
..
68a1aea
100644
(file)
--- 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);
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;
}
1;