projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9741373
)
RT#7473: add -p option
author
mark
<mark>
Mon, 15 Mar 2010 22:31:48 +0000
(22:31 +0000)
committer
mark
<mark>
Mon, 15 Mar 2010 22:31:48 +0000
(22:31 +0000)
FS/bin/freeside-paymentech-upload
patch
|
blob
|
history
diff --git
a/FS/bin/freeside-paymentech-upload
b/FS/bin/freeside-paymentech-upload
index
06bef68
..
3f8abc0
100755
(executable)
--- a/
FS/bin/freeside-paymentech-upload
+++ b/
FS/bin/freeside-paymentech-upload
@@
-12,15
+12,15
@@
use FS::pay_batch;
use FS::cust_pay_batch;
use FS::Conf;
use FS::cust_pay_batch;
use FS::Conf;
-use vars qw( $opt_a $opt_t $opt_v );
-getopts('avt');
+use vars qw( $opt_a $opt_t $opt_v
$opt_p
);
+getopts('avt
p:
');
#$Net::SFTP::Foreign::debug = -1;
sub usage { "
Usage:
freeside-paymentech-upload [ -v ] [ -t ] user batchnum
#$Net::SFTP::Foreign::debug = -1;
sub usage { "
Usage:
freeside-paymentech-upload [ -v ] [ -t ] user batchnum
- freeside-paymentech-upload -a [ -v ] [ -t ] user\n
+ freeside-paymentech-upload -a [ -
p payby ] [ -
v ] [ -t ] user\n
" }
my $user = shift or die &usage;
" }
my $user = shift or die &usage;
@@
-31,8
+31,11
@@
my $zip_check = `which zip` or die "can't find zip executable\n";
my @batches;
if($opt_a) {
my @batches;
if($opt_a) {
- @batches = qsearch('pay_batch', { status => 'O' } );
- die "No open batches found.\n" if !@batches;
+ my %criteria = (status => 'O');
+ $criteria{'payby'} = uc($opt_p) if $opt_p;
+ @batches = qsearch('pay_batch', \%criteria);
+ die "No open batches found".($opt_p ? " of type '$opt_p'" : '').".\n"
+ if !@batches;
}
else {
my $batchnum = shift;
}
else {
my $batchnum = shift;
@@
-95,7
+98,7
@@
freeside-paymentech-upload - Transmit a payment batch to Chase Paymentech via SF
=head1 SYNOPSIS
=head1 SYNOPSIS
- freeside-paymentech-upload [ -a ] [ -v ] [ -t ] user batchnum
+ freeside-paymentech-upload [ -a
[ -p PAYBY ]
] [ -v ] [ -t ] user batchnum
=head1 DESCRIPTION
=head1 DESCRIPTION
@@
-106,6
+109,8
@@
response file.
-a: Send all open batches, instead of specifying a batchnum.
-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.
-v: Be verbose.
-t: Send the transaction to the test server.