From f1dff96610f1f364c10a5c15777b46d4c7983fe4 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 2 Oct 2006 04:44:46 +0000
Subject: [PATCH] configurable sleep interval, defaulting to 10s

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6331 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/reporter/clark-kent.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl
index bb83d52b0b..c0e5ab83ea 100755
--- a/Open-ILS/src/reporter/clark-kent.pl
+++ b/Open-ILS/src/reporter/clark-kent.pl
@@ -28,10 +28,11 @@ use Tie::IxHash;
 use open ':utf8';
 
 
-my ($count, $config, $lockfile, $daemon) = (1, '/openils/conf/bootstrap.conf', '/tmp/reporter-LOCK');
+my ($count, $config, $sleep_interval, $lockfile, $daemon) = (1, '/openils/conf/bootstrap.conf', 10, '/tmp/reporter-LOCK');
 
 GetOptions(
 	"daemon"	=> \$daemon,
+	"sleep"		=> \$sleep_interval,
 	"concurrency=i"	=> \$count,
 	"boostrap=s"	=> \$config,
 	"lockfile=s"	=> \$lockfile,
@@ -84,7 +85,7 @@ if ($count <= $running) {
 		$dbh->disconnect;
 		sleep 1;
 		POSIX::waitpid( -1, POSIX::WNOHANG );
-		sleep 60;
+		sleep $sleep_interval;
 		goto DAEMON;
 	}
 	print "Already running maximum ($running) concurrent reports\n";
@@ -256,7 +257,7 @@ for my $r ( @reports ) {
 if ($daemon) {
 	sleep 1;
 	POSIX::waitpid( -1, POSIX::WNOHANG );
-	sleep 60;
+	sleep $sleep_interval;
 	goto DAEMON;
 }
 
-- 
2.11.0