projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4c3268d
)
add start of torrus srvderive daemon, RT#10574
author
ivan
<ivan>
Sun, 27 Feb 2011 03:14:15 +0000
(
03:14
+0000)
committer
ivan
<ivan>
Sun, 27 Feb 2011 03:14:15 +0000
(
03:14
+0000)
FS/bin/freeside-torrus-srvderive
patch
|
blob
|
history
diff --git
a/FS/bin/freeside-torrus-srvderive
b/FS/bin/freeside-torrus-srvderive
index
34e5ac5
..
90445fa
100644
(file)
--- a/
FS/bin/freeside-torrus-srvderive
+++ b/
FS/bin/freeside-torrus-srvderive
@@
-7,7
+7,7
@@
use FS::UID qw( adminsuidsetup dbh driver_name );
use FS::Record qw( qsearch str2time_sql str2time_sql_closing concat_sql );
use FS::torrus_srvderive;
use FS::Record qw( qsearch str2time_sql str2time_sql_closing concat_sql );
use FS::torrus_srvderive;
-our $DEBUG =
1
;
+our $DEBUG =
2
;
my $user = shift or die &usage;
$FS::Daemon::PID_NEWSTYLE = 1;
my $user = shift or die &usage;
$FS::Daemon::PID_NEWSTYLE = 1;
@@
-57,6
+57,7
@@
while (1) {
my $serviceid = $torrus_srvderive->serviceid;
my $serviceid = $torrus_srvderive->serviceid;
+ warn $sql if $DEBUG > 1;
my $sth = dbh->prepare($sql) or die $DBI::errstr; #better recovery?
$sth->execute($serviceid, $serviceid) or die $sth->errstr;
my $prev = 0;
my $sth = dbh->prepare($sql) or die $DBI::errstr; #better recovery?
$sth->execute($serviceid, $serviceid) or die $sth->errstr;
my $prev = 0;