}
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
my $ssh = Net::OpenSSH->new( $self->machine,
default_stdin_fh => $def_in );
- my $private_key = $ssh->run(
+ my $unused_output = $ssh->capture(
'/usr/local/bin/merchant_disable', map $svc_acct->$_, qw( username )
);
return $ssh->error if $ssh->error;