my $check_freq = $opt{'check_freq'} || '1d';
- $FS::cust_main::DEBUG = 1 if $opt{'v'};
- $FS::cust_main::DEBUG = $opt{'l'} if $opt{'l'};
+ my $debug = 0;
+ $debug = 1 if $opt{'v'};
+ $debug = $opt{'l'} if $opt{'l'};
+
+ $FS::cust_main::DEBUG = $debug;
#$FS::cust_event::DEBUG = $opt{'l'} if $opt{'l'};
-
+
my %search = ();
$search{'payby'} = $opt{'p'} if $opt{'p'};
$search{'agentnum'} = $opt{'a'} if $opt{'a'};
if ( $opt{'m'} ) {
- die "XXX multi-process mode not yet completed";
#add job to queue that calls bill_and_collect with options
+ my $queue = new FS::queue {
+ 'job' => 'FS::cust_main::queued_bill',
+ 'secure' => 'Y',
+ };
+ my $error = $queue->insert(
+ 'custnum' => $cust_main->custnum,
+ 'time' => $time,
+ 'invoice_time' => $invoice_time,
+ 'check_freq' => $check_freq,
+ 'resetup' => $opt{'s'} ? $opt{'s'} : 0,
+ );
} else {
'invoice_time' => $invoice_time,
'check_freq' => $check_freq,
'resetup' => $opt{'s'},
+ 'debug' => $debug,
);
}