From 978cc3533b38efa38c63898fa7814a4b38efdee3 Mon Sep 17 00:00:00 2001 From: mark Date: Sat, 24 Oct 2009 23:37:42 +0000 Subject: Scripts for paymentech batch transfer --- bin/paymentech-download | 109 ++++++++++++++++++++++++++++++++++++++++++++++++ bin/paymentech-upload | 108 +++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 217 insertions(+) create mode 100755 bin/paymentech-download create mode 100755 bin/paymentech-upload (limited to 'bin') diff --git a/bin/paymentech-download b/bin/paymentech-download new file mode 100755 index 000000000..07d5c7877 --- /dev/null +++ b/bin/paymentech-download @@ -0,0 +1,109 @@ +#!/usr/bin/perl + +use strict; +use Getopt::Std; +use Net::SFTP::Foreign; +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 Date::Format 'time2str'; +use File::Temp; + +use vars qw( $opt_t $opt_v ); +getopts('vt'); + +#$Net::SFTP::Foreign::debug = -1; +sub usage { ' + Usage: + paymentech-download [ -v ] [ -t ] user + +' +} + +my $user = shift or die &usage; +adminsuidsetup $user; + +my $tmpdir = File::Temp->newdir(); + +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) { + $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; + } + system("unzip -P $password -q $tmpdir/$filename\_resp.zip -d $tmpdir"); + if(! -f "$tmpdir/$filename\_resp.xml") { + warn "failed to extract $filename\_resp.xml\n"; + next 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; + } + 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 + +paymentech-download + +paymentech-download - Retrieve payment batch responses from Chase Paymentech. + +=head1 SYNOPSIS + + paymentech-download [ -v ] [ -t ] 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. + +-v: Be verbose. + +-t: Use the test server. + +user: freeside username + +=head1 BUGS + +=head1 SEE ALSO + +L + +=cut + +1; + diff --git a/bin/paymentech-upload b/bin/paymentech-upload new file mode 100755 index 000000000..332339ef9 --- /dev/null +++ b/bin/paymentech-upload @@ -0,0 +1,108 @@ +#!/usr/bin/perl + +use strict; +use Getopt::Std; +use Net::SFTP::Foreign; +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 Date::Format 'time2str'; +use File::Temp; + +use vars qw( $opt_t $opt_v ); +getopts('vt'); + +#$Net::SFTP::Foreign::debug = -1; + +sub usage { ' + Usage: + paymentech-upload [ -v ] [ -t ] user batchnum + +' +} + +my $user = shift or die &usage; +adminsuidsetup $user; + +my $batchnum = shift or die &usage; +my $pay_batch = qsearchs('pay_batch', { batchnum => $batchnum }) + or die "can't find payment batch '$batchnum'\n"; + +my $filename = sprintf('%06d',$batchnum) . '-' .time2str('%Y%m%d%H%M%S', time); +print STDERR "Exporting batch $batchnum to $filename...\n" if $opt_v; +my $tmpdir = File::Temp->newdir(); +my $text = $pay_batch->export_batch('paymentech'); +$text =~ s!FILEID!$filename! + or die "couldn't find FILEID tag\n"; +open OUT, ">$tmpdir/$filename.xml"; +print OUT $text; +close OUT; + +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"; + +# This is less than ideal. +system("zip -P $password -q -j $tmpdir/$filename.zip $tmpdir/$filename.xml"); + +die "failed to create zip file\n" if (! -f "$tmpdir/$filename.zip" ); + + +#my $host = ($opt_t ? 'orbitalbatchvar.paymentech.net' : 'orbitalbatch.paymentech.net'); +my $host = ($opt_t ? 'orbitalbatchvar.paymentech.net' : '127.0.0.1'); +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; + +$sftp->put("$tmpdir/$filename.zip", "$filename.zip") + or die "failed to upload file (".$sftp->error.")\n"; + +print STDERR "Finished!\n" if $opt_v; + +=head1 NAME + +paymentech-upload + +paymentech-upload - Transmit a payment batch to Chase Paymentech via SFTP. + +=head1 SYNOPSIS + + paymentech-upload [ -v ] [ -t ] user batchnum + +=head1 DESCRIPTION + +Command line tool to upload a payment batch to the Chase Paymentech gateway. +The batch will be exported to the Paymentech XML format, packaged in a ZIP +file, and transmitted via SFTP. Use L to retrieve the +response file. + +-v: Be verbose. + +-t: Send the transaction to the test server. + +user: freeside username + +batchnum: pay_batch primary key + +=head1 BUGS + +Passing the zip password on the command line is slightly risky. + +=head1 SEE ALSO + +L + +=cut + +1; + -- cgit v1.2.1