configurable sleep interval, defaulting to 10s

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6331 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl
index bb83d52..c0e5ab8 100755 (executable)
--- 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;
 }