1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
#!/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 FS::Log;
use vars qw( $opt_a $opt_t $opt_v $opt_p );
getopts('avtp:');
#$Net::SFTP::Foreign::debug = -1;
sub log_and_die {
my $message = shift;
my $log = FS::Log->new('freeside-paymentech-upload');
$log->error($message);
die $message;
}
sub usage { "
Usage:
freeside-paymentech-upload [ -v ] [ -t ] user batchnum
freeside-paymentech-upload -a [ -p payby ] [ -v ] [ -t ] user\n
" }
my $user = shift or die &usage;
adminsuidsetup $user;
my $zip_check = `which zip` or log_and_die("can't find zip executable\n");
my @batches;
if($opt_a) {
my %criteria = (status => 'O');
$criteria{'payby'} = uc($opt_p) if $opt_p;
$criteria{'type'} = 'DEBIT' unless FS::pay_batch->can_handle_electronic_refunds('paymentech');
@batches = qsearch('pay_batch', \%criteria);
log_and_die("No open batches found".($opt_p ? " of type '$opt_p'" : '').".\n")
if !@batches;
}
else {
my $batchnum = shift;
log_and_die("batchnum not passed\n".&usage) if !$batchnum;
@batches = qsearchs('pay_batch', { batchnum => $batchnum } );
log_and_die("Can't find payment batch '$batchnum'\n") if !@batches;
if ($batches[0]->type eq "CREDIT") {
warn "running credit\n";
log_and_die( "Batch number $batchnum is a credit (batch refund) batch, and this format can not handle batch refunds.\n" )
unless FS::pay_batch->can_handle_electronic_refunds('paymentech');
}
}
my $conf = new FS::Conf;
my @batchconf = $conf->config('batchconfig-paymentech');
# BIN, terminalID, merchantID, username, password
my $username = $batchconf[3] or log_and_die("no Paymentech batch username configured\n");
my $password = $batchconf[4] or log_and_die("no Paymentech batch password configured\n");
#my $tmpdir = File::Temp->newdir();
my $tmpdir = tempdir( CLEANUP => 1 ); #DIR=>somewhere?
my @filenames;
foreach my $pay_batch (@batches) {
my $batchnum = $pay_batch->batchnum;
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 $text = $pay_batch->export_batch(format => 'paymentech');
unless ($text) {
print STDERR "Batch is empty, resolving..." if $opt_v;
next;
}
$text =~ s!<fileID>FILEID</fileID>!<fileID>$filename</fileID>!
or log_and_die("couldn't find FILEID tag\n");
open OUT, ">$tmpdir/$filename.xml";
print OUT $text;
close OUT;
system('zip', '-P', $password, '-q', '-j',
"$tmpdir/$filename.zip", "$tmpdir/$filename.xml");
log_and_die("failed to create zip file\n") if (! -f "$tmpdir/$filename.zip" );
push @filenames, $filename;
}
log_and_die("All batches empty\n") if !@filenames;
my $host = ($opt_t ? 'orbitalbatchvar.paymentech.net'
: 'orbitalbatch.paymentech.net');
print STDERR "Connecting to $username\@$host...\n" if $opt_v;
my $sftp;
my $ssh_retry = 25; # number of times to try connection, needs to be >= 1
my $ssh_retry_wait = 60*5; # seconds to wait between tries
while ($ssh_retry > 0) {
$sftp = Net::SFTP::Foreign->new( host => $host,
user => $username,
password => $password,
timeout => 300,
);
last unless $sftp->error;
$ssh_retry -= 1;
sleep($ssh_retry_wait) if $ssh_retry > 0;
}
log_and_die("failed to connect to '$username\@$host'\n(".$sftp->error.")\n")
if $sftp->error;
foreach my $filename (@filenames) {
$sftp->put("$tmpdir/$filename.zip", "$filename.zip")
or log_and_die("failed to upload file (".$sftp->error.")\n");
}
print STDERR "Finished!\n" if $opt_v;
=head1 NAME
freeside-paymentech-upload - Transmit a payment batch to Chase Paymentech via SFTP.
=head1 SYNOPSIS
freeside-paymentech-upload [ -a [ -p PAYBY ] ] [ -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<freeside-paymentech-download> to retrieve the
response file.
-a: Send all open batches, instead of specifying a batchnum.
-p PAYBY: With -a, limit to batches of that payment type, e.g. -p CARD.
-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<FS::pay_batch>
=cut
1;
|
