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

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

diff --git a/FS/bin/freeside-torrus-srvderive b/FS/bin/freeside-torrus-srvderive
index 6708cc69b..9ecfbbc72 100644
--- a/FS/bin/freeside-torrus-srvderive
+++ b/FS/bin/freeside-torrus-srvderive
@@ -8,7 +8,7 @@ use FS::UID qw( adminsuidsetup dbh driver_name );
 use FS::Record qw( qsearch str2time_sql str2time_sql_closing concat_sql );
 use FS::torrus_srvderive;
 
-our $DEBUG = 1;
+our $DEBUG = 3;
 
 my $user = shift or die &usage;
 $FS::Daemon::PID_NEWSTYLE = 1;
@@ -51,7 +51,7 @@ my $sql = "
                            AND ABS( $_date - $other_date ) <= 60
                      )
     ORDER BY srv_date, srv_time
-    LIMIT 10
+    LIMIT 100
 ";
 
 while (1) {
@@ -67,11 +67,13 @@ while (1) {
     $sth->execute($serviceid, $serviceid) or die $sth->errstr;
     my $prev = 0;
     while ( my $row = $sth->fetchrow_arrayref ) {
+      last if sigterm() || sigint();
+
       my( $srv_date, $srv_time ) = @$row;
       my $cur = str2time( "$srv_date $srv_time" );
       next if $cur-$prev <= 60;
       last if time - $cur <= 300;
-      
+
       warn "no $serviceid for $srv_date $srv_time; adding\n"
         if $DEBUG;
       $found++;