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

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

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