bin/paymentech-download

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Getopt::Std;
   5 use Net::SFTP::Foreign;
   6 use FS::UID qw(adminsuidsetup datasrc);
   7 use FS::Record qw(qsearch qsearchs);
   8 use FS::pay_batch;
   9 use FS::cust_pay_batch;
  10 use FS::Conf;
  11
  12 use Date::Format 'time2str';
  13 use File::Temp;
  14
  15 use vars qw( $opt_t $opt_v $opt_a );
  16 getopts('vta:');
  17
  18 #$Net::SFTP::Foreign::debug = -1;
  19 sub usage { '
  20   Usage:
  21       paymentech-download [ -v ] [ -t ] [ -a archivedir ] user
  22
  23 '
  24 }
  25
  26 my $user = shift or die &usage;
  27 adminsuidsetup $user;
  28
  29 if ( $opt_a ) {
  30   die "no such directory: $opt_a\n"
  31     unless -d $opt_a;
  32   die "archive directory $opt_a is not writable by the freeside user\n"
  33     unless -w $opt_a;
  34 }
  35
  36 my $tmpdir = File::Temp->newdir();
  37
  38 my $conf = new FS::Conf;
  39 my @batchconf = $conf->config('batchconfig-paymentech');
  40 # BIN, terminalID, merchantID, username, password
  41 my $username = $batchconf[3] or die "no Paymentech batch username configured\n";
  42 my $password = $batchconf[4] or die "no Paymentech batch password configured\n";
  43
  44 my $host = ($opt_t ? 'orbitalbatchvar.paymentech.net' : 'orbitalbatch.paymentech.net');
  45 print STDERR "Connecting to $username\@$host...\n" if $opt_v;
  46
  47 my $sftp = Net::SFTP::Foreign->new( host => $host,
  48                                     user => $username,
  49                                     password => $password,
  50                                     timeout => 30,
  51                                     );
  52 die "failed to connect to '$username\@$host'\n(".$sftp->error.")\n" if $sftp->error;
  53
  54 my @files = map { $_->{filename} } @{ $sftp->ls('.', wanted => qr/_resp\.zip$/) };
  55 die "no response files found\n" if !@files;
  56
  57 BATCH: foreach my $filename (@files) {
  58
  59   #get file
  60   $filename =~ s/_resp\.zip$//;
  61   print STDERR "Retrieving $filename\n" if $opt_v;
  62   $sftp->get("$filename\_resp.zip", "$tmpdir/${filename}_resp.zip");
  63   if($sftp->error) {
  64     warn "failed to download $filename\n";
  65     next BATCH;
  66   }
  67
  68   #unzip file
  69   system("unzip -P $password -q $tmpdir/${filename}_resp.zip -d $tmpdir");
  70   if(! -f "$tmpdir/${filename}_resp.xml") {
  71     warn "failed to extract ${filename}_resp.xml\n";
  72     next BATCH;
  73   }
  74
  75   #copy to archive dir
  76   if ( $opt_a ) {
  77     print STDERR "Copying $tmpdir/${filename}_resp.xml to archive dir $opt_a\n"
  78       if $opt_v;
  79     system 'cp', "$tmpdir/${filename}_resp.xml", $opt_a;
  80     warn "failed to copy $tmpdir/${filename}_resp.xml to $opt_a: $@" if $@;
  81   }
  82
  83   #get batchnum & retrieve pending batch
  84   open my $fh, "<$tmpdir/${filename}_resp.xml";
  85   my ($batchnum) = split ('-', $filename);
  86   $batchnum = sprintf("%d", $batchnum); # remove leading zeroes
  87   my $batch = qsearchs('pay_batch', { batchnum => $batchnum });
  88   if(! $batch) {
  89     warn "batch '$batchnum' not found\n";
  90     next BATCH;
  91   }
  92
  93   #and import results
  94   print STDERR "Importing batch #$batchnum\n" if $opt_v;
  95   my $error = $batch->import_results( filehandle => $fh,
  96                                       format     => 'paymentech' );
  97   warn "error: $error\n" if $error;
  98
  99 }
 100
 101 print STDERR "Finished!\n" if $opt_v;
 102
 103 =head1 NAME
 104
 105 paymentech-download
 106
 107 paymentech-download - Retrieve payment batch responses from Chase Paymentech.
 108
 109 =head1 SYNOPSIS
 110
 111   paymentech-download [ -v ] [ -t ] [ -a archivedir ] user
 112
 113 =head1 DESCRIPTION
 114
 115 Command line tool to download payment batch responses from the Chase Paymentech
 116 gateway.  These are XML files packaged in ZIP files.  This script downloads them
 117 by SFTP, extracts the contents, and passes them to L<FS::pay_batch::import_result>.
 118
 119 -v: Be verbose.
 120
 121 -t: Use the test server.
 122
 123 -a directory: Archive response files in the provided directory.
 124
 125 user: freeside username
 126
 127 =head1 BUGS
 128
 129 =head1 SEE ALSO
 130
 131 L<FS::pay_batch>
 132
 133 =cut
 134
 135 1;
 136