From 9bf05e6da4c33578efb15313533f2060d18bdeb4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 21 Dec 2008 18:09:55 +0000
Subject: have freeside-queued put billing jobs in the queue, so they run in
 their own short-lived processes, RT#4423

---
 FS/FS/queue.pm | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'FS/FS/queue.pm')

diff --git a/FS/FS/queue.pm b/FS/FS/queue.pm
index ff94a4e..61cee0a 100644
--- a/FS/FS/queue.pm
+++ b/FS/FS/queue.pm
@@ -70,7 +70,18 @@ UNIX timestamp
 
 =item svcnum
 
-Optional link to service (see L<FS::cust_svc>)
+Optional link to service (see L<FS::cust_svc>).
+
+=item custnum
+
+Optional link to customer (see L<FS::cust_main>).
+
+=item secure
+
+Secure flag, 'Y' indicates that when using encryption, the job needs to be
+run on a machine with the private key.
+
+=cut
 
 =back
 
@@ -103,7 +114,7 @@ created (see L<FS::queue_arg>).
 
 #false laziness w/part_export.pm
 sub insert {
-  my $self = shift;
+  my( $self, @args ) = @_;
 
   local $SIG{HUP} = 'IGNORE';
   local $SIG{INT} = 'IGNORE';
@@ -116,13 +127,16 @@ sub insert {
   local $FS::UID::AutoCommit = 0;
   my $dbh = dbh;
 
+  my %args = @args;
+  $self->custnum( $args{'custnum'} ) if $args{'custnum'};
+
   my $error = $self->SUPER::insert;
   if ( $error ) {
     $dbh->rollback if $oldAutoCommit;
     return $error;
   }
 
-  foreach my $arg ( @_ ) {
+  foreach my $arg ( @args ) {
     my $queue_arg = new FS::queue_arg ( {
       'jobnum' => $self->jobnum,
       'arg'    => $arg,
-- 
cgit v1.1