diff options
| author | ivan <ivan> | 2011-02-27 19:46:11 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-02-27 19:46:11 +0000 |
| commit | e3cf65eddfedd5083af3fc6473da0ccd4d6fa58a (patch) | |
| tree | d1086bee7fa4002abdf2207d1b3a66f5909c4f4d | |
| parent | a1ce0a0f20a5f17aa4b365969fbcfb4fd92802b8 (diff) | |
add start of torrus srvderive daemon, RT#10574
| -rw-r--r-- | FS/bin/freeside-torrus-srvderive | 5 |
1 files 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; } |