From: ivan <ivan>
Date: Sun, 27 Feb 2011 19:48:33 +0000 (+0000)
Subject: add start of torrus srvderive daemon, RT#10574
X-Git-Tag: freeside_2_3_0~558
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=89d6ed35f6c14f2e03b73d4148d18f6255ce57e4

add start of torrus srvderive daemon, RT#10574
---

diff --git a/FS/bin/freeside-torrus-srvderive b/FS/bin/freeside-torrus-srvderive
index 2316df5b4..5e68224ff 100644
--- a/FS/bin/freeside-torrus-srvderive
+++ b/FS/bin/freeside-torrus-srvderive
@@ -67,7 +67,6 @@ while (1) {
     $sth->execute($serviceid, $serviceid) or die $sth->errstr;
     my $prev = 0;
     while ( my $row = $sth->fetchrow_arrayref ) {
-      $found++;
       my( $srv_date, $srv_time ) = @$row;
       my $cur = str2time( "$srv_date $srv_time" );
       next if $cur-$prev <= 60;
@@ -75,6 +74,7 @@ while (1) {
       
       warn "no $serviceid for $srv_date $srv_time; adding\n"
         if $DEBUG;
+      $found++;
 
       my @serviceids = $torrus_srvderive->component_serviceids;
 
@@ -113,7 +113,7 @@ while (1) {
 
 
   myexit() if sigterm() || sigint();
-  sleep 60; # unless $found;
+  sleep 60 unless $found;
 }
 
 sub _shouldrun {