X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-paymentech-upload;h=42bd278c1fd18fa39676ab1a6074ef5f9189cce3;hb=18968caa4eba37b6b036cfafaa637cf80c6467dc;hp=985095e68029435de5a498ec5550fbe776b627a3;hpb=95053c1edcfa416ff272a4e5afd421316410a715;p=freeside.git diff --git a/FS/bin/freeside-paymentech-upload b/FS/bin/freeside-paymentech-upload index 985095e68..42bd278c1 100755 --- a/FS/bin/freeside-paymentech-upload +++ b/FS/bin/freeside-paymentech-upload @@ -5,6 +5,7 @@ use Getopt::Std; use Date::Format qw(time2str); use File::Temp qw(tempdir); #0.19 for ->newdir() interface, not in 5.10.0 use Net::SFTP::Foreign; +use Expect; use FS::UID qw(adminsuidsetup datasrc); use FS::Record qw(qsearch qsearchs); use FS::pay_batch; @@ -69,8 +70,8 @@ foreach my $pay_batch (@batches) { push @filenames, $filename; } -my $host = ($opt_t ? 'orbitalbatchvar.paymentech.net' : - 'orbitalbatch.paymentech.net'); +my $host = ($opt_t ? 'orbitalbatchvar.paymentech.net' + : 'orbitalbatch.paymentech.net'); print STDERR "Connecting to $username\@$host...\n" if $opt_v; my $sftp = Net::SFTP::Foreign->new( host => $host,