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

Added List Merge utility

Browse Source 
Added User List NEW Lead Limit options(only works in No Hopper dialiing)
Fixed rare issue with email parsing
Added option in Agent Performance Detail report to only show live agents

git-svn-id: svn://192.168.202.10@2594 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2016-10-14 13:10:56 +00:00
parent 8862f161d4
commit 5970a54bb4
13 changed files with 1556 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/ADMIN_keepalive_ALL.pl
+17 -1
View File
@@ -110,9 +110,10 @@
# Limited max-stats process to only run on voicemail server, also added alt-logging flags to cm.agi calls
# 160306-1040 - Added option for carriers to be defined for all active asterisk servers
# 160324-1655 - Added callback_useronly_move_minutes option
# 161014-0839 - Added vicidial_user_list_new_lead daily reset
#
$build = '160324-1655';
$build = '161014-0839';
$DB=0; # Debug flag
$teodDB=0; # flag to log Timeclock End of Day processes to log file
@@ -1160,6 +1161,21 @@ if ($timeclock_end_of_day_NOW > 0)
if ($DB) {print "|",$aryA[0],"|",$aryA[1],"|",$aryA[2],"|",$aryA[3],"|","\n";}
$sthA->finish();
$stmtA = "update vicidial_user_list_new_lead SET new_count=0;";
if($DBX){print STDERR "\n|$stmtA|\n";}
$affected_rows = $dbhA->do($stmtA);
if($DB){print STDERR "\n|$affected_rows vicidial_user_list_new_lead call counts reset|\n";}
if ($teodDB) {$event_string = "vicidial_user_list_new_lead records reset: $affected_rows"; &teod_logger;}
$stmtA = "optimize table vicidial_user_list_new_lead;";
if($DBX){print STDERR "\n|$stmtA|\n";}
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
@aryA = $sthA->fetchrow_array;
if ($DB) {print "|",$aryA[0],"|",$aryA[1],"|",$aryA[2],"|",$aryA[3],"|","\n";}
$sthA->finish();
$stmtA = "optimize table vicidial_daily_max_stats;";
if($DBX){print STDERR "\n|$stmtA|\n";}
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
bin/AST_inbound_email_parser.pl
+2
View File
@@ -63,6 +63,7 @@ use MIME::QuotedPrint;
# 151030-0557 - Small change to catch more attachments properly
# 160120-2149 - Added missing entry_date field on vicidial_list insert
# 160414-0930 - Added missing phone_code field on vicidial_list insert
# 161014-2200 - Bug patch for " " string in email message
#
# default path to astguiclient configuration file:
@@ -1004,6 +1005,7 @@ sub StripHTML()
{
$message=~s/^\s*(.*?)\s*$/$1/;
$message=~s/[\r\n]/ /g;
$message=~s/\&nbsp\;/ /gi;
if ($message=~/<html.*?<\/html>/i) {
$message=$&;
my $hs = HTML::Strip->new();