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

---
 FS/bin/freeside-torrus-srvderive | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/FS/bin/freeside-torrus-srvderive b/FS/bin/freeside-torrus-srvderive
index 516df5518..2316df5b4 100644
--- a/FS/bin/freeside-torrus-srvderive
+++ b/FS/bin/freeside-torrus-srvderive
@@ -94,14 +94,15 @@ while (1) {
         ";
         my @param = ( time2str('%Y-%m-%d', $cur), #srv_date
                       time2str('%X', $cur),       #srv_time
-                      $serviceid,
+                      "$serviceid$dir",
                       300, #intvl ... 
                     );
-        warn $isql. ' with param '. @param. "\n"
+        warn $isql. ' with param '. join(',',@param). "\n"
           if $DEBUG > 1;
 
         my $isth = dbh->prepare($isql) or die $DBI::errstr; #better recovery?
         $isth->execute( @param )       or die $isth->errstr;
+        dbh->commit                    or die dbh->errstr;
                         
       }
 
-- 
2.11.0