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

Added method for purging extra COMPLETE records from queue_log, AST_cleanup_agent_log.pl

Browse Source 
git-svn-id: svn://192.168.202.10@1007 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2008-11-14 07:02:09 +00:00
parent a930207646
commit 4fc077d040
1 changed files with 27 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/AST_cleanup_agent_log.pl
+27
View File
@@ -16,6 +16,7 @@
# 60711-0945 - Changed to DBI by Marin Blu
# 60715-2301 - Changed to use /etc/astguiclient.conf for configs
# 81029-0124 - Added portion to clean up queue_log entries if QM enabled
# 81114-0155 - Added portion to remove queue_log COMPLETE duplicates
#
# constants
@@ -564,6 +565,32 @@ if ($enable_queuemetrics_logging > 0)
}
##### grab all queue_log entries with more than one COMPLETE verb to clean up
$stmtB = "SELECT call_id, count(*) FROM queue_log WHERE verb IN('COMPLETEAGENT','COMPLETECALLER','TRANSFER') GROUP BY call_id HAVING count(*)>1 ORDER BY count(*) DESC;";
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
$XC_records=$sthB->rows;
if ($DB) {print "Extra COMPLETE Records: $XC_records|$stmtB|\n\n";}
$h=0;
while ($XC_records > $h)
{
@aryB = $sthB->fetchrow_array;
$CDcall_id[$h] = "$aryB[0]";
$h++;
}
$sthB->finish();
$h=0;
while ($XC_records > $h)
{
##### grab oldest COMPLETE record to delete
$stmtB = "DELETE FROM queue_log WHERE call_id='$CDcall_id[$h]' and verb IN('COMPLETEAGENT','COMPLETECALLER','TRANSFER') ORDER BY unique_row_count DESC LIMIT 1;";
if (!$TEST) {$Baffected_rows = $dbhB->do($stmtB); }
if ($DB) {print "Extra COMPLETE Record Deleted: $Baffected_rows|$stmtB|\n\n";}
$h++;
}
$dbhB->disconnect();
}