use FS::agent;
@ISA = qw( Exporter );
-@EXPORT_OK = qw ( batch_submit batch_receive );
+@EXPORT_OK = qw ( pay_batch_submit pay_batch_receive );
$DEBUG = 0;
$me = '[FS::Cron::pay_batch]';
# -r: Multi-process mode dry run option
# -a: Only process customers with the specified agentnum
-sub batch_submit {
+sub pay_batch_submit {
my %opt = @_;
local $DEBUG = ($opt{l} || 1) if $opt{v};
# if anything goes wrong, don't try to roll back previously submitted batches
# warn the error and continue. rolling back the transaction once
# we've started sending batches is bad.
warn "error submitting batch ".$pay_batch->batchnum." to gateway '".
- $gateway->label."\n$@\n";
+ $gateway->label."': $@\n";
}
}
1;
}
-sub batch_receive {
+sub pay_batch_receive {
my %opt = @_;
local $DEBUG = ($opt{l} || 1) if $opt{v};
local $FS::UID::AutoCommit = 0;