Added call_quota_lead_ranking features, EXPERIMENTAL FOR NOW!
git-svn-id: svn://192.168.202.10@3122 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
@@ -25,7 +25,7 @@
|
||||
# It is good practice to keep this program running by placing the associated
|
||||
# KEEPALIVE script running every minute to ensure this program is always running
|
||||
#
|
||||
# Copyright (C) 2018 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
|
||||
# Copyright (C) 2019 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
|
||||
#
|
||||
# CHANGELOG:
|
||||
# 50125-1201 - Changed dial timeout to 120 seconds from 180 seconds
|
||||
@@ -129,6 +129,7 @@
|
||||
# 180214-1559 - Added CID Group functionality
|
||||
# 180301-1338 - Small changes for Inbound Queue No Dial
|
||||
# 180812-1026 - Added code for scheduled_callbacks_auto_reschedule campaign feature
|
||||
# 190709-2239 - Added Call Quota logging
|
||||
#
|
||||
|
||||
### begin parsing run-time options ###
|
||||
@@ -298,7 +299,7 @@ $event_string='LOGGED INTO MYSQL SERVER ON 1 CONNECTION|';
|
||||
|
||||
#############################################
|
||||
##### START QUEUEMETRICS LOGGING LOOKUP #####
|
||||
$stmtA = "SELECT enable_queuemetrics_logging,queuemetrics_server_ip,queuemetrics_dbname,queuemetrics_login,queuemetrics_pass,queuemetrics_log_id,outbound_autodial_active,queuemetrics_loginout,queuemetrics_addmember_enabled,queuemetrics_pause_type,enable_drop_lists FROM system_settings;";
|
||||
$stmtA = "SELECT enable_queuemetrics_logging,queuemetrics_server_ip,queuemetrics_dbname,queuemetrics_login,queuemetrics_pass,queuemetrics_log_id,outbound_autodial_active,queuemetrics_loginout,queuemetrics_addmember_enabled,queuemetrics_pause_type,enable_drop_lists,call_quota_lead_ranking,timeclock_end_of_day FROM system_settings;";
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$sthArows=$sthA->rows;
|
||||
@@ -316,6 +317,8 @@ if ($sthArows > 0)
|
||||
$queuemetrics_addmember_enabled = $aryA[8];
|
||||
$queuemetrics_pause_type = $aryA[9];
|
||||
$enable_drop_lists = $aryA[10];
|
||||
$SScall_quota_lead_ranking = $aryA[11];
|
||||
$timeclock_end_of_day = $aryA[12];
|
||||
}
|
||||
$sthA->finish();
|
||||
##### END QUEUEMETRICS LOGGING LOOKUP #####
|
||||
@@ -642,7 +645,7 @@ while($one_day_interval > 0)
|
||||
|
||||
### grab the dial_level and multiply by active agents to get your goalcalls
|
||||
$DBIPadlevel[$user_CIPct]=0;
|
||||
$stmtA = "SELECT auto_dial_level,local_call_time,dial_timeout,dial_prefix,campaign_cid,active,campaign_vdad_exten,closer_campaigns,omit_phone_code,available_only_ratio_tally,auto_alt_dial,campaign_allow_inbound,queue_priority,dial_method,use_custom_cid,inbound_queue_no_dial,available_only_tally_threshold,available_only_tally_threshold_agents,dial_level_threshold,dial_level_threshold_agents,adaptive_dl_diff_target,dl_diff_target_method,inbound_no_agents_no_dial_container,inbound_no_agents_no_dial_threshold,cid_group_id,scheduled_callbacks_auto_reschedule FROM vicidial_campaigns where campaign_id='$DBIPcampaign[$user_CIPct]'";
|
||||
$stmtA = "SELECT auto_dial_level,local_call_time,dial_timeout,dial_prefix,campaign_cid,active,campaign_vdad_exten,closer_campaigns,omit_phone_code,available_only_ratio_tally,auto_alt_dial,campaign_allow_inbound,queue_priority,dial_method,use_custom_cid,inbound_queue_no_dial,available_only_tally_threshold,available_only_tally_threshold_agents,dial_level_threshold,dial_level_threshold_agents,adaptive_dl_diff_target,dl_diff_target_method,inbound_no_agents_no_dial_container,inbound_no_agents_no_dial_threshold,cid_group_id,scheduled_callbacks_auto_reschedule,call_quota_lead_ranking FROM vicidial_campaigns where campaign_id='$DBIPcampaign[$user_CIPct]'";
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$sthArows=$sthA->rows;
|
||||
@@ -679,6 +682,7 @@ while($one_day_interval > 0)
|
||||
$DBIPinbound_no_agents_no_dial_threshold[$user_CIPct] = $aryA[23];
|
||||
$DBIPcid_group_id[$user_CIPct] = $aryA[24];
|
||||
$DBIPscheduled_callbacks_auto_reschedule[$user_CIPct] = $aryA[25];
|
||||
$DBIPcall_quota_lead_ranking[$user_CIPct] = $aryA[26];
|
||||
|
||||
if ($DBIPdl_diff_target_method[$user_CIPct] =~ /ADAPT_CALC_ONLY/)
|
||||
{
|
||||
@@ -1514,18 +1518,18 @@ while($one_day_interval > 0)
|
||||
|
||||
### insert a NEW record to the vicidial_manager table to be processed
|
||||
$stmtA = "INSERT INTO vicidial_manager values('','','$SQLdate','NEW','N','$DBIPaddress[$user_CIPct]','','Originate','$VqueryCID','Exten: $VDAD_dial_exten','Context: $ext_context','Channel: $local_DEF$Ndialstring$local_AMP$ext_context','Priority: 1','Callerid: $CIDstring','Timeout: $Local_dial_timeout','','','','VDACnote: $DBIPcampaign[$user_CIPct]|$lead_id|$phone_code|$phone_number|OUT|$alt_dial|$DBIPqueue_priority[$user_CIPct]')";
|
||||
$affected_rows = $dbhA->do($stmtA);
|
||||
|
||||
$event_string = "| number call dialed|$DBIPcampaign[$user_CIPct]|$VqueryCID|$stmtA|$gmt_offset_now|$alt_dial|";
|
||||
&event_logger;
|
||||
$affected_rowsA = $dbhA->do($stmtA);
|
||||
|
||||
### insert a SENT record to the vicidial_auto_calls table
|
||||
$stmtA = "INSERT INTO vicidial_auto_calls (server_ip,campaign_id,status,lead_id,callerid,phone_code,phone_number,call_time,call_type,alt_dial,queue_priority,last_update_time) values('$DBIPaddress[$user_CIPct]','$DBIPcampaign[$user_CIPct]','SENT','$lead_id','$VqueryCID','$phone_code','$phone_number','$SQLdate','OUT','$alt_dial','$DBIPqueue_priority[$user_CIPct]','$SQLdate')";
|
||||
$affected_rows = $dbhA->do($stmtA);
|
||||
$stmtB = "INSERT INTO vicidial_auto_calls (server_ip,campaign_id,status,lead_id,callerid,phone_code,phone_number,call_time,call_type,alt_dial,queue_priority,last_update_time) values('$DBIPaddress[$user_CIPct]','$DBIPcampaign[$user_CIPct]','SENT','$lead_id','$VqueryCID','$phone_code','$phone_number','$SQLdate','OUT','$alt_dial','$DBIPqueue_priority[$user_CIPct]','$SQLdate')";
|
||||
$affected_rowsB = $dbhA->do($stmtB);
|
||||
|
||||
### insert log record into vicidial_dial_log table
|
||||
$stmtA = "INSERT INTO vicidial_dial_log SET caller_code='$VqueryCID',lead_id='$lead_id',server_ip='$DBIPaddress[$user_CIPct]',call_date='$SQLdate',extension='$VDAD_dial_exten',channel='$local_DEF$Ndialstring$local_AMP$ext_context',timeout='$Local_dial_timeout',outbound_cid='$CIDstring',context='$ext_context';";
|
||||
$affected_rows = $dbhA->do($stmtA);
|
||||
$stmtC = "INSERT INTO vicidial_dial_log SET caller_code='$VqueryCID',lead_id='$lead_id',server_ip='$DBIPaddress[$user_CIPct]',call_date='$SQLdate',extension='$VDAD_dial_exten',channel='$local_DEF$Ndialstring$local_AMP$ext_context',timeout='$Local_dial_timeout',outbound_cid='$CIDstring',context='$ext_context';";
|
||||
$affected_rowsC = $dbhA->do($stmtC);
|
||||
|
||||
$event_string = "| number call dialed|$DBIPcampaign[$user_CIPct]|$VqueryCID|$affected_rowsA|$stmtA|$gmt_offset_now|$alt_dial|$affected_rowsB|$affected_rowsC|";
|
||||
&event_logger;
|
||||
|
||||
### sleep for a five hundredths of a second to not flood the server with new calls
|
||||
# usleep(1*50*1000);
|
||||
@@ -1959,11 +1963,11 @@ while($one_day_interval > 0)
|
||||
$dbhB->disconnect();
|
||||
}
|
||||
|
||||
##### BEGIN AUTO ALT PHONE DIAL SECTION #####
|
||||
### check to see if campaign has alt_dial enabled
|
||||
### check to see if campaign has alt_dial or call quotas enabled
|
||||
$VD_auto_alt_dial = 'NONE';
|
||||
$VD_auto_alt_dial_statuses='';
|
||||
$stmtA="SELECT auto_alt_dial,auto_alt_dial_statuses,use_internal_dnc,use_campaign_dnc,use_other_campaign_dnc FROM vicidial_campaigns where campaign_id='$CLcampaign_id';";
|
||||
$VD_call_quota_lead_ranking='DISABLED';
|
||||
$stmtA="SELECT auto_alt_dial,auto_alt_dial_statuses,use_internal_dnc,use_campaign_dnc,use_other_campaign_dnc,call_quota_lead_ranking FROM vicidial_campaigns where campaign_id='$CLcampaign_id';";
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$sthArows=$sthA->rows;
|
||||
@@ -1975,8 +1979,327 @@ while($one_day_interval > 0)
|
||||
$VD_use_internal_dnc = $aryA[2];
|
||||
$VD_use_campaign_dnc = $aryA[3];
|
||||
$VD_use_other_campaign_dnc = $aryA[4];
|
||||
$VD_call_quota_lead_ranking = $aryA[5];
|
||||
}
|
||||
$sthA->finish();
|
||||
|
||||
##### BEGIN Call Quota Lead Ranking logging #####
|
||||
if ( ($SScall_quota_lead_ranking > 0) && ($VD_call_quota_lead_ranking !~ /^DISABLED$/i) )
|
||||
{
|
||||
# Gather settings container for Call Quota Lead Ranking
|
||||
$CQcontainer_entry='';
|
||||
$stmtA = "SELECT container_entry FROM vicidial_settings_containers where container_id='$VD_call_quota_lead_ranking';";
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$sthArows=$sthA->rows;
|
||||
if ($sthArows > 0)
|
||||
{
|
||||
@aryA = $sthA->fetchrow_array;
|
||||
$CQcontainer_entry = $aryA[0];
|
||||
$CQcontainer_entry =~ s/\\//gi;
|
||||
}
|
||||
$sthA->finish();
|
||||
|
||||
# Define variables for Call Quota settings
|
||||
$session_one='';
|
||||
$session_two='';
|
||||
$session_three='';
|
||||
$session_four='';
|
||||
$session_five='';
|
||||
$session_six='';
|
||||
$settings_session_score=0;
|
||||
$zero_rank_after_call=0;
|
||||
|
||||
if (length($CQcontainer_entry) > 5)
|
||||
{
|
||||
@container_lines = split(/\n/,$CQcontainer_entry);
|
||||
$c=0;
|
||||
foreach(@container_lines)
|
||||
{
|
||||
$container_lines[$c] =~ s/;.*|\r|\t| //gi;
|
||||
if (length($container_lines[$c]) > 5)
|
||||
{
|
||||
# define core settings
|
||||
if ($container_lines[$c] =~ /^zero_rank_after_call/i)
|
||||
{
|
||||
$container_lines[$c] =~ s/zero_rank_after_call=>//gi;
|
||||
if ( ($container_lines[$c] >= 0) && ($container_lines[$c] <= 1) )
|
||||
{
|
||||
$zero_rank_after_call = $container_lines[$c];
|
||||
}
|
||||
}
|
||||
# define sessions
|
||||
if ($container_lines[$c] =~ /^session_one/i)
|
||||
{
|
||||
$session_one_valid=0; $session_one_start=''; $session_one_end='';
|
||||
$session_one = $container_lines[$c];
|
||||
$session_one =~ s/session_one=>//gi;
|
||||
if ( (length($session_one) > 0) && (length($session_one) <= 9) && ($session_one =~ /,/) )
|
||||
{
|
||||
@session_oneARY = split(/,/,$session_one);
|
||||
$session_one_start = $session_oneARY[0];
|
||||
$session_one_end = $session_oneARY[1];
|
||||
if ( (length($session_one_start) >= 4) && (length($session_one_end) >= 4) && ($session_one_start < $session_one_end) && ($session_one_end <= 2400) )
|
||||
{
|
||||
$settings_session_score++;
|
||||
$session_one_valid++;
|
||||
}
|
||||
}
|
||||
}
|
||||
if ($container_lines[$c] =~ /^session_two/i)
|
||||
{
|
||||
$session_two_valid=0; $session_two_start=''; $session_two_end='';
|
||||
$session_two = $container_lines[$c];
|
||||
$session_two =~ s/session_two=>//gi;
|
||||
if ( (length($session_two) > 0) && (length($session_two) <= 9) && ($session_two =~ /,/) )
|
||||
{
|
||||
@session_twoARY = split(/,/,$session_two);
|
||||
$session_two_start = $session_twoARY[0];
|
||||
$session_two_end = $session_twoARY[1];
|
||||
if ( (length($session_two_start) >= 4) && (length($session_two_end) >= 4) && ($session_one_valid > 0) && ($session_one_end <= $session_two_start) && ($session_two_start < $session_two_end) && ($session_two_end <= 2400) )
|
||||
{
|
||||
$settings_session_score++;
|
||||
$session_two_valid++;
|
||||
}
|
||||
}
|
||||
}
|
||||
if ($container_lines[$c] =~ /^session_three/i)
|
||||
{
|
||||
$session_three_valid=0; $session_three_start=''; $session_three_end='';
|
||||
$session_three = $container_lines[$c];
|
||||
$session_three =~ s/session_three=>//gi;
|
||||
if ( (length($session_three) > 0) && (length($session_three) <= 9) && ($session_three =~ /,/) )
|
||||
{
|
||||
@session_threeARY = split(/,/,$session_three);
|
||||
$session_three_start = $session_threeARY[0];
|
||||
$session_three_end = $session_threeARY[1];
|
||||
if ( (length($session_three_start) >= 4) && (length($session_three_end) >= 4) && ($session_two_valid > 0) && ($session_two_end <= $session_three_start) && ($session_three_start < $session_three_end) && ($session_three_end <= 2400) )
|
||||
{
|
||||
$settings_session_score++;
|
||||
$session_three_valid++;
|
||||
}
|
||||
}
|
||||
}
|
||||
if ($container_lines[$c] =~ /^session_four/i)
|
||||
{
|
||||
$session_four_valid=0; $session_four_start=''; $session_four_end='';
|
||||
$session_four = $container_lines[$c];
|
||||
$session_four =~ s/session_four=>//gi;
|
||||
if ( (length($session_four) > 0) && (length($session_four) <= 9) && ($session_four =~ /,/) )
|
||||
{
|
||||
@session_fourARY = split(/,/,$session_four);
|
||||
$session_four_start = $session_fourARY[0];
|
||||
$session_four_end = $session_fourARY[1];
|
||||
if ( (length($session_four_start) >= 4) && (length($session_four_end) >= 4) && ($session_three_valid > 0) && ($session_three_end <= $session_four_start) && ($session_four_start < $session_four_end) && ($session_four_end <= 2400) )
|
||||
{
|
||||
$settings_session_score++;
|
||||
$session_four_valid++;
|
||||
}
|
||||
}
|
||||
}
|
||||
if ($container_lines[$c] =~ /^session_five/i)
|
||||
{
|
||||
$session_five_valid=0; $session_five_start=''; $session_five_end='';
|
||||
$session_five = $container_lines[$c];
|
||||
$session_five =~ s/session_five=>//gi;
|
||||
if ( (length($session_five) > 0) && (length($session_five) <= 9) && ($session_five =~ /,/) )
|
||||
{
|
||||
@session_fiveARY = split(/,/,$session_five);
|
||||
$session_five_start = $session_fiveARY[0];
|
||||
$session_five_end = $session_fiveARY[1];
|
||||
if ( (length($session_five_start) >= 4) && (length($session_five_end) >= 4) && ($session_four_valid > 0) && ($session_four_end <= $session_five_start) && ($session_five_start < $session_five_end) && ($session_five_end <= 2400) )
|
||||
{
|
||||
$settings_session_score++;
|
||||
$session_five_valid++;
|
||||
}
|
||||
}
|
||||
}
|
||||
if ($container_lines[$c] =~ /^session_six/i)
|
||||
{
|
||||
$session_six_valid=0; $session_six_start=''; $session_six_end='';
|
||||
$session_six = $container_lines[$c];
|
||||
$session_six =~ s/session_six=>//gi;
|
||||
if ( (length($session_six) > 0) && (length($session_six) <= 9) && ($session_six =~ /,/) )
|
||||
{
|
||||
@session_sixARY = split(/,/,$session_six);
|
||||
$session_six_start = $session_sixARY[0];
|
||||
$session_six_end = $session_sixARY[1];
|
||||
if ( (length($session_six_start) >= 4) && (length($session_six_end) >= 4) && ($session_five_valid > 0) && ($session_five_end <= $session_six_start) && ($session_six_start < $session_six_end) && ($session_six_end <= 2400) )
|
||||
{
|
||||
$settings_session_score++;
|
||||
$session_six_valid++;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{if ($DBX > 0) {print " blank line: $c|$container_lines[$c]|\n";}}
|
||||
$c++;
|
||||
}
|
||||
if ($settings_session_score >= 1)
|
||||
{
|
||||
$stmtA = "SELECT list_id,called_count,rank FROM vicidial_list where lead_id='$CLlead_id';";
|
||||
$event_string = "|$stmtA|"; &event_logger;
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$sthArows=$sthA->rows;
|
||||
if ($sthArows > 0)
|
||||
{
|
||||
@aryA = $sthA->fetchrow_array;
|
||||
$VLlist_id = $aryA[0];
|
||||
$VLcalled_count = $aryA[1];
|
||||
$VLrank = $aryA[2];
|
||||
$tempVLrank = $VLrank;
|
||||
if ( ($zero_rank_after_call > 0) && ($VLrank > 0) ) {$tempVLrank=0;}
|
||||
}
|
||||
$sthA->finish();
|
||||
|
||||
$secX = time();
|
||||
$CQtarget = ($secX - 14400); # look back 4 hours
|
||||
($CQsec,$CQmin,$CQhour,$CQmday,$CQmon,$CQyear,$CQwday,$CQyday,$CQisdst) = localtime($CQtarget);
|
||||
$CQyear = ($CQyear + 1900);
|
||||
$CQmon++;
|
||||
if ($CQmon < 10) {$CQmon = "0$CQmon";}
|
||||
if ($CQmday < 10) {$CQmday = "0$CQmday";}
|
||||
if ($CQhour < 10) {$CQhour = "0$CQhour";}
|
||||
if ($CQmin < 10) {$CQmin = "0$CQmin";}
|
||||
if ($CQsec < 10) {$CQsec = "0$CQsec";}
|
||||
$CQSQLdate = "$CQyear-$CQmon-$CQmday $CQhour:$CQmin:$CQsec";
|
||||
|
||||
$VDL_call_datetime='';
|
||||
$stmtA = "SELECT call_date from vicidial_dial_log where lead_id='$CLlead_id' and call_date > \"$CQSQLdate\" and caller_code LIKE \"%$CLlead_id\" order by call_date desc limit 1;";
|
||||
$event_string = "|$stmtA|"; &event_logger;
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$sthArows=$sthA->rows;
|
||||
if ($sthArows > 0)
|
||||
{
|
||||
@aryA = $sthA->fetchrow_array;
|
||||
$VDLcall_datetime = $aryA[0];
|
||||
@VDLcall_datetimeARY = split(/ /,$VDLcall_datetime);
|
||||
@VDLcall_timeARY = split(/:/,$VDLcall_datetimeARY[1]);
|
||||
$VDLcall_hourmin = "$VDLcall_timeARY[0]$VDLcall_timeARY[1]";
|
||||
|
||||
if ( ($session_one_start <= $VDLcall_hourmin) and ($session_one_end > $VDLcall_hourmin) )
|
||||
{
|
||||
$call_in_session=1;
|
||||
$session_newSQL=",session_one_calls='1',session_one_today_calls='1'";
|
||||
$session_updateSQL=",session_one_calls=(session_one_calls + 1),session_one_today_calls=(session_one_today_calls + 1)";
|
||||
}
|
||||
if ( ($session_two_start <= $VDLcall_hourmin) and ($session_two_end > $VDLcall_hourmin) )
|
||||
{
|
||||
$call_in_session=2;
|
||||
$session_newSQL=",session_two_calls='1',session_two_today_calls='1'";
|
||||
$session_updateSQL=",session_two_calls=(session_two_calls + 1),session_two_today_calls=(session_two_today_calls + 1)";
|
||||
}
|
||||
if ( ($session_three_start <= $VDLcall_hourmin) and ($session_three_end > $VDLcall_hourmin) )
|
||||
{
|
||||
$call_in_session=3;
|
||||
$session_newSQL=",session_three_calls='1',session_three_today_calls='1'";
|
||||
$session_updateSQL=",session_three_calls=(session_three_calls + 1),session_three_today_calls=(session_three_today_calls + 1)";
|
||||
}
|
||||
if ( ($session_four_start <= $VDLcall_hourmin) and ($session_four_end > $VDLcall_hourmin) )
|
||||
{
|
||||
$call_in_session=4;
|
||||
$session_newSQL=",session_four_calls='1',session_four_today_calls='1'";
|
||||
$session_updateSQL=",session_four_calls=(session_four_calls + 1),session_four_today_calls=(session_four_today_calls + 1)";
|
||||
}
|
||||
if ( ($session_five_start <= $VDLcall_hourmin) and ($session_five_end > $VDLcall_hourmin) )
|
||||
{
|
||||
$call_in_session=5;
|
||||
$session_newSQL=",session_five_calls='1',session_five_today_calls='1'";
|
||||
$session_updateSQL=",session_five_calls=(session_five_calls + 1),session_five_today_calls=(session_five_today_calls + 1)";
|
||||
}
|
||||
if ( ($session_six_start <= $VDLcall_hourmin) and ($session_six_end > $VDLcall_hourmin) )
|
||||
{
|
||||
$call_in_session=6;
|
||||
$session_newSQL=",session_six_calls='1',session_six_today_calls='1'";
|
||||
$session_updateSQL=",session_six_calls=(session_six_calls + 1),session_six_today_calls=(session_six_today_calls + 1)";
|
||||
}
|
||||
|
||||
$event_string = "CQ-Debug 2: $VDLcall_datetime|$VDLcall_hourmin|$timeclock_end_of_day|$session_one_start|$session_one_end|$call_in_session|"; &event_logger;
|
||||
|
||||
if ($call_in_session > 0)
|
||||
{
|
||||
if (length($timeclock_end_of_day) < 1) {$timeclock_end_of_day='0000';}
|
||||
$timeclock_end_of_day_hour = (substr($timeclock_end_of_day, 0, 2) + 0);
|
||||
$timeclock_end_of_day_min = (substr($timeclock_end_of_day, 2, 2) + 0);
|
||||
|
||||
$today_start_epoch = timelocal('0',$timeclock_end_of_day_min,$timeclock_end_of_day_hour,$mday,($mon-1),$year);
|
||||
if ($timeclock_end_of_day > $VDLcall_hourmin)
|
||||
{$today_start_epoch = ($today_start_epoch - 86400);}
|
||||
$day_two_start_epoch = ($today_start_epoch - (86400 * 1));
|
||||
$day_three_start_epoch = ($today_start_epoch - (86400 * 2));
|
||||
$day_four_start_epoch = ($today_start_epoch - (86400 * 3));
|
||||
$day_five_start_epoch = ($today_start_epoch - (86400 * 4));
|
||||
$day_six_start_epoch = ($today_start_epoch - (86400 * 5));
|
||||
$day_seven_start_epoch = ($today_start_epoch - (86400 * 6));
|
||||
|
||||
# Gather the details on existing vicidial_lead_call_quota_counts for this lead, if there is one
|
||||
$stmtA = "SELECT first_call_date,UNIX_TIMESTAMP(first_call_date),last_call_date from vicidial_lead_call_quota_counts where lead_id='$CLlead_id' and list_id='$VLlist_id';";
|
||||
$event_string = "|$stmtA|"; &event_logger;
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$VLCQCinfo_ct=$sthA->rows;
|
||||
if ($VLCQCinfo_ct > 0)
|
||||
{
|
||||
@aryA = $sthA->fetchrow_array;
|
||||
$VLCQCfirst_call_datetime = $aryA[0];
|
||||
$VLCQCfirst_call_epoch = $aryA[1];
|
||||
$VLCQClast_call_date = $aryA[2];
|
||||
|
||||
if ($VDLcall_datetime ne $VLCQClast_call_date)
|
||||
{
|
||||
if ($VLCQCfirst_call_epoch >= $today_start_epoch)
|
||||
{$day_updateSQL=',day_one_calls=(day_one_calls+1)';}
|
||||
if ( ($VLCQCfirst_call_epoch >= $day_two_start_epoch) and ($VLCQCfirst_call_epoch < $today_start_epoch) )
|
||||
{$day_updateSQL=',day_two_calls=(day_two_calls+1)';}
|
||||
if ( ($VLCQCfirst_call_epoch >= $day_three_start_epoch) and ($VLCQCfirst_call_epoch < $day_two_start_epoch) )
|
||||
{$day_updateSQL=',day_three_calls=(day_three_calls+1)';}
|
||||
if ( ($VLCQCfirst_call_epoch >= $day_four_start_epoch) and ($VLCQCfirst_call_epoch < $day_three_start_epoch) )
|
||||
{$day_updateSQL=',day_four_calls=(day_four_calls+1)';}
|
||||
if ( ($VLCQCfirst_call_epoch >= $day_five_start_epoch) and ($VLCQCfirst_call_epoch < $day_four_start_epoch) )
|
||||
{$day_updateSQL=',day_five_calls=(day_five_calls+1)';}
|
||||
if ( ($VLCQCfirst_call_epoch >= $day_six_start_epoch) and ($VLCQCfirst_call_epoch < $day_five_start_epoch) )
|
||||
{$day_updateSQL=',day_six_calls=(day_six_calls+1)';}
|
||||
if ( ($VLCQCfirst_call_epoch >= $day_seven_start_epoch) and ($VLCQCfirst_call_epoch < $day_six_start_epoch) )
|
||||
{$day_updateSQL=',day_seven_calls=(day_seven_calls+1)';}
|
||||
# Update in the vicidial_lead_call_quota_counts table for this lead
|
||||
$stmtA="UPDATE vicidial_lead_call_quota_counts SET last_call_date='$VDLcall_datetime',status='$CLnew_status',called_count='$VLcalled_count',rank='$tempVLrank',modify_date=NOW() $session_updateSQL $day_updateSQL where lead_id='$CLlead_id' and list_id='$VLlist_id' and modify_date < NOW();";
|
||||
}
|
||||
else
|
||||
{
|
||||
# Update in the vicidial_lead_call_quota_counts table for this lead
|
||||
$stmtA="UPDATE vicidial_lead_call_quota_counts SET status='$CLnew_status',called_count='$VLcalled_count',rank='$tempVLrank',modify_date=NOW() where lead_id='$CLlead_id' and list_id='$VLlist_id';";
|
||||
}
|
||||
$VLCQCaffected_rows_update = $dbhA->do($stmtA);
|
||||
$event_string = "-- VLCQC record updated: |$VLCQCaffected_rows_update| |$stmtA|"; &event_logger;
|
||||
}
|
||||
else
|
||||
{
|
||||
# Insert new record into vicidial_lead_call_quota_counts table for this lead
|
||||
$stmtA="INSERT INTO vicidial_lead_call_quota_counts SET lead_id='$CLlead_id',list_id='$VLlist_id',first_call_date='$VDLcall_datetime',last_call_date='$VDLcall_datetime',status='$CLnew_status',called_count='$VLcalled_count',day_one_calls='1',rank='$tempVLrank',modify_date=NOW() $session_newSQL;";
|
||||
$VLCQCaffected_rows_update = $dbhA->do($stmtA);
|
||||
$event_string = "-- VLCQC record inserted: |$VLCQCaffected_rows_update| |$stmtA|"; &event_logger;
|
||||
}
|
||||
|
||||
if ( ($zero_rank_after_call > 0) && ($VLrank > 0) )
|
||||
{
|
||||
# Update this lead to rank=0
|
||||
$stmtA="UPDATE vicidial_list SET rank='0' where lead_id='$CLlead_id';";
|
||||
$VLCQCaffected_rows_zero_rank = $dbhA->do($stmtA);
|
||||
$event_string = "-- VLCQC lead rank zero: |$VLCQCaffected_rows_zero_rank| |$stmtA|"; &event_logger;
|
||||
}
|
||||
}
|
||||
}
|
||||
$sthA->finish();
|
||||
}
|
||||
}
|
||||
}
|
||||
##### END Call Quota Lead Ranking logging #####
|
||||
|
||||
|
||||
##### BEGIN AUTO ALT PHONE DIAL SECTION #####
|
||||
$event_string = "|$stmtA|$VD_auto_alt_dial|$VD_auto_alt_dial_statuses|$CLnew_status|$CLlead_id|$CLalt_dial"; &event_logger;
|
||||
if ( ($VD_auto_alt_dial_statuses =~ / $CLnew_status /) && ($CLlead_id > 0) )
|
||||
{
|
||||
|
||||
Reference in New Issue
Block a user