X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-queued;h=740f14f5f2cc6dd9ec2ee1f68e3ffe0a3cef72f7;hb=50426a1493ea142877f16be8383453ce5ad09021;hp=2188dd40441994d6ddb3ea7d70817efd3b258426;hpb=131aba5f00163b03024dd78cbd4ebd8be6366105;p=freeside.git

diff --git a/FS/bin/freeside-queued b/FS/bin/freeside-queued
index 2188dd404..740f14f5f 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 FS::UID qw(adminsuidsetup forksuidsetup driver_name dbh myconnect);
@@ -49,6 +49,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) {
@@ -108,7 +109,7 @@ while (1) {
       undef $FS::UID::dbh;
       next;
     };
-    sleep 1;
+    sleep $sleep_time;
     next;
   }