projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bed7609
)
add start of torrus srvderive daemon, RT#10574
author
ivan
<ivan>
Sun, 27 Feb 2011 21:32:23 +0000
(21:32 +0000)
committer
ivan
<ivan>
Sun, 27 Feb 2011 21:32:23 +0000
(21:32 +0000)
FS/bin/freeside-torrus-srvderive
patch
|
blob
|
history
diff --git
a/FS/bin/freeside-torrus-srvderive
b/FS/bin/freeside-torrus-srvderive
index
cb2bcf4
..
46a2f19
100644
(file)
--- a/
FS/bin/freeside-torrus-srvderive
+++ b/
FS/bin/freeside-torrus-srvderive
@@
-8,7
+8,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 =
3
;
my $user = shift or die &usage;
$FS::Daemon::PID_NEWSTYLE = 1;
my $user = shift or die &usage;
$FS::Daemon::PID_NEWSTYLE = 1;
@@
-85,7
+85,7
@@
while (1) {
$orderlimit
";
$orderlimit
";
- warn $s
ql if $DEBUG > 2
;
+ warn $s
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;
@@
-121,7
+121,7
@@
while (1) {
300, #intvl ...
);
warn $isql. ' with param '. join(',',@param). "\n"
300, #intvl ...
);
warn $isql. ' with param '. join(',',@param). "\n"
- if $DEBUG >
1
;
+ if $DEBUG >
2
;
my $isth = dbh->prepare($isql) or die $DBI::errstr; #better recovery?
$isth->execute( @param ) or die $isth->errstr;
my $isth = dbh->prepare($isql) or die $DBI::errstr; #better recovery?
$isth->execute( @param ) or die $isth->errstr;