From 2d7a236d9e0c3a30193d8b115ea9b3ce22ce7444 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 29 Dec 2009 00:38:07 +0000
Subject: add queued-sleep_time

---
 FS/bin/freeside-queued | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'FS/bin/freeside-queued')

diff --git a/FS/bin/freeside-queued b/FS/bin/freeside-queued
index d5d84cced..ffd017a41 100644
--- a/FS/bin/freeside-queued
+++ b/FS/bin/freeside-queued
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use vars qw( $DEBUG $kids $max_kids %kids );
+use vars qw( $DEBUG $kids $max_kids $sleep_time %kids );
 use POSIX qw(:sys_wait_h);
 use IO::File;
 use Getopt::Std;
@@ -54,6 +54,7 @@ daemonize2();
 
 my $conf = new FS::Conf;
 $max_kids = $conf->config('queued-max_kids') || 10;
+$sleep_time = $conf->config('queued-sleep_time') || 10;
 
 my $warnkids=0;
 while (1) {
@@ -128,7 +129,7 @@ while (1) {
       undef $FS::UID::dbh;
       next;
     };
-    sleep 1;
+    sleep $sleep_time;
     next;
   }
 
-- 
cgit v1.2.1