From 57788399ae338de3a629a709d8453a0b8a5f35e8 Mon Sep 17 00:00:00 2001
From: mattf <mattf@3d104415-ff17-0410-8863-d5cf3c621b8a>
Date: Fri, 27 Feb 2009 19:58:15 +0000
Subject: [PATCH] Added extra debugging output to AST_manager_send.pl script
 for debugging purposes for the action_process.date logfile

git-svn-id: svn://192.168.202.10@1064 3d104415-ff17-0410-8863-d5cf3c621b8a
---
 agc_2-X/trunk/bin/AST_manager_send.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/agc_2-X/trunk/bin/AST_manager_send.pl b/agc_2-X/trunk/bin/AST_manager_send.pl
index b6c9a9e3..3d9fcd0b 100644
--- a/agc_2-X/trunk/bin/AST_manager_send.pl
+++ b/agc_2-X/trunk/bin/AST_manager_send.pl
@@ -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} . "'";