diff options
author | ivan <ivan> | 2009-11-03 19:03:17 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-11-03 19:03:17 +0000 |
commit | 3e87673b7030bee72bfd3ec0d9096b4e7c9a068b (patch) | |
tree | 3b92c45ccbcfc13dd8a2f9dd9b77b40e2f2bd465 /FS/bin/freeside-paymentech-upload | |
parent | 2b2f85d3b20ea18fe432e18f26bfe3feb07088f1 (diff) |
fix usage of File::Temp->newdir, not in 0.18 File::Temp on perl 5.10.0, RT#5650
Diffstat (limited to 'FS/bin/freeside-paymentech-upload')
-rwxr-xr-x | FS/bin/freeside-paymentech-upload | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/FS/bin/freeside-paymentech-upload b/FS/bin/freeside-paymentech-upload index 6de29ddbb..e0ec4bdac 100755 --- a/FS/bin/freeside-paymentech-upload +++ b/FS/bin/freeside-paymentech-upload @@ -2,6 +2,8 @@ use strict; 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 FS::UID qw(adminsuidsetup datasrc); use FS::Record qw(qsearch qsearchs); @@ -9,21 +11,16 @@ use FS::pay_batch; use FS::cust_pay_batch; use FS::Conf; -use Date::Format 'time2str'; -use File::Temp; - use vars qw( $opt_a $opt_t $opt_v ); getopts('avt'); #$Net::SFTP::Foreign::debug = -1; -sub usage { ' +sub usage { " Usage: paymentech-upload [ -v ] [ -t ] user batchnum - paymentech-upload -a [ -v ] [ -t ] user - -' -} + paymentech-upload -a [ -v ] [ -t ] user\n +" } my $user = shift or die &usage; adminsuidsetup $user; @@ -47,7 +44,8 @@ my @batchconf = $conf->config('batchconfig-paymentech'); my $username = $batchconf[3] or die "no Paymentech batch username configured\n"; my $password = $batchconf[4] or die "no Paymentech batch password configured\n"; -my $tmpdir = File::Temp->newdir(); +#my $tmpdir = File::Temp->newdir(); +my $tmpdir = tempdir( CLEANUP => 1 ); #DIR=>somewhere? my @filenames; |