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

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

diff --git a/FS/bin/freeside-torrus-srvderive b/FS/bin/freeside-torrus-srvderive
index f25ba40bc..a3f88aae0 100644
--- a/FS/bin/freeside-torrus-srvderive
+++ b/FS/bin/freeside-torrus-srvderive
@@ -93,14 +93,16 @@ while (1) {
           INSERT INTO srvexport ( srv_date, srv_time, serviceid, value, intvl )
             VALUES ( ?, ?, ?, ($sum), ? )
         ";
+        my @param = ( time2str('%Y-%m-%d', $cur), #srv_date
+                      time2str('%X', $cur),       #srv_time
+                      $serviceid,
+                      300, #intvl ... 
+                    );
+        warn $isql. ' with param '. @param. "\n"
+          if $DEBUG;
 
         my $isth = dbh->prepare($isql) or die $DBI::errstr; #better recovery?
-        $isth->execute( time2str('%Y-%m-%d', $cur), #srv_date
-                        time2str('%X', $cur),       #srv_time
-                        $serviceid,
-                        300, #intvl ... 
-                      )
-          or die $isth->errstr;
+        $isth->execute( @param )i      or die $isth->errstr;
                         
       }