From 65a5489102636c5c1351928eed3fa576fbda95bc Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 27 Feb 2011 19:31:00 +0000
Subject: [PATCH] add start of torrus srvderive daemon, RT#10574

---
 FS/bin/freeside-torrus-srvderive | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

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;
                         
       }
 
-- 
2.11.0