diff options
Diffstat (limited to 'FS/bin/freeside-paymentech-download')
-rwxr-xr-x | FS/bin/freeside-paymentech-download | 137 |
1 files changed, 0 insertions, 137 deletions
diff --git a/FS/bin/freeside-paymentech-download b/FS/bin/freeside-paymentech-download deleted file mode 100755 index 16ac3c2..0000000 --- a/FS/bin/freeside-paymentech-download +++ /dev/null @@ -1,137 +0,0 @@ -#!/usr/bin/perl - -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 Expect; -use FS::UID qw(adminsuidsetup datasrc); -use FS::Record qw(qsearch qsearchs); -use FS::pay_batch; -use FS::cust_pay_batch; -use FS::Conf; - -use vars qw( $opt_t $opt_v $opt_a ); -getopts('vta:'); - -#$Net::SFTP::Foreign::debug = -1; -sub usage { " - Usage: - freeside-paymentech-download [ -v ] [ -t ] [ -a archivedir ] user\n -" } - -my $user = shift or die &usage; -adminsuidsetup $user; - -if ( $opt_a ) { - die "no such directory: $opt_a\n" - unless -d $opt_a; - die "archive directory $opt_a is not writable by the freeside user\n" - unless -w $opt_a; -} - -my $unzip_check = `which unzip` or die "can't find unzip executable\n"; - -#my $tmpdir = File::Temp->newdir(); -my $tmpdir = tempdir( CLEANUP => 1 ); #DIR=>somewhere? - -my $conf = new FS::Conf; -my @batchconf = $conf->config('batchconfig-paymentech'); -# BIN, terminalID, merchantID, username, password -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 $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, - user => $username, - password => $password, - timeout => 30, - ); -die "failed to connect to '$username\@$host'\n(".$sftp->error.")\n" if $sftp->error; - -my @files = map { $_->{filename} } @{ $sftp->ls('.', wanted => qr/_resp\.zip$/) }; -die "no response files found\n" if !@files; - -BATCH: foreach my $filename (@files) { - - #get file - $filename =~ s/_resp\.zip$//; - print STDERR "Retrieving $filename\n" if $opt_v; - $sftp->get("$filename\_resp.zip", "$tmpdir/${filename}_resp.zip"); - if($sftp->error) { - warn "failed to download $filename\n"; - next BATCH; - } - - #unzip file - system('unzip', '-P', $password, '-q', - "$tmpdir/${filename}_resp.zip", '-d', $tmpdir); - if(! -f "$tmpdir/${filename}_resp.xml") { - warn "failed to extract ${filename}_resp.xml from ${filename}_resp.zip\n"; - next BATCH; - } - - #copy to archive dir - if ( $opt_a ) { - print STDERR "Copying $tmpdir/${filename}_resp.xml to archive dir $opt_a\n" - if $opt_v; - system 'cp', "$tmpdir/${filename}_resp.xml", $opt_a; - warn "failed to copy $tmpdir/${filename}_resp.xml to $opt_a: $@" if $@; - } - - #get batchnum & retrieve pending batch - open my $fh, "<$tmpdir/${filename}_resp.xml"; - my ($batchnum) = split ('-', $filename); - $batchnum = sprintf("%d", $batchnum); # remove leading zeroes - my $batch = qsearchs('pay_batch', { batchnum => $batchnum }); - if(! $batch) { - warn "batch '$batchnum' not found\n"; - next BATCH; - } - - #and import results - print STDERR "Importing batch #$batchnum\n" if $opt_v; - my $error = $batch->import_results( filehandle => $fh, - format => 'paymentech' ); - warn "error: $error\n" if $error; - -} - -print STDERR "Finished!\n" if $opt_v; - -=head1 NAME - -freeside-paymentech-download - Retrieve payment batch responses from Chase Paymentech. - -=head1 SYNOPSIS - - paymentech-download [ -v ] [ -t ] [ -a archivedir ] user - -=head1 DESCRIPTION - -Command line tool to download payment batch responses from the Chase Paymentech -gateway. These are XML files packaged in ZIP files. This script downloads them -by SFTP, extracts the contents, and passes them to L<FS::pay_batch::import_result>. - --v: Be verbose. - --t: Use the test server. - --a directory: Archive response files in the provided directory. - -user: freeside username - -=head1 BUGS - -=head1 SEE ALSO - -L<FS::pay_batch> - -=cut - -1; - |