[freeside-commits] freeside/FS/bin freeside-torrus-srvderive, 1.9, 1.10

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/bin
In directory wavetail.420.am:/tmp/cvs-serv28433/FS/bin

Modified Files:
	freeside-torrus-srvderive 
Log Message:
add start of torrus srvderive daemon, RT#10574

Index: freeside-torrus-srvderive
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/bin/freeside-torrus-srvderive,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -d -r1.9 -r1.10
--- freeside-torrus-srvderive	27 Feb 2011 19:27:56 -0000	1.9
+++ freeside-torrus-srvderive	27 Feb 2011 19:31:00 -0000	1.10
@@ -93,14 +93,16 @@
           INSERT INTO srvexport ( srv_date, srv_time, serviceid, value, intvl )
             VALUES ( ?, ?, ?, ($sum), ? )
         ";
-
-        my $isth = dbh->prepare($isql) or die $DBI::errstr; #better recovery?
-        $isth->execute( time2str('%Y-%m-%d', $cur), #srv_date
+        my @param = ( time2str('%Y-%m-%d', $cur), #srv_date
                         time2str('%X', $cur),       #srv_time
                         $serviceid,
                         300, #intvl ... 
-                      )
-          or die $isth->errstr;
+                    );
+        warn $isql. ' with param '. @param. "\n"
+          if $DEBUG;
+
+        my $isth = dbh->prepare($isql) or die $DBI::errstr; #better recovery?
+        $isth->execute( @param )i      or die $isth->errstr;
                         
       }