use vars qw( $conf );
use FS::Daemon ':all'; #daemonize1 drop_root daemonize2 myexit logfile sig*
use FS::UID qw( adminsuidsetup );
-use FS::Record qw( qsearch ); #qsearchs);
+use FS::Record qw( qsearch qsearchs );
#use FS::cdr;
#use FS::cust_pkg;
#use FS::queue;
#$primary->freesiderewritestatus( 'taqua-accountcode-primary' );
my $error = $primary->replace;
if ( $error ) {
- warn "WARNING: error rewriting primary CDR (will retry): $error\n"
+ warn "WARNING: error rewriting primary CDR (will retry): $error\n";
next;
}
push @status, 'taqua-accountcode';
+ $cdr->status('done'); #so it doesn't try to rate
}
$cdr->freesiderewritestatus(
sleep 30; #i dunno, wait and see if the database comes back?
}
+ last if sigterm() || sigint();
+
}
myexit() if sigterm() || sigint();
=head1 DESCRIPTION
-Runs continuously, searches for CDRs and does forwarded-call rewriting if the
-"cdr-asterisk_forward_rewrite" or "cdr-charged_party_rewrite" config option is
-enabled.
+Runs continuously, searches for CDRs and does forwarded-call rewriting if any
+of the "cdr-asterisk_forward_rewrite", "cdr-charged_party_rewrite" or
+"cdr-taqua-accountcode_rewrite" config options are enabled.
=head1 SEE ALSO