ViciDial/agc_2-X
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added extra debugging output to AST_manager_send.pl script for debugging purposes for the action_process.date logfile

Browse Source 
git-svn-id: svn://192.168.202.10@1064 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2009-02-27 19:58:15 +00:00
parent 394129bbcc
commit 41ddd27c91
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/AST_manager_send.pl
+7 -7
View File
@@ -129,7 +129,7 @@ while ($one_day_interval > 0) {
while (my $vdm = $sthA->fetchrow_hashref) {
print STDERR $vdm->{man_id} . "|" . $vdm->{uniqueid} . "|" . $vdm->{channel} . "|" .
$vdm->{action} . "|" . $vdm->{callid} . "\n" if ($DB);
$vdm->{action} . "|" . $vdm->{callerid} . "\n" if ($DB);
my $originate_command = "Action: ". $vdm->{action} . "\n";
$originate_command .= $vdm->{cmd_line_b} . "\n" if ($vdm->{cmd_line_b});
@@ -147,21 +147,21 @@ while ($one_day_interval > 0) {
my $SENDNOW=1;
if ($originate_command =~ /Action: Hangup|Action: Redirect/) {
$SENDNOW=0;
print STDERR "\n|checking for dead call before executing|" . $vdm->{callid} . "|" . $vdm->{uniqueid} . "|\n" if ($DB);
my $stmtB = "SELECT count(*) FROM vicidial_manager where server_ip = '" . $conf{VARserver_ip} . "' and callerid='" . $vdm->{callid} . "' and status = 'DEAD'";
print STDERR "\n|checking for dead call before executing|" . $vdm->{callerid} . "|" . $vdm->{uniqueid} . "|\n" if ($DB);
my $stmtB = "SELECT count(*) FROM vicidial_manager where server_ip = '" . $conf{VARserver_ip} . "' and callerid='" . $vdm->{callerid} . "' and status = 'DEAD'";
my $sthB = $dbhA->prepare($stmtB) or die "preparing: ",$dbhA->errstr;
$sthB->execute or die "executing: $stmtA ", $dbhA->errstr;
my $dead_count = ($sthB->fetchrow_array)[0];
$sthB->finish();
if ($dead_count) {
print STDERR "\n|not sending command line is dead|" . $vdm->{callid} . "|" . $vdm->{uniqueid} . "|\n" if ($DB);
print STDERR "\n|not sending command line is dead|" . $vdm->{callerid} . "|" . $vdm->{uniqueid} . "|\n" if ($DB);
} else {
$SENDNOW=1;
}
}
my $event_string = "----BEGIN NEW COMMAND----\n$originate_command----END NEW COMMAND----\n";
my $event_string = "----BEGIN NEW COMMAND----\nCallerID: " . $vdm->{callerid} . "\n$originate_command----END NEW COMMAND----\n";
eventLogger($conf{'PATHlogs'}, 'process', $event_string);
if ($SENDNOW) {
@@ -199,13 +199,13 @@ while ($one_day_interval > 0) {
$launch .= " --cmd_line_j=" . $vdm->{cmd_line_j} if ($vdm->{cmd_line_j});
$launch .= " --cmd_line_k=" . $vdm->{cmd_line_k} if ($vdm->{cmd_line_k});
eventLogger($conf{'PATHlogs'}, 'launch', $launch . " " .
$vdm->{callid} . " " . $vdm->{uniqueid} . " " . $vdm->{channel});
$vdm->{callerid} . " " . $vdm->{uniqueid} . " " . $vdm->{channel});
$launch .= " >> " . $conf{PATHlogs} . "/action_send." . logDate() if ($SYSLOG);
system($launch . ' &');
# $launch = "SENT " . $vdm->{man_id} . " " . $vdm->{callid} . ' ' . $vdm->{uniqueid} . ' ' . $vdm->{channel};
# $launch = "SENT " . $vdm->{man_id} . " " . $vdm->{callerid} . ' ' . $vdm->{uniqueid} . ' ' . $vdm->{channel};
# eventLogger($conf{'PATHlogs'}, 'launch', $launch);;
my $stmtA = "UPDATE vicidial_manager set status='SENT' where man_id='" . $vdm->{man_id} . "'";