2215 lines
85 KiB
Perl
2215 lines
85 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# agi-VDAD_ALL_outbound.agi version 2.2.0
|
|
#
|
|
# runs when an outbound call is answered. This script will
|
|
# send the calls out to the agents that are logged in.
|
|
# ## THIS SCRIPT CONSOLIDATES EIGHT SEPARATE VDAD outbound transfer SCRIPTS ##
|
|
#
|
|
#
|
|
# You need to put lines similar to those below in your extensions.conf file:
|
|
# ; Below are the parameters needed for the script to be run properly
|
|
# ; 1. the method of call handling for the script:
|
|
# ; - NORMAL - <default> Standard outbound routing to agent
|
|
# ; - TEST - For performance testing only
|
|
# ; - BROADCAST - For no-agent broadcast dialing
|
|
# ; - SURVEY - For survery question then on to agent
|
|
# ; - SURVEYCAMP - For survery question using campaign settings
|
|
# ; - SURVEYCAMPCEP - Survery question, campaign settings, cepstral name
|
|
# ; - REMINDER - Reminder campaign
|
|
# ; - REMINDX - Reminder with transfer to agent
|
|
# ; 2. the method of searching for an available agent:
|
|
# ; - LB - <default> Load Balance total system
|
|
# ; - LO - Load Balance Overflow only (priority to home server)
|
|
# ; - SO - Home server only
|
|
# ; 3. the sound file to play when doing a SURVEY, REMINDER, REMINDX campaign
|
|
# ; 4. the acceptible dtmf digits for a SURVEY
|
|
# ; 5. the out-opt digit for a SURVEY (must be in the digit map)
|
|
# ; 6. the sound file to play for a SURVEY when transfering to an agent
|
|
# ; 7. the sound file to play for a SURVEY when DNCing the call
|
|
# ; 8. OPTIN or OPTOUT: if OPTIN call is only sent to agent with button press
|
|
# ; if OPTOUT call is sent to agent if no button press at all
|
|
# ; 9. the status that is use for a SURVEY when someone opts out
|
|
# ; if the status is DNC it will also add them to the internal dnc table
|
|
#
|
|
# ;outbound VICIDIAL calls:
|
|
#exten => 8368,1,AGI(agi://127.0.0.1:4577/call_log)
|
|
#exten => 8368,2,AGI(agi-VDAD_ALL_outbound.agi,NORMAL-----LB)
|
|
#exten => 8368,3,AGI(agi-VDAD_ALL_outbound.agi,NORMAL-----LB)
|
|
#exten => 8368,4,AGI(agi-VDAD_ALL_outbound.agi,NORMAL-----LB)
|
|
#exten => 8368,5,Hangup
|
|
#
|
|
# ;outbound VICIDIAL SURVEY calls:
|
|
#exten => 8366,1,AGI(agi://127.0.0.1:4577/call_log)
|
|
#exten => 8366,2,AGI(agi-VDAD_ALL_outbound.agi,SURVEY-----LB-----US_pol_survey_hello-----1238-----8-----US_pol_survey_transfer-----US_thanks_no_contact-----OPTOUT-----DNC)
|
|
#exten => 8366,3,AGI(agi-VDAD_ALL_outbound.agi,SURVEY-----LB-----US_pol_survey_hello-----1238-----8-----US_pol_survey_transfer-----US_thanks_no_contact-----OPTOUT-----DNC)
|
|
#exten => 8366,4,AGI(agi-VDAD_ALL_outbound.agi,SURVEY-----LB-----US_pol_survey_hello-----1238-----8-----US_pol_survey_transfer-----US_thanks_no_contact-----OPTOUT-----DNC)
|
|
#exten => 8366,5,Hangup
|
|
#
|
|
# Copyright (C) 2010 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
|
|
#
|
|
# changes:
|
|
# 80218-2027 - First Build
|
|
# 80302-0232 - Added drop_action and transfer to in-group
|
|
# 80430-1144 - Added term_reason to vicidial_log, QUEUETIMEOUT
|
|
# 80520-0059 - Added SURVEY ability and digit maps
|
|
# 80527-2329 - Added SURVEYCAMP ability to pull settings from database
|
|
# 80831-0353 - Added logging of alt_dial field
|
|
# 80909-0603 - Added campaign-specific dnc option for outbound survey
|
|
# 81020-0235 - Fixed Drop hangup bug and other small bugs
|
|
# 81104-0255 - Changed code to alter callerIDnumber for remote agents to the number of the caller
|
|
# 81105-0424 - Added MySQL error logging
|
|
# 90202-0505 - Added CPD AMD detection and routing options
|
|
# 90214-0831 - Added CPD Fax detection option
|
|
# 90410-1645 - Added SURVEYCAMPCEP call handling method and cleaned up formatting
|
|
# 90628-1138 - Added more variable options for Cepstral TTS generation
|
|
# 90630-2250 - Added more Sangoma CDP statuses
|
|
# 90702-2240 - Added option to send to remote agent as phone*vendor_id
|
|
# 90721-1137 - Added rank and owner as vicidial_list fields
|
|
# 90808-0307 - Added longest_wait_time as agent routing option
|
|
# 90827-1535 - Added proper logging of list_id in vicidial_log table
|
|
# 90924-1605 - Added drop_inbound_group_override list_id option
|
|
# 91112-1101 - Changed ENTERQUEUE to CALLOUTBOUND in QM logging for outbound calls
|
|
# 91230-1159 - Change to callee callerID when sending the call to VMAIL
|
|
# 100205-1024 - Fixed CPD send to message
|
|
#
|
|
|
|
$script = 'agi-VDAD_ALL_outbound.agi';
|
|
$AGILOG = '0';
|
|
$mel=1; # Mysql Error Log enabled = 1
|
|
$mysql_log_count=57;
|
|
$one_mysql_log=0;
|
|
|
|
|
|
$DROP_TIME = 9; ### default number of seconds to wait until you drop a waiting call
|
|
$at='@';
|
|
$US='_';
|
|
|
|
# get date/time
|
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
|
$year = ($year + 1900);
|
|
$mon++;
|
|
if ($mon < 10) {$mon = "0$mon";}
|
|
if ($mday < 10) {$mday = "0$mday";}
|
|
if ($hour < 10) {$hour = "0$hour";}
|
|
if ($min < 10) {$min = "0$min";}
|
|
if ($sec < 10) {$sec = "0$sec";}
|
|
|
|
$now_date_epoch = time();
|
|
$now_date = "$year-$mon-$mday $hour:$min:$sec";
|
|
$CLInow_date = "$year-$mon-$mday\\ $hour:$min:$sec";
|
|
$start_time_epoch = $now_date_epoch;
|
|
$start_time=$now_date;
|
|
$CIDdate = "$mon$mday$hour$min$sec";
|
|
$tsSQLdate = "$year$mon$mday$hour$min$sec";
|
|
$filedate = "$US$year-$mon-$mday$US$hour$min$sec";
|
|
$SQLdate = "$year-$mon-$mday $hour:$min:$sec";
|
|
$SQLdateBEGIN = $SQLdate;
|
|
|
|
$BDtarget = ($now_date_epoch - 5);
|
|
($Bsec,$Bmin,$Bhour,$Bmday,$Bmon,$Byear,$Bwday,$Byday,$Bisdst) = localtime($BDtarget);
|
|
$Byear = ($Byear + 1900);
|
|
$Bmon++;
|
|
if ($Bmon < 10) {$Bmon = "0$Bmon";}
|
|
if ($Bmday < 10) {$Bmday = "0$Bmday";}
|
|
if ($Bhour < 10) {$Bhour = "0$Bhour";}
|
|
if ($Bmin < 10) {$Bmin = "0$Bmin";}
|
|
if ($Bsec < 10) {$Bsec = "0$Bsec";}
|
|
$BDtsSQLdate = "$Byear$Bmon$Bmday$Bhour$Bmin$Bsec";
|
|
|
|
$FDtarget = ($now_date_epoch + 120);
|
|
($Fsec,$Fmin,$Fhour,$Fmday,$Fmon,$Fyear,$Fwday,$Fyday,$Fisdst) = localtime($FDtarget);
|
|
$Fyear = ($Fyear + 1900);
|
|
$Fmon++;
|
|
if ($Fmon < 10) {$Fmon = "0$Fmon";}
|
|
if ($Fmday < 10) {$Fmday = "0$Fmday";}
|
|
if ($Fhour < 10) {$Fhour = "0$Fhour";}
|
|
if ($Fmin < 10) {$Fmin = "0$Fmin";}
|
|
if ($Fsec < 10) {$Fsec = "0$Fsec";}
|
|
$FDtsSQLdate = "$Fyear$Fmon$Fmday$Fhour$Fmin$Fsec";
|
|
|
|
|
|
# default path to astguiclient configuration file:
|
|
$PATHconf = '/etc/astguiclient.conf';
|
|
|
|
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
|
|
@conf = <conf>;
|
|
close(conf);
|
|
$i=0;
|
|
foreach(@conf)
|
|
{
|
|
$line = $conf[$i];
|
|
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
|
|
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
|
|
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
|
|
if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
|
|
{$PATHlogs = $line; $PATHlogs =~ s/.*=//gi;}
|
|
if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
|
|
{$PATHagi = $line; $PATHagi =~ s/.*=//gi;}
|
|
if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
|
|
{$PATHweb = $line; $PATHweb =~ s/.*=//gi;}
|
|
if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
|
|
{$PATHsounds = $line; $PATHsounds =~ s/.*=//gi;}
|
|
if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
|
|
{$PATHmonitor = $line; $PATHmonitor =~ s/.*=//gi;}
|
|
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
|
|
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
|
|
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
|
|
{$VARDB_server = $line; $VARDB_server =~ s/.*=//gi;}
|
|
if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
|
|
{$VARDB_database = $line; $VARDB_database =~ s/.*=//gi;}
|
|
if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
|
|
{$VARDB_user = $line; $VARDB_user =~ s/.*=//gi;}
|
|
if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
|
|
{$VARDB_pass = $line; $VARDB_pass =~ s/.*=//gi;}
|
|
if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
|
|
{$VARDB_port = $line; $VARDB_port =~ s/.*=//gi;}
|
|
$i++;
|
|
}
|
|
|
|
if (!$VARDB_port) {$VARDB_port='3306';}
|
|
if (!$AGILOGfile) {$AGILOGfile = "$PATHlogs/agiout.$year-$mon-$mday";}
|
|
if (!$PRSLOGfile) {$PRSLOGfile = "$PATHlogs/prsout.$year-$mon-$mday";}
|
|
if (!$PRSTESTfile) {$PRSTESTfile = "$PATHlogs/prstest.$year-$mon-$mday";}
|
|
if (!$ERRLOGfile) {$ERRLOGfile = "$PATHlogs/MySQLerror.$year-$mon-$mday";}
|
|
if (!$CEPLOGfile) {$CEPLOGfile = "$PATHlogs/Cepstral.$year-$mon-$mday";}
|
|
|
|
use DBI;
|
|
use Time::HiRes ('gettimeofday','usleep','sleep'); # necessary to have perl sleep command of less than one second
|
|
use Asterisk::AGI;
|
|
$AGI = new Asterisk::AGI;
|
|
|
|
$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
|
|
or die "Couldn't connect to database: " . DBI->errstr;
|
|
|
|
### Grab Server values from the database
|
|
$stmtA = "SELECT voicemail_dump_exten,ext_context,answer_transfer_agent,local_gmt,asterisk_version,max_vicidial_trunks,agi_output FROM servers where server_ip = '$VARserver_ip';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01001'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$DBvoicemail_dump_exten = "$aryA[0]";
|
|
$DBext_context = "$aryA[1]";
|
|
$DBanswer_transfer_agent = "$aryA[2]";
|
|
$DBSERVER_GMT = "$aryA[3]";
|
|
$DBasterisk_version = "$aryA[4]";
|
|
$DBmax_vicidial_trunks = "$aryA[5]";
|
|
$DBagi_output = "$aryA[6]";
|
|
if ($DBvoicemail_dump_exten) {$voicemail_dump_exten = $DBvoicemail_dump_exten;}
|
|
if ($DBext_context) {$ext_context = $DBext_context;}
|
|
if ($DBanswer_transfer_agent) {$answer_transfer_agent = $DBanswer_transfer_agent;}
|
|
if ($DBSERVER_GMT) {$SERVER_GMT = $DBSERVER_GMT;}
|
|
if ($DBasterisk_version) {$AST_ver = $DBasterisk_version;}
|
|
if ($DBmax_vicidial_trunks) {$max_vicidial_trunks = $DBmax_vicidial_trunks;}
|
|
if ($DBagi_output =~ /STDERR/) {$AGILOG = '1';}
|
|
if ($DBagi_output =~ /FILE/) {$AGILOG = '2';}
|
|
if ($DBagi_output =~ /BOTH/) {$AGILOG = '3';}
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
|
|
### begin parsing run-time options ###
|
|
if (length($ARGV[0])>1)
|
|
{
|
|
if ($AGILOG)
|
|
{$agi_string = "Perl Environment Dump:"; &agi_output;}
|
|
$i=0;
|
|
while ($#ARGV >= $i)
|
|
{
|
|
$args = "$args $ARGV[$i]";
|
|
if ($AGILOG) {$agi_string = "$i|$ARGV[$i]"; &agi_output;}
|
|
$i++;
|
|
}
|
|
|
|
### list of command-line array arguments:
|
|
@ARGV_vars = split(/-----/, $ARGV[0]);
|
|
$call_handle_method = $ARGV_vars[0];
|
|
$agent_search_method = $ARGV_vars[1];
|
|
$survey_first_audio_file = $ARGV_vars[2];
|
|
$survey_dtmf_digits = $ARGV_vars[3];
|
|
$survey_ni_digit = $ARGV_vars[4];
|
|
$survey_opt_in_audio_file = $ARGV_vars[5];
|
|
$survey_ni_audio_file = $ARGV_vars[6];
|
|
$survey_no_response_action =$ARGV_vars[7];
|
|
$survey_ni_status = $ARGV_vars[8];
|
|
}
|
|
|
|
if ($call_handle_method !~ /NORMAL|TEST|BROADCAST|SURVEY|REMIND/)
|
|
{$call_handle_method='NORMAL';}
|
|
if ($agent_search_method !~ /LB|LO|SO/)
|
|
{$agent_search_method='LB';}
|
|
|
|
if ($call_handle_method =~ /BROADCAST|SURVEY|REMIND/)
|
|
{$vdlog_status='PU';}
|
|
else
|
|
{$vdlog_status='QUEUE';}
|
|
|
|
$|=1;
|
|
while(<STDIN>)
|
|
{
|
|
chomp;
|
|
last unless length($_);
|
|
if ($AGILOG)
|
|
{
|
|
if (/^agi_(\w+)\:\s+(.*)$/)
|
|
{
|
|
$AGI{$1} = $2;
|
|
}
|
|
}
|
|
if (/^agi_uniqueid\:\s+(.*)$/) {$unique_id = $1; $uniqueid = $unique_id;}
|
|
if (/^agi_priority\:\s+(.*)$/) {$priority = $1;}
|
|
if (/^agi_channel\:\s+(.*)$/) {$channel = $1;}
|
|
if (/^agi_extension\:\s+(.*)$/) {$extension = $1;}
|
|
if (/^agi_type\:\s+(.*)$/) {$type = $1;}
|
|
if (/^agi_callerid\:\s+(.*)$/) {$callerid = $1;}
|
|
if (/^agi_calleridname\:\s+(.*)$/) {$calleridname = $1;}
|
|
}
|
|
|
|
if ( (length($callerid)>20) && ($callerid =~ /\"\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S\S/) )
|
|
{
|
|
$callerid =~ s/^\"//gi;
|
|
$callerid =~ s/\".*$//gi;
|
|
### set the callerid to the ACQS value(calleridname)
|
|
print "SET CALLERID $callerid\n";
|
|
checkresult($result);
|
|
if ($AGILOG) {$agi_string = "callerID changed: $callerid"; &agi_output;}
|
|
}
|
|
if ( (
|
|
(length($calleridname)>5) && ( (!$callerid) or ($callerid =~ /unknown|private|00000000/i) or ($callerid =~ /5551212/) )
|
|
) or ( (length($calleridname)>17) && ($calleridname =~ /\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/) ) )
|
|
{
|
|
$callerid = $calleridname;
|
|
### set the callerid to the ACQS value(calleridname)
|
|
print "SET CALLERID $callerid\n";
|
|
checkresult($result);
|
|
if ($AGILOG) {$agi_string = "callerID changed: $callerid"; &agi_output;}
|
|
}
|
|
|
|
if ($AGILOG) {$agi_string = "AGI Environment Dump:"; &agi_output;}
|
|
|
|
foreach $i (sort keys %AGI)
|
|
{
|
|
if ($AGILOG) {$agi_string = " -- $i = $AGI{$i}"; &agi_output;}
|
|
}
|
|
|
|
if ($AGILOG) {$agi_string = "AGI Variables: |$unique_id|$channel|$extension|$type|$callerid|$calleridname|$priority|"; &agi_output;}
|
|
|
|
$VDADcampaign='';
|
|
$VDADphone='';
|
|
$VDADphone_code='';
|
|
|
|
$callerid =~ s/\"//gi;
|
|
$CIDlead_id = $callerid;
|
|
$CIDlead_id = substr($CIDlead_id, 11, 9);
|
|
$CIDlead_id = ($CIDlead_id + 0);
|
|
|
|
if ($AGILOG) {$agi_string = "+++++ VDAD START : |$CIDlead_id|$now_date|$AST_ver|$priority|"; &agi_output;}
|
|
|
|
if ( ($channel =~ /Local/i) && ($AST_ver !~ /^1\.0\.8|^1\.0\.9/) )
|
|
{
|
|
if ($AGILOG) {$agi_string = "+++++ VDAD START LOCAL CHANNEL: EXITING- $priority"; &agi_output;}
|
|
if ($priority > 2) {sleep(1);}
|
|
exit;
|
|
}
|
|
|
|
$stmtA = "SELECT count(*) FROM vicidial_live_agents where callerid='$callerid';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01002'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$Pseudo_duplicate_count = "$aryA[0]";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
if ($AGILOG) {$agi_string = "$Pseudo_duplicate_count|$stmtA|"; &agi_output;}
|
|
|
|
if ($Pseudo_duplicate_count > 0)
|
|
{
|
|
if ($AGILOG) {$agi_string = "+++++ VDAD START PSEUDO DUPLICATE: EXITING- $priority"; &agi_output;}
|
|
exit;
|
|
}
|
|
|
|
$stmtA = "SELECT count(*) FROM vicidial_auto_calls where callerid='$callerid' and status IN('LIVE','XFER');";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01003'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$dialplan_duplicate_count = "$aryA[0]";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
if ($AGILOG) {$agi_string = "$dialplan_duplicate_count|$stmtA|"; &agi_output;}
|
|
|
|
if ($dialplan_duplicate_count > 0)
|
|
{
|
|
if ($AGILOG) {$agi_string = "+++++ VDAD START DIALPLAN DUPLICATE: EXITING- $priority"; &agi_output;}
|
|
exit;
|
|
}
|
|
|
|
### Grab call parameters from vicidial_auto_calls table
|
|
$stmtA = "UPDATE vicidial_auto_calls set uniqueid='$unique_id', channel='$channel',status='LIVE',stage='LIVE-0' where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01004'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD : |$affected_rows|update of vac table: $callerid\n|$stmtA|"; &agi_output;}
|
|
if ($affected_rows > 0)
|
|
{
|
|
# flag the lead as being Answered or Picked up
|
|
$stmtA = "UPDATE vicidial_list set status='PU' where lead_id='$CIDlead_id' and status NOT IN('CALLBK');";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01005'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD vicidial_list PU update: |$affected_rows|$uniqueid|"; &agi_output;}
|
|
|
|
$stmtA = "SELECT campaign_id,phone_number,phone_code,lead_id,call_time,alt_dial FROM vicidial_auto_calls where callerid='$callerid' order by call_time desc limit 1;";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01006'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$VDADcampaign = $aryA[0];
|
|
$VDADphone = $aryA[1];
|
|
$VDADphone_code = $aryA[2];
|
|
$VDADlead_id = $aryA[3];
|
|
$VDADcall_time = $aryA[4];
|
|
$VDADalt_dial = $aryA[5];
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
|
|
### Grab campaign values from the database
|
|
$stmtA = "SELECT drop_call_seconds,drop_action,safe_harbor_exten,concurrent_transfers,next_agent_call,voicemail_ext,drop_inbound_group,use_internal_dnc,use_campaign_dnc,cpd_amd_action,am_message_exten,three_way_call_cid,campaign_cid,survey_first_audio_file,survey_opt_in_audio_file,survey_ni_audio_file,survey_third_audio_file,survey_fourth_audio_file FROM vicidial_campaigns where campaign_id = '$VDADcampaign';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01007'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$DBdrop_call_seconds = "$aryA[0]";
|
|
$DBdrop_action = "$aryA[1]";
|
|
$DBsafe_harbor_exten = "$aryA[2]";
|
|
$DBconcurrent_transfers = "$aryA[3]";
|
|
if ($DBdrop_call_seconds) {$DROP_TIME = $DBdrop_call_seconds;}
|
|
if ($DBdrop_action) {$drop_action = $DBdrop_action;}
|
|
if ($DBsafe_harbor_exten) {$safe_harbor_exten = $DBsafe_harbor_exten;}
|
|
$CAMP_callorder = "$aryA[4]";
|
|
$VDADvoicemail_ext = "$aryA[5]";
|
|
$drop_inbound_group = "$aryA[6]";
|
|
$use_internal_dnc = "$aryA[7]";
|
|
$use_campaign_dnc = "$aryA[8]";
|
|
$cpd_amd_action = "$aryA[9]";
|
|
$am_message_exten = "$aryA[10]";
|
|
$three_way_call_cid = "$aryA[11]";
|
|
$campaign_cid = "$aryA[12]";
|
|
$survey_first_audio_file = "$aryA[13]";
|
|
$survey_opt_in_audio_file = "$aryA[14]";
|
|
$survey_ni_audio_file = "$aryA[15]";
|
|
$survey_third_audio_file = "$aryA[16]";
|
|
$survey_fourth_audio_file = "$aryA[17]";
|
|
}
|
|
$sthA->finish();
|
|
|
|
### pre-generate Cepstral first and last name as an audio file
|
|
if ($call_handle_method =~ /SURVEYCAMPCEP/)
|
|
{
|
|
$t=0;
|
|
if ($survey_first_audio_file =~ /^TTS/)
|
|
{
|
|
$TTS_prompt[$t] = 'survey_first_audio_file';
|
|
$TTS_filename[$t] = $survey_first_audio_file;
|
|
$TTS_filename[$t]=~s/^TTS//gi;
|
|
$t++;
|
|
}
|
|
if ($survey_opt_in_audio_file =~ /^TTS/)
|
|
{
|
|
$TTS_prompt[$t] = 'survey_opt_in_audio_file';
|
|
$TTS_filename[$t] = $survey_opt_in_audio_file;
|
|
$TTS_filename[$t]=~s/^TTS//gi;
|
|
$t++;
|
|
}
|
|
if ($survey_ni_audio_file =~ /^TTS/)
|
|
{
|
|
$TTS_prompt[$t] = 'survey_ni_audio_file';
|
|
$TTS_filename[$t] = $survey_ni_audio_file;
|
|
$TTS_filename[$t]=~s/^TTS//gi;
|
|
$t++;
|
|
}
|
|
if ($survey_third_audio_file =~ /^TTS/)
|
|
{
|
|
$TTS_prompt[$t] = 'survey_third_audio_file';
|
|
$TTS_filename[$t] = $survey_third_audio_file;
|
|
$TTS_filename[$t]=~s/^TTS//gi;
|
|
$t++;
|
|
}
|
|
if ($survey_fourth_audio_file =~ /^TTS/)
|
|
{
|
|
$TTS_prompt[$t] = 'survey_fourth_audio_file';
|
|
$TTS_filename[$t] = $survey_fourth_audio_file;
|
|
$TTS_filename[$t]=~s/^TTS//gi;
|
|
$t++;
|
|
}
|
|
|
|
if ($AGILOG) {$agi_string = "-- TTS : |$t|$TTS_filename[0]|$TTS_filename[1]|$TTS_filename[2]|$TTS_filename[3]|$TTS_filename[4]|"; &agi_output;}
|
|
|
|
### if there are TTS audio files run this
|
|
if ($t > 0)
|
|
{
|
|
$stmtA = "SELECT lead_id,entry_date,modify_date,status,user,vendor_lead_code,source_id,list_id,phone_number,title,first_name,middle_initial,last_name,address1,address2,address3,city,state,province,postal_code,country_code,gender,date_of_birth,alt_phone,email,security_phrase,comments,called_count,last_local_call_time,rank,owner FROM vicidial_list where lead_id='$CIDlead_id';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01057'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$TTS_lead_id = $aryA[0];
|
|
$TTS_entry_date = $aryA[1];
|
|
$TTS_modify_date = $aryA[2];
|
|
$TTS_status = $aryA[3];
|
|
$TTS_user = $aryA[4];
|
|
$TTS_vendor_lead_code = $aryA[5];
|
|
$TTS_source_id = $aryA[6];
|
|
$TTS_list_id = $aryA[7];
|
|
$TTS_phone_number = $aryA[8];
|
|
$TTS_title = $aryA[9];
|
|
$TTS_first_name = $aryA[10];
|
|
$TTS_middle_initial = $aryA[11];
|
|
$TTS_last_name = $aryA[12];
|
|
$TTS_address1 = $aryA[13];
|
|
$TTS_address2 = $aryA[14];
|
|
$TTS_address3 = $aryA[15];
|
|
$TTS_city = $aryA[16];
|
|
$TTS_state = $aryA[17];
|
|
$TTS_province = $aryA[18];
|
|
$TTS_postal_code = $aryA[19];
|
|
$TTS_country_code = $aryA[20];
|
|
$TTS_gender = $aryA[21];
|
|
$TTS_date_of_birth = $aryA[22];
|
|
$TTS_alt_phone = $aryA[23];
|
|
$TTS_email = $aryA[24];
|
|
$TTS_security_phrase = $aryA[25];
|
|
$TTS_comments = $aryA[26];
|
|
$TTS_called_count = $aryA[27];
|
|
$TTS_last_local_call_time = $aryA[28];
|
|
$TTS_rank = $aryA[29];
|
|
$TTS_owner = $aryA[30];
|
|
}
|
|
$sthA->finish();
|
|
|
|
$s=0;
|
|
while ($s < $t)
|
|
{
|
|
$stmtA = "SELECT tts_text FROM vicidial_tts_prompts where tts_id='$TTS_filename[$s]';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01057'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($s < 1) {$hideCLI = '';}
|
|
else {$hideCLI = '&';}
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$TTS_text[$s] = $aryA[0];
|
|
$TTS_text[$s] =~ s/--A--lead_id--B--/$TTS_lead_id/gi;
|
|
$TTS_text[$s] =~ s/--A--entry_date--B--/$TTS_entry_date/gi;
|
|
$TTS_text[$s] =~ s/--A--modify_date--B--/$TTS_modify_date/gi;
|
|
$TTS_text[$s] =~ s/--A--status--B--/$TTS_status/gi;
|
|
$TTS_text[$s] =~ s/--A--user--B--/$TTS_user/gi;
|
|
$TTS_text[$s] =~ s/--A--vendor_lead_code--B--/$TTS_vendor_lead_code/gi;
|
|
$TTS_text[$s] =~ s/--A--source_id--B--/$TTS_source_id/gi;
|
|
$TTS_text[$s] =~ s/--A--list_id--B--/$TTS_list_id/gi;
|
|
$TTS_text[$s] =~ s/--A--phone_number--B--/$TTS_phone_number/gi;
|
|
$TTS_text[$s] =~ s/--A--title--B--/$TTS_title/gi;
|
|
$TTS_text[$s] =~ s/--A--first_name--B--/$TTS_first_name/gi;
|
|
$TTS_text[$s] =~ s/--A--middle_initial--B--/$TTS_middle_initial/gi;
|
|
$TTS_text[$s] =~ s/--A--last_name--B--/$TTS_last_name/gi;
|
|
$TTS_text[$s] =~ s/--A--address1--B--/$TTS_address1/gi;
|
|
$TTS_text[$s] =~ s/--A--address2--B--/$TTS_address2/gi;
|
|
$TTS_text[$s] =~ s/--A--address3--B--/$TTS_address3/gi;
|
|
$TTS_text[$s] =~ s/--A--city--B--/$TTS_city/gi;
|
|
$TTS_text[$s] =~ s/--A--state--B--/$TTS_state/gi;
|
|
$TTS_text[$s] =~ s/--A--province--B--/$TTS_province/gi;
|
|
$TTS_text[$s] =~ s/--A--postal_code--B--/$TTS_postal_code/gi;
|
|
$TTS_text[$s] =~ s/--A--country_code--B--/$TTS_country_code/gi;
|
|
$TTS_text[$s] =~ s/--A--gender--B--/$TTS_gender/gi;
|
|
$TTS_text[$s] =~ s/--A--date_of_birth--B--/$TTS_date_of_birth/gi;
|
|
$TTS_text[$s] =~ s/--A--alt_phone--B--/$TTS_alt_phone/gi;
|
|
$TTS_text[$s] =~ s/--A--email--B--/$TTS_email/gi;
|
|
$TTS_text[$s] =~ s/--A--security_phrase--B--/$TTS_security_phrase/gi;
|
|
$TTS_text[$s] =~ s/--A--comments--B--/$TTS_comments/gi;
|
|
$TTS_text[$s] =~ s/--A--called_count--B--/$TTS_called_count/gi;
|
|
$TTS_text[$s] =~ s/--A--last_local_call_time--B--/$TTS_last_local_call_time/gi;
|
|
$TTS_text[$s] =~ s/--A--rank--B--/$TTS_rank/gi;
|
|
$TTS_text[$s] =~ s/--A--owner--B--/$TTS_owner/gi;
|
|
$TTS_text[$s] =~ s/[^,\.\<\>\'\/\=\_\-\: 0-9a-zA-Z]//gi;
|
|
$TTS_textRAW[$s] = $TTS_text[$s];
|
|
$TTS_text[$s] =~ s/ /\\ /gi;
|
|
$TTS_text[$s] =~ s/\./\\./gi;
|
|
$TTS_text[$s] =~ s/\=/\\=/gi;
|
|
$TTS_text[$s] =~ s/\</\\</gi;
|
|
$TTS_text[$s] =~ s/\>/\\>/gi;
|
|
$TTS_text[$s] =~ s/\//\\\//gi;
|
|
$TTS_text[$s] =~ s/\'/\\'/gi;
|
|
$voice = 'Allison-8kHz';
|
|
print STDERR "\nGenerating: $TTS_text[$s] - $voice\n";
|
|
`$PATHagi/cepstral_generate.pl --debug --voice=$voice --dialog=$TTS_text[$s] >> $CEPLOGfile $hideCLI`;
|
|
|
|
use Digest::MD5 qw(md5_hex);
|
|
|
|
$enc = md5_hex("$TTS_textRAW[$s]-$voice"); # the hash
|
|
$enc_ftl = substr($enc, 0, 2); # first letter of hash
|
|
$TTS_filename_path[$s] = $PATHsounds . "/tts/" . $enc_ftl . "/tts-" . $enc;
|
|
print STDERR "\nfilename: $TTS_filename_path[$s]\n";
|
|
}
|
|
$sthA->finish();
|
|
|
|
$s++;
|
|
}
|
|
|
|
$s=0;
|
|
while ($s < $t)
|
|
{
|
|
if ($TTS_prompt[$s] =~ /survey_first_audio_file/)
|
|
{$survey_first_audio_file = $TTS_filename_path[$s];}
|
|
if ($TTS_prompt[$s] =~ /survey_opt_in_audio_file/)
|
|
{$survey_opt_in_audio_file = $TTS_filename_path[$s];}
|
|
if ($TTS_prompt[$s] =~ /survey_ni_audio_file/)
|
|
{$survey_ni_audio_file = $TTS_filename_path[$s];}
|
|
if ($TTS_prompt[$s] =~ /survey_third_audio_file/)
|
|
{$survey_third_audio_file = $TTS_filename_path[$s];}
|
|
if ($TTS_prompt[$s] =~ /survey_fourth_audio_file/)
|
|
{$survey_fourth_audio_file = $TTS_filename_path[$s];}
|
|
$s++;
|
|
}
|
|
}
|
|
}
|
|
|
|
$xCLlist_id=0;
|
|
$stmtA = "SELECT list_id from vicidial_list where lead_id='$CIDlead_id' limit 1;";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArowsLI=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='010XX'; $MEL_aff_rows=$sthArowsLI; &mysql_error_logging;
|
|
if ($sthArowsLI > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$xCLlist_id = "$aryA[0]";
|
|
}
|
|
$sthA->finish();
|
|
|
|
$stmtA = "INSERT INTO vicidial_log (uniqueid,lead_id,campaign_id,call_date,start_epoch,status,phone_code,phone_number,user,processed,alt_dial,list_id) values('$uniqueid','$CIDlead_id','$VDADcampaign','$SQLdate','$now_date_epoch','$vdlog_status','$VDADphone_code','$VDADphone','VDAD','N','$VDADalt_dial','$xCLlist_id')";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01008'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
|
|
if ($AGILOG) {$agi_string = "-- VDAD : |$VDADlead_id|$CIDlead_id|insert to vicidial_log: $uniqueid"; &agi_output;}
|
|
|
|
#############################################
|
|
##### START QUEUEMETRICS LOGGING LOOKUP #####
|
|
$stmtA = "SELECT enable_queuemetrics_logging,queuemetrics_server_ip,queuemetrics_dbname,queuemetrics_login,queuemetrics_pass,queuemetrics_log_id,queuemetrics_eq_prepend FROM system_settings;";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01009'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$enable_queuemetrics_logging = "$aryA[0]";
|
|
$queuemetrics_server_ip = "$aryA[1]";
|
|
$queuemetrics_dbname = "$aryA[2]";
|
|
$queuemetrics_login= "$aryA[3]";
|
|
$queuemetrics_pass = "$aryA[4]";
|
|
$queuemetrics_log_id = "$aryA[5]";
|
|
$queuemetrics_eq_prepend = "$aryA[6]";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
##### END QUEUEMETRICS LOGGING LOOKUP #####
|
|
###########################################
|
|
if ($enable_queuemetrics_logging > 0)
|
|
{
|
|
$stmtA = "SELECT phone_number FROM vicidial_auto_calls where lead_id='$CIDlead_id';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01010'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$phone_number = "$aryA[0]";
|
|
$data2 = "$phone_number";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
|
|
if ( (length($queuemetrics_eq_prepend) > 0) && ($queuemetrics_eq_prepend !~ /NONE/) )
|
|
{
|
|
$stmtA = "SELECT $queuemetrics_eq_prepend FROM vicidial_list where lead_id='$CIDlead_id';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01011'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
$DASH='-';
|
|
@aryA = $sthA->fetchrow_array;
|
|
$QMprepend = "$aryA[0]";
|
|
$rec_count++;
|
|
$data2 = "$QMprepend$DASH$phone_number";
|
|
}
|
|
$sthA->finish();
|
|
}
|
|
|
|
$dbhB = DBI->connect("DBI:mysql:$queuemetrics_dbname:$queuemetrics_server_ip:3306", "$queuemetrics_login", "$queuemetrics_pass")
|
|
or die "Couldn't connect to database: " . DBI->errstr;
|
|
|
|
if ($DBX) {print "CONNECTED TO DATABASE: $queuemetrics_server_ip|$queuemetrics_dbname\n";}
|
|
|
|
$stmtB = "INSERT INTO queue_log SET partition='P01',time_id='$now_date_epoch',call_id='$callerid',queue='$VDADcampaign',agent='NONE',verb='CALLOUTBOUND',data2='$data2',serverid='$queuemetrics_log_id';";
|
|
$Baffected_rows = $dbhB->do($stmtB);
|
|
$dbhP=$dbhB; $stmtA=$stmtB; $mysql_count='01012'; $MEL_aff_rows=$Baffected_rows; &mysql_error_logging;
|
|
$dbhB->disconnect();
|
|
}
|
|
}
|
|
|
|
|
|
################################################################################
|
|
##### PLAY REMINDER MESSAGE #####
|
|
if ($call_handle_method =~ /REMIND/)
|
|
{
|
|
$AGI->stream_file('sip-silence');
|
|
|
|
############# BEGIN CPD AMD SECTION ############################
|
|
if ($cpd_amd_action =~ /DISPO|MESSAGE/)
|
|
{
|
|
$stmtA = "SELECT count(*) FROM vicidial_cpd_log where callerid='$callerid' and result NOT IN('Voice','Unknown','???','') and status='NEW';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01054'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$cpd_amd = "$aryA[0]";
|
|
}
|
|
$sthA->finish();
|
|
|
|
if ($cpd_amd > 0)
|
|
{
|
|
&cpd_end_call;
|
|
}
|
|
}
|
|
############# END CPD AMD SECTION ############################
|
|
|
|
$stmtA = "UPDATE vicidial_auto_calls set last_update_time='$FDtsSQLdate',stage='REMIND-0' where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01013'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAC posttime record: |$affected_rows|$FDtsSQLdate|$callerid|REMIND|"; &agi_output;}
|
|
|
|
$AGI->stream_file("$survey_first_audio_file");
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
################################################################################
|
|
##### START DO THE SURVEY #####
|
|
if ($call_handle_method =~ /SURVEY/)
|
|
{
|
|
$AGI->stream_file('sip-silence');
|
|
|
|
############# BEGIN CPD AMD SECTION ############################
|
|
if ($cpd_amd_action =~ /DISPO|MESSAGE/)
|
|
{
|
|
$stmtA = "SELECT count(*) FROM vicidial_cpd_log where callerid='$callerid' and result NOT IN('Voice','Unknown','???','') and status='NEW';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01054'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$cpd_amd = "$aryA[0]";
|
|
}
|
|
$sthA->finish();
|
|
|
|
if ($cpd_amd > 0)
|
|
{
|
|
&cpd_end_call;
|
|
}
|
|
}
|
|
############# END CPD AMD SECTION ############################
|
|
|
|
$stmtA = "UPDATE vicidial_auto_calls set last_update_time='$FDtsSQLdate',stage='SURVEY-0' where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01014'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAC posttime record: |$affected_rows|$FDtsSQLdate|$callerid|SURVEY|"; &agi_output;}
|
|
|
|
### check to see if the SURVEY settings should be pulled from the campaign settings in the database
|
|
if ($call_handle_method =~ /SURVEYCAMP/)
|
|
{
|
|
$stmtA = "SELECT survey_dtmf_digits,survey_ni_digit,survey_method,survey_no_response_action,survey_ni_status,survey_response_digit_map,survey_xfer_exten,survey_camp_record_dir,survey_third_digit,survey_third_status,survey_third_exten,survey_fourth_digit,survey_fourth_status,survey_fourth_exten FROM vicidial_campaigns where campaign_id='$VDADcampaign';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01015'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
|
|
$survey_dtmf_digits = "$aryA[0]";
|
|
$survey_ni_digit = "$aryA[1]";
|
|
$survey_method = "$aryA[2]";
|
|
$survey_no_response_action = "$aryA[3]";
|
|
$survey_ni_status = "$aryA[4]";
|
|
$survey_response_digit_map = "$aryA[5]";
|
|
$survey_xfer_exten = "$aryA[6]";
|
|
$survey_camp_record_dir = "$aryA[7]";
|
|
$survey_third_digit = "$aryA[8]";
|
|
$survey_third_status = "$aryA[9]";
|
|
$survey_third_exten = "$aryA[10]";
|
|
$survey_fourth_digit = "$aryA[11]";
|
|
$survey_fourth_status = "$aryA[12]";
|
|
$survey_fourth_exten = "$aryA[13]";
|
|
|
|
@digit_map = split(/\|/,$survey_response_digit_map);
|
|
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
}
|
|
|
|
# play the message and let them press a number
|
|
$digits_to_collect = '1';
|
|
$opt_code = enter_pin_number($survey_first_audio_file,$survey_dtmf_digits);
|
|
if (length($opt_code) < 1) {$opt_code = 'X';}
|
|
$opt_description = $opt_code;
|
|
|
|
$w=0;
|
|
foreach (@digit_map)
|
|
{
|
|
if ($digit_map[$w] =~ /^$opt_code/) {$opt_description = $digit_map[$w]}
|
|
$w++;
|
|
}
|
|
|
|
# record what they entered
|
|
$stmtA = "UPDATE vicidial_list set security_phrase='$opt_description',status='PM' where lead_id = '$CIDlead_id';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01016'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_list OPT_CODE update: |$affected_rows|$CIDlead_id|$opt_code|";
|
|
&agi_output;
|
|
}
|
|
|
|
# they opted out
|
|
if ($opt_code =~ /$survey_ni_digit/)
|
|
{
|
|
if ( $survey_ni_audio_file ne "")
|
|
{
|
|
$AGI->stream_file($survey_ni_audio_file);
|
|
}
|
|
|
|
$stmtA = "DELETE FROM vicidial_auto_calls where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01017'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vac record deleted: |$affected_rows|$VDADcampaign|";
|
|
&agi_output;
|
|
}
|
|
|
|
$Euniqueid=$uniqueid;
|
|
$Euniqueid =~ s/\.\d+//gi;
|
|
$now_date_epoch = time();
|
|
$drop_seconds = $now_date_epoch - $start_time_epoch;
|
|
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='$survey_ni_status', end_epoch='$now_date_epoch', length_in_sec='$drop_seconds', term_reason='CALLER' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01018'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_log update: $survey_ni_status|$affected_rows|$uniqueid|$drop_seconds|";
|
|
&agi_output;
|
|
}
|
|
|
|
$stmtA = "UPDATE vicidial_list set status='$survey_ni_status' where lead_id = '$CIDlead_id';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01019'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_list update: $survey_ni_status|$affected_rows|$CIDlead_id";
|
|
&agi_output;
|
|
}
|
|
|
|
if (($use_internal_dnc =~ /Y/) && ($survey_ni_status eq "DNC"))
|
|
{
|
|
$stmtA = "INSERT INTO vicidial_dnc set phone_number='$VDADphone';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01020'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_dnc insert: $affected_rows|$VDADphone";
|
|
&agi_output;
|
|
}
|
|
}
|
|
if (($use_campaign_dnc =~ /Y/) && ($survey_ni_status eq "DNC"))
|
|
{
|
|
$stmtA = "INSERT INTO vicidial_campaign_dnc set phone_number='$VDADphone', campaign_id='$VDADcampaign';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01021'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_campaign_dnc insert: $affected_rows|$VDADphone|$VDADcampaign";
|
|
&agi_output;
|
|
}
|
|
}
|
|
|
|
$AGI->hangup();
|
|
|
|
exit;
|
|
}
|
|
|
|
### third digit option
|
|
if ($opt_code =~ /$survey_third_digit/)
|
|
{
|
|
if ( $survey_third_audio_file ne "")
|
|
{
|
|
$AGI->stream_file($survey_third_audio_file);
|
|
}
|
|
|
|
$stmtA = "DELETE FROM vicidial_auto_calls where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01017'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vac record deleted: |$affected_rows|$VDADcampaign|";
|
|
&agi_output;
|
|
}
|
|
|
|
$Euniqueid=$uniqueid;
|
|
$Euniqueid =~ s/\.\d+//gi;
|
|
$now_date_epoch = time();
|
|
$drop_seconds = $now_date_epoch - $start_time_epoch;
|
|
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='$survey_third_status', end_epoch='$now_date_epoch', length_in_sec='$drop_seconds', term_reason='CALLER' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01018'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_log update: $survey_third_status|$affected_rows|$uniqueid|$drop_seconds|";
|
|
&agi_output;
|
|
}
|
|
|
|
$stmtA = "UPDATE vicidial_list set status='$survey_third_status' where lead_id = '$CIDlead_id';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01019'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_list update: $survey_third_status|$affected_rows|$CIDlead_id";
|
|
&agi_output;
|
|
}
|
|
|
|
if (($use_internal_dnc =~ /Y/) && ($survey_third_status eq "DNC"))
|
|
{
|
|
$stmtA = "INSERT INTO vicidial_dnc set phone_number='$VDADphone';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01020'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_dnc insert: $affected_rows|$VDADphone";
|
|
&agi_output;
|
|
}
|
|
}
|
|
if (($use_campaign_dnc =~ /Y/) && ($survey_third_status eq "DNC"))
|
|
{
|
|
$stmtA = "INSERT INTO vicidial_campaign_dnc set phone_number='$VDADphone', campaign_id='$VDADcampaign';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01021'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_campaign_dnc insert: $affected_rows|$VDADphone|$VDADcampaign";
|
|
&agi_output;
|
|
}
|
|
}
|
|
|
|
if (length($survey_third_exten) > 0)
|
|
{
|
|
if ($AGILOG) {$agi_string = "exiting the VDAD SURVEY app, transferring call to $survey_third_exten"; &agi_output;}
|
|
print "SET CONTEXT $ext_context\n";
|
|
checkresult($result);
|
|
print "SET EXTENSION $survey_third_exten\n";
|
|
checkresult($result);
|
|
print "SET PRIORITY 1\n";
|
|
checkresult($result);
|
|
}
|
|
else
|
|
{$AGI->hangup();}
|
|
|
|
exit;
|
|
}
|
|
|
|
|
|
### fourth digit option
|
|
if ($opt_code =~ /$survey_fourth_digit/)
|
|
{
|
|
if ( $survey_fourth_audio_file ne "")
|
|
{
|
|
$AGI->stream_file($survey_fourth_audio_file);
|
|
}
|
|
|
|
$stmtA = "DELETE FROM vicidial_auto_calls where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01017'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vac record deleted: |$affected_rows|$VDADcampaign|";
|
|
&agi_output;
|
|
}
|
|
|
|
$Euniqueid=$uniqueid;
|
|
$Euniqueid =~ s/\.\d+//gi;
|
|
$now_date_epoch = time();
|
|
$drop_seconds = $now_date_epoch - $start_time_epoch;
|
|
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='$survey_fourth_status', end_epoch='$now_date_epoch', length_in_sec='$drop_seconds', term_reason='CALLER' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01018'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_log update: $survey_fourth_status|$affected_rows|$uniqueid|$drop_seconds|";
|
|
&agi_output;
|
|
}
|
|
|
|
$stmtA = "UPDATE vicidial_list set status='$survey_fourth_status' where lead_id = '$CIDlead_id';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01019'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_list update: $survey_fourth_status|$affected_rows|$CIDlead_id";
|
|
&agi_output;
|
|
}
|
|
|
|
if (($use_internal_dnc =~ /Y/) && ($survey_fourth_status eq "DNC"))
|
|
{
|
|
$stmtA = "INSERT INTO vicidial_dnc set phone_number='$VDADphone';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01020'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_dnc insert: $affected_rows|$VDADphone";
|
|
&agi_output;
|
|
}
|
|
}
|
|
if (($use_campaign_dnc =~ /Y/) && ($survey_fourth_status eq "DNC"))
|
|
{
|
|
$stmtA = "INSERT INTO vicidial_campaign_dnc set phone_number='$VDADphone', campaign_id='$VDADcampaign';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01021'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_campaign_dnc insert: $affected_rows|$VDADphone|$VDADcampaign";
|
|
&agi_output;
|
|
}
|
|
}
|
|
|
|
if (length($survey_fourth_exten) > 0)
|
|
{
|
|
if ($AGILOG) {$agi_string = "exiting the VDAD SURVEY app, transferring call to $survey_fourth_exten"; &agi_output;}
|
|
print "SET CONTEXT $ext_context\n";
|
|
checkresult($result);
|
|
print "SET EXTENSION $survey_fourth_exten\n";
|
|
checkresult($result);
|
|
print "SET PRIORITY 1\n";
|
|
checkresult($result);
|
|
}
|
|
else
|
|
{$AGI->hangup();}
|
|
|
|
exit;
|
|
}
|
|
|
|
# they opted in
|
|
if ( ($opt_code =~ /\d/) || ($survey_no_response_action =~ /OPTOUT/) )
|
|
{
|
|
$now_date_epoch = time();
|
|
$FDtarget = ($now_date_epoch + 60);
|
|
($Fsec,$Fmin,$Fhour,$Fmday,$Fmon,$Fyear,$Fwday,$Fyday,$Fisdst) = localtime($FDtarget);
|
|
$Fyear = ($Fyear + 1900);
|
|
$Fmon++;
|
|
if ($Fmon < 10) {$Fmon = "0$Fmon";}
|
|
if ($Fmday < 10) {$Fmday = "0$Fmday";}
|
|
if ($Fhour < 10) {$Fhour = "0$Fhour";}
|
|
if ($Fmin < 10) {$Fmin = "0$Fmin";}
|
|
if ($Fsec < 10) {$Fsec = "0$Fsec";}
|
|
$FDtsSQLdate = "$Fyear$Fmon$Fmday$Fhour$Fmin$Fsec";
|
|
|
|
$stmtA = "UPDATE vicidial_auto_calls set last_update_time='$FDtsSQLdate' where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01022'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAC posttime record: |$affected_rows|$FDtsSQLdate|$callerid|"; &agi_output;}
|
|
|
|
if ( $survey_opt_in_audio_file ne "")
|
|
{
|
|
$AGI->stream_file($survey_opt_in_audio_file);
|
|
}
|
|
|
|
if ($survey_method =~ /VOICEMAIL|EXTENSION|HANGUP/)
|
|
{
|
|
$DROPexten='';
|
|
if ($survey_method =~ /VOICEMAIL/)
|
|
{
|
|
$newcallerid = "\"$callerid <$VDADphone>\"";
|
|
$AGI->set_callerid($newcallerid);
|
|
print STDERR "Setting CID \"$newcallerid\"\n";
|
|
checkresult($result);
|
|
if ($AGILOG) {$agi_string = "callerID changed: $newcallerid"; &agi_output;}
|
|
$survey_status='SVYVM';
|
|
if (length($VDADvoicemail_ext)>0)
|
|
{$DROPexten = "$voicemail_dump_exten$VDADvoicemail_ext";}
|
|
}
|
|
if ($survey_method =~ /EXTENSION/)
|
|
{
|
|
$survey_status='SVYEXT';
|
|
if (length($survey_xfer_exten)>0)
|
|
{
|
|
$DROPexten = "$survey_xfer_exten";
|
|
|
|
if ($three_way_call_cid !~ /CUSTOMER/)
|
|
{
|
|
$newcallerid = "\"$campaign_cid <$campaign_cid>\"";
|
|
$AGI->set_callerid($newcallerid);
|
|
|
|
print STDERR "Setting CID \"$newcallerid\"\n";
|
|
checkresult($result);
|
|
if ($AGILOG) {$agi_string = "callerID changed: \"$calleridname\" \<$VDADphone\>"; &agi_output;}
|
|
}
|
|
}
|
|
}
|
|
if ($survey_method =~ /HANGUP/)
|
|
{
|
|
$survey_status='SVYHU';
|
|
}
|
|
|
|
$Euniqueid=$uniqueid;
|
|
$Euniqueid =~ s/\.\d+//gi;
|
|
$now_date_epoch = time();
|
|
$drop_seconds = $now_date_epoch - $start_time_epoch;
|
|
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='$survey_status', end_epoch='$now_date_epoch', length_in_sec='$drop_seconds', term_reason='CALLER' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01023'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_log update: $survey_status|$affected_rows|$uniqueid|$drop_seconds|";
|
|
&agi_output;
|
|
}
|
|
|
|
$stmtA = "UPDATE vicidial_list set status='$survey_status' where lead_id = '$CIDlead_id';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01024'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_list update: $survey_status|$affected_rows|$CIDlead_id";
|
|
&agi_output;
|
|
}
|
|
|
|
if (length($DROPexten) > 0)
|
|
{
|
|
$stmtA = "UPDATE vicidial_auto_calls set status='XFER',stage='XFER-0' where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01025'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAC XFER status: |$affected_rows|$FDtsSQLdate|$callerid|"; &agi_output;}
|
|
|
|
if ($AGILOG) {$agi_string = "exiting the VDAD SURVEY app, transferring call to $DROPexten"; &agi_output;}
|
|
print "SET CONTEXT $ext_context\n";
|
|
checkresult($result);
|
|
print "SET EXTENSION $DROPexten\n";
|
|
checkresult($result);
|
|
print "SET PRIORITY 1\n";
|
|
checkresult($result);
|
|
|
|
exit;
|
|
}
|
|
|
|
if ($survey_method =~ /HANGUP/)
|
|
{
|
|
$stmtA = "DELETE FROM vicidial_auto_calls where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01026'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vac record deleted: |$affected_rows|$VDADcampaign|";
|
|
&agi_output;
|
|
}
|
|
|
|
$AGI->hangup();
|
|
|
|
exit;
|
|
}
|
|
}
|
|
|
|
if ($survey_method =~ /CAMPREC/)
|
|
{
|
|
if ($survey_method =~ /60/)
|
|
{$timeout=60000;}
|
|
if ($survey_method =~ /WAV/)
|
|
{$format='WAV';}
|
|
if ($survey_method =~ /GSM/)
|
|
{$format='GSM';}
|
|
|
|
$survey_status='SVYREC';
|
|
|
|
$Euniqueid=$uniqueid;
|
|
$Euniqueid =~ s/\.\d+//gi;
|
|
$now_date_epoch = time();
|
|
$drop_seconds = $now_date_epoch - $start_time_epoch;
|
|
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='$survey_status', end_epoch='$now_date_epoch', length_in_sec='$drop_seconds', term_reason='CALLER' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01027'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_log update: $survey_status|$affected_rows|$uniqueid|$drop_seconds|";
|
|
&agi_output;
|
|
}
|
|
|
|
$stmtA = "UPDATE vicidial_list set status='$survey_status' where lead_id = '$CIDlead_id';";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01028'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_list update: $survey_status|$affected_rows|$CIDlead_id";
|
|
&agi_output;
|
|
}
|
|
|
|
if ( -e ('$survey_camp_record_dir/$VDADcampaign'))
|
|
{$do_nothing=1;}
|
|
else
|
|
{`mkdir -p --mode=0666 $survey_camp_record_dir/$VDADcampaign`;}
|
|
|
|
$AGI->stream_file('beep');
|
|
|
|
$interrupt_digit = $AGI->record_file("$survey_camp_record_dir/$VDADcampaign/$VDADphone$filedate", "$format", '123456789*#', "$timeout", '0', 1, '10');
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "RECORDING FINISHED: $interrupt_digit|$survey_camp_record_dir/$VDADcampaign/$VDADphone$filedate|";
|
|
&agi_output;
|
|
}
|
|
|
|
$now_date_epoch = time();
|
|
$drop_seconds = $now_date_epoch - $start_time_epoch;
|
|
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='$survey_status', end_epoch='$now_date_epoch', length_in_sec='$drop_seconds', term_reason='CALLER' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01029'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_log update: $survey_status|$affected_rows|$uniqueid|$drop_seconds|";
|
|
&agi_output;
|
|
}
|
|
|
|
$stmtA = "DELETE FROM vicidial_auto_calls where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01030'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vac record deleted: |$affected_rows|$VDADcampaign|";
|
|
&agi_output;
|
|
}
|
|
|
|
$AGI->hangup();
|
|
|
|
exit;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$Euniqueid=$uniqueid;
|
|
$Euniqueid =~ s/\.\d+//gi;
|
|
$now_date_epoch = time();
|
|
$drop_seconds = $now_date_epoch - $start_time_epoch;
|
|
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='PM', end_epoch='$now_date_epoch', length_in_sec='$drop_seconds', term_reason='CALLER' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
|
|
if ($AGILOG) { $agi_string = "|$stmtA|"; &agi_output; }
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01031'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vicidial_log update: PM|$affected_rows|$uniqueid|$drop_seconds|";
|
|
&agi_output;
|
|
}
|
|
|
|
$stmtA = "DELETE FROM vicidial_auto_calls where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01032'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG)
|
|
{
|
|
$agi_string = "-- VDAD vac record deleted: |$affected_rows|$VDADcampaign|";
|
|
&agi_output;
|
|
}
|
|
|
|
$AGI->hangup();
|
|
|
|
exit;
|
|
}
|
|
}
|
|
################################################################################
|
|
##### END DO THE SURVEY #####
|
|
|
|
|
|
|
|
|
|
|
|
$drop_timer=0;
|
|
$drop_seconds=0;
|
|
$hold_message_counter=25;
|
|
$hold_tone_counter=0;
|
|
|
|
while ($drop_timer <= $DROP_TIME)
|
|
{
|
|
$channel_status = $AGI->channel_status("$channel");
|
|
if ($channel_status < 1)
|
|
{
|
|
if ($AGILOG) {$agi_string = "CHANNEL $channel DOWN $channel_status $DROP_TIME|$drop_timer CHECKING AGAIN"; &agi_output;}
|
|
### sleep for 99 hundredths of a second
|
|
usleep(1*990*1000);
|
|
|
|
$channel_status_DC = $AGI->channel_status("$channel");
|
|
|
|
if ($channel_status_DC < 1)
|
|
{
|
|
if ($AGILOG) {$agi_string = "CHANNEL $channel DOWN $channel_status $DROP_TIME|$drop_timer"; &agi_output;}
|
|
if ($drop_timer < $DROP_TIME) {$drop_seconds = $drop_timer;}
|
|
$drop_timer = ($drop_timer + $DROP_TIME);
|
|
}
|
|
}
|
|
|
|
############# BEGIN CPD AMD SECTION ############################
|
|
if ($cpd_amd_action =~ /DISPO|MESSAGE/)
|
|
{
|
|
$stmtA = "SELECT count(*) FROM vicidial_cpd_log where callerid='$callerid' and result NOT IN('Voice','Unknown','???','') and status='NEW';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01054'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$cpd_amd = "$aryA[0]";
|
|
}
|
|
$sthA->finish();
|
|
|
|
if ($cpd_amd > 0)
|
|
{
|
|
&cpd_end_call;
|
|
}
|
|
}
|
|
############# END CPD AMD SECTION ############################
|
|
|
|
|
|
$rec_countCUSTDATA=0;
|
|
$rec_countWAIT=0;
|
|
$cbc=0;
|
|
$aco_sub=0;
|
|
$agent_call_order='order by last_call_finish';
|
|
if ($CAMP_callorder =~ /longest_wait_time/i) {$agent_call_order = 'order by last_state_change';}
|
|
if ($CAMP_callorder =~ /overall_user_level/i) {$agent_call_order = 'order by user_level desc,last_call_finish';}
|
|
if ($CAMP_callorder =~ /oldest_call_start/i) {$agent_call_order = 'order by last_call_time';}
|
|
if ($CAMP_callorder =~ /oldest_call_finish/i) {$agent_call_order = 'order by last_call_finish';}
|
|
if ($CAMP_callorder =~ /random/i) {$agent_call_order = 'order by random_id';}
|
|
if ($CAMP_callorder =~ /campaign_rank/i) {$agent_call_order = 'order by campaign_weight desc,last_call_finish';}
|
|
if ($CAMP_callorder =~ /fewest_calls/i) {$aco_sub=1; $agent_call_order = 'order by calls_today';}
|
|
|
|
|
|
##### Attempt to send call to an agent on this server only #####
|
|
if ($agent_search_method =~ /^SO|^LO/)
|
|
{
|
|
if ($agent_search_method =~ /^SO/)
|
|
{$agent_search_method = 'LO';}
|
|
$rec_countWAIT=0;
|
|
$stmtA = "SELECT count(*) FROM vicidial_auto_calls where status = 'LIVE' and server_ip='$VARserver_ip' and campaign_id = '$VDADcampaign' and call_time < \"$VDADcall_time\" and lead_id != '$CIDlead_id';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01033'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$rec_countWAIT = "$aryA[0]";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
if ($DBconcurrent_transfers =~ /AUTO/)
|
|
{
|
|
$active_agents=1;
|
|
$stmtA = "SELECT count(*) FROM vicidial_live_agents where server_ip='$VARserver_ip' and campaign_id = '$VDADcampaign' and last_update_time > '$BDtsSQLdate';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01034'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$active_agents = "$aryA[0]";
|
|
$rec_count++;
|
|
}
|
|
|
|
$concurrent_transfers = ($active_agents / 10);
|
|
$concurrent_transfers = sprintf("%.0f", $concurrent_transfers);
|
|
$concurrent_transfers++;
|
|
if ($AGILOG) {$agi_string = "|CONCURRENT TRANSFERS AUTO SETTING: $concurrent_transfers ($active_agents)|"; &agi_output;}
|
|
}
|
|
else {$concurrent_transfers = $DBconcurrent_transfers;}
|
|
$sthA->finish();
|
|
if ($rec_countWAIT < $concurrent_transfers)
|
|
{
|
|
$stmtA = "UPDATE vicidial_live_agents set status='QUEUE',lead_id='$CIDlead_id',uniqueid='$unique_id', channel='$channel', call_server_ip='$VARserver_ip', callerid='$callerid',comments='AUTO' where status = 'READY' and lead_id<1 and server_ip='$VARserver_ip' and campaign_id='$VDADcampaign' and last_update_time > '$BDtsSQLdate' $agent_call_order limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01035'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
|
|
if ($AGILOG) {$agi_string = "-- VDAD get agent: |$affected_rows|update of vla table: $VDADcampaign|$VARserver_ip\n|$stmtA|"; &agi_output;}
|
|
if ($affected_rows > 0)
|
|
{
|
|
$r=0;
|
|
$VDADuser='';
|
|
while ( (length($VDADuser)<1) && ($r<3) )
|
|
{
|
|
$stmtA = "SELECT conf_exten,user,extension FROM vicidial_live_agents where status IN('QUEUE','INCALL') and server_ip='$VARserver_ip' and campaign_id='$VDADcampaign' and callerid='$callerid' and channel='$channel' order by last_call_time limit 1;";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01036'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$VDADconf_exten = "$aryA[0]";
|
|
$VDADuser = "$aryA[1]";
|
|
$VDADextension = "$aryA[2]";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
$r++;
|
|
if ($r > 1)
|
|
{
|
|
if ($AGILOG) {$agi_string = "EEEEEEEEEE vla UPDATE DELAY!!! |$callerid|$r|"; &agi_output;}
|
|
|
|
### sleep for 23 hundredths of a second
|
|
usleep(1*230*1000);
|
|
$drop_timer = ($drop_timer + 0.25);
|
|
}
|
|
if ($r > 2)
|
|
{
|
|
$stmtA = "SELECT conf_exten,user,extension FROM vicidial_live_agents where callerid='$callerid' order by last_call_time limit 1;";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01037'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$VDADconf_exten = "$aryA[0]";
|
|
$VDADuser = "$aryA[1]";
|
|
$VDADextension = "$aryA[2]";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
|
|
if ($AGILOG) {$agi_string = "FFFFFFFFFF vla OR SELECT |$callerid|$VDADuser|"; &agi_output;}
|
|
}
|
|
}
|
|
|
|
if ($VDADextension =~ /^R\//)
|
|
{
|
|
### set the callerid to the ACQS value(calleridname)
|
|
## use these two lines for Asterisk 1.2 tree
|
|
$newcallerid = "\"$calleridname <$VDADphone>\"";
|
|
$AGI->set_callerid($newcallerid);
|
|
## use these two lines for Asterisk 1.0 tree
|
|
# print "SET CALLERID \"$calleridname\" <0000000000>\n";
|
|
# print "SET CALLERIDNAME \"$calleridname\"\n";
|
|
### custom change to allow exten to be sent as phone*vendor_id
|
|
if ($VDADconf_exten =~ /888888888888/)
|
|
{
|
|
$stmtA = "SELECT vendor_lead_code FROM vicidial_list where lead_id='$CIDlead_id';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01057'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$vendor_id = $aryA[0];
|
|
}
|
|
$sthA->finish();
|
|
$VDADconf_exten = "$VDADphone$S$vendor_id";
|
|
}
|
|
|
|
print STDERR "Setting CID \"$newcallerid\"\n";
|
|
checkresult($result);
|
|
if ($AGILOG) {$agi_string = "callerID changed: \"$calleridname\" \<$VDADphone\>"; &agi_output;}
|
|
}
|
|
|
|
$stmtA = "UPDATE vicidial_auto_calls set status='XFER', stage='XFER-$drop_timer' where callerid='$callerid';";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01038'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD XFER : |$affected_rows|update of vac table: $callerid\n|$stmtA|"; &agi_output;}
|
|
|
|
$dbhA->disconnect();
|
|
|
|
if ($enable_queuemetrics_logging > 0)
|
|
{
|
|
$dbhB = DBI->connect("DBI:mysql:$queuemetrics_dbname:$queuemetrics_server_ip:3306", "$queuemetrics_login", "$queuemetrics_pass")
|
|
or die "Couldn't connect to database: " . DBI->errstr;
|
|
|
|
if ($DBX) {print "CONNECTED TO DATABASE: $queuemetrics_server_ip|$queuemetrics_dbname\n";}
|
|
|
|
$stmtB = "INSERT INTO queue_log SET partition='P01',time_id='$now_date_epoch',call_id='$callerid',queue='$VDADcampaign',agent='Agent/$VDADuser',verb='CONNECT',data1='$drop_timer',serverid='$queuemetrics_log_id';";
|
|
$Baffected_rows = $dbhB->do($stmtB);
|
|
$dbhP=$dbhB; $stmtA=$stmtB; $mysql_count='01039'; $MEL_aff_rows=$Baffected_rows; &mysql_error_logging;
|
|
|
|
$dbhB->disconnect();
|
|
}
|
|
|
|
if ($AGILOG) {$agi_string = "exiting the VDAD app, transferring call to $VDADconf_exten"; &agi_output;}
|
|
print "SET CONTEXT $ext_context\n";
|
|
checkresult($result);
|
|
print "SET EXTENSION $VDADconf_exten\n";
|
|
checkresult($result);
|
|
print "SET PRIORITY 1\n";
|
|
checkresult($result);
|
|
|
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
|
$year = ($year + 1900);
|
|
$mon++;
|
|
if ($mon < 10) {$mon = "0$mon";}
|
|
if ($mday < 10) {$mday = "0$mday";}
|
|
if ($hour < 10) {$hour = "0$hour";}
|
|
if ($min < 10) {$min = "0$min";}
|
|
if ($sec < 10) {$sec = "0$sec";}
|
|
|
|
$now_date_epoch = time();
|
|
$now_date = "$year-$mon-$mday $hour:$min:$sec";
|
|
if ($AGILOG) {$agi_string = "XXXXXXXXXX VDAD transferred: start|stop $start_time|$now_date"; &agi_output;}
|
|
|
|
exit;
|
|
}
|
|
else
|
|
{
|
|
if ($AGILOG) {$agi_string = "NNNNNNNNNN No agent record found!!!"; &agi_output;}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if ($AGILOG) {$agi_string = "WWWWWWWW VDAD XFER WAIT: |$rec_countWAIT|$VDADcampaign|$channel|$callerid|$uniqueid|"; &agi_output;}
|
|
}
|
|
}
|
|
|
|
if ($agent_search_method =~ /^LO|^LB/)
|
|
{
|
|
###################################################################################################
|
|
##### Attempt to send call to an agent on any server #####
|
|
$cbc=0;
|
|
$rec_countWAITrem=0;
|
|
$stmtA = "SELECT count(*) FROM vicidial_auto_calls where status = 'LIVE' and campaign_id = '$VDADcampaign' and call_time < \"$VDADcall_time\" and lead_id != '$CIDlead_id';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01040'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$rec_countWAITrem = "$aryA[0]";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
if ($DBconcurrent_transfers =~ /AUTO/)
|
|
{
|
|
$active_agents=1;
|
|
$stmtA = "SELECT count(*) FROM vicidial_live_agents where campaign_id = '$VDADcampaign' and last_update_time > '$BDtsSQLdate';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01041'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$active_agents = "$aryA[0]";
|
|
$rec_count++;
|
|
}
|
|
|
|
$concurrent_transfers = ($active_agents / 10);
|
|
$concurrent_transfers = sprintf("%.0f", $concurrent_transfers);
|
|
$concurrent_transfers++;
|
|
if ($AGILOG) {$agi_string = "|CONCURRENT TRANSFERS AUTO SETTING: $concurrent_transfers ($active_agents)|"; &agi_output;}
|
|
}
|
|
else {$concurrent_transfers = $DBconcurrent_transfers;}
|
|
$sthA->finish();
|
|
if ($rec_countWAITrem < $concurrent_transfers)
|
|
{
|
|
$stmtA = "UPDATE vicidial_live_agents set status='QUEUE',lead_id='$CIDlead_id',uniqueid='$unique_id', channel='$channel', call_server_ip='$VARserver_ip', callerid='$callerid',comments='AUTO' where status = 'READY' and lead_id<1 and campaign_id='$VDADcampaign' and last_update_time > '$BDtsSQLdate' $agent_call_order limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01042'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
|
|
if ($AGILOG) {$agi_string = "-- VDAD get agent: |$affected_rows|update of vla table: $VDADcampaign|$VARserver_ip\n|$stmtA|"; &agi_output;}
|
|
if ($affected_rows > 0)
|
|
{
|
|
$r=0;
|
|
$VDADuser='';
|
|
while ( (length($VDADuser)<1) && ($r<3) )
|
|
{
|
|
$stmtA = "SELECT conf_exten,user,extension,server_ip FROM vicidial_live_agents where status IN('QUEUE','INCALL') and campaign_id='$VDADcampaign' and callerid='$callerid' and channel='$channel' order by last_call_time limit 1;";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01043'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$VDADconf_exten = "$aryA[0]";
|
|
$VDADuser = "$aryA[1]";
|
|
$VDADextension = "$aryA[2]";
|
|
$VDADserver_ip = "$aryA[3]";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
$r++;
|
|
if ($r > 1)
|
|
{
|
|
if ($AGILOG) {$agi_string = "EEEEEEEEEE vla UPDATE DELAY!!! |$callerid|$r|"; &agi_output;}
|
|
|
|
### sleep for 23 hundredths of a second
|
|
usleep(1*230*1000);
|
|
$drop_timer = ($drop_timer + 0.25);
|
|
}
|
|
if ($r > 2)
|
|
{
|
|
$stmtA = "SELECT conf_exten,user,extension,server_ip FROM vicidial_live_agents where callerid='$callerid' order by last_call_time limit 1;";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01044'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
$rec_count=0;
|
|
while ($sthArows > $rec_count)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$VDADconf_exten = "$aryA[0]";
|
|
$VDADuser = "$aryA[1]";
|
|
$VDADextension = "$aryA[2]";
|
|
$VDADserver_ip = "$aryA[3]";
|
|
$rec_count++;
|
|
}
|
|
$sthA->finish();
|
|
|
|
if ($AGILOG) {$agi_string = "FFFFFFFFFF vla OR SELECT |$callerid|$VDADuser|"; &agi_output;}
|
|
}
|
|
}
|
|
|
|
$stmtA = "UPDATE vicidial_auto_calls set status='XFER', stage='XFER-$drop_timer' where callerid='$callerid';";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01045'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD XFER REMOTE: |$affected_rows|update of vac table: $callerid\n|$stmtA|"; &agi_output;}
|
|
|
|
### format the remote server dialstring to get the call to the overflow agent meetme room
|
|
$S='*';
|
|
if( $VDADserver_ip =~ m/(\S+)\.(\S+)\.(\S+)\.(\S+)/ )
|
|
{
|
|
$a = leading_zero($1);
|
|
$b = leading_zero($2);
|
|
$c = leading_zero($3);
|
|
$d = leading_zero($4);
|
|
$VDADremDIALstr = "$a$S$b$S$c$S$d$S";
|
|
}
|
|
$VDADremDIALstr .= "$VDADconf_exten";
|
|
|
|
if ($VDADextension =~ /^R\//)
|
|
{
|
|
### set the callerid to the ACQS value(calleridname)
|
|
## use these two lines for Asterisk 1.2 tree
|
|
$newcallerid = "\"$calleridname <$VDADphone>\"";
|
|
$AGI->set_callerid($newcallerid);
|
|
## use these two lines for Asterisk 1.0 tree
|
|
# print "SET CALLERID \"$calleridname\" <0000000000>\n";
|
|
# print "SET CALLERIDNAME \"$calleridname\"\n";
|
|
if ($VDADremDIALstr =~ /888888888888/)
|
|
{
|
|
$stmtA = "SELECT vendor_lead_code FROM vicidial_list where lead_id='$CIDlead_id';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01057'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$vendor_id = $aryA[0];
|
|
}
|
|
$sthA->finish();
|
|
$VDADremDIALstr = "$a$S$b$S$c$S$d$S$VDADphone$S$vendor_id";
|
|
}
|
|
|
|
print STDERR "Setting CID \"$newcallerid\"\n";
|
|
checkresult($result);
|
|
if ($AGILOG) {$agi_string = "callerID changed: \"$calleridname\" \<$VDADphone\>"; &agi_output;}
|
|
}
|
|
|
|
$dbhA->disconnect();
|
|
|
|
if ($enable_queuemetrics_logging > 0)
|
|
{
|
|
$dbhB = DBI->connect("DBI:mysql:$queuemetrics_dbname:$queuemetrics_server_ip:3306", "$queuemetrics_login", "$queuemetrics_pass")
|
|
or die "Couldn't connect to database: " . DBI->errstr;
|
|
|
|
if ($DBX) {print "CONNECTED TO DATABASE: $queuemetrics_server_ip|$queuemetrics_dbname\n";}
|
|
|
|
$stmtB = "INSERT INTO queue_log SET partition='P01',time_id='$now_date_epoch',call_id='$callerid',queue='$VDADcampaign',agent='Agent/$VDADuser',verb='CONNECT',data1='$drop_timer',serverid='$queuemetrics_log_id';";
|
|
$Baffected_rows = $dbhB->do($stmtB);
|
|
$dbhP=$dbhB; $stmtA=$stmtB; $mysql_count='01046'; $MEL_aff_rows=$Baffected_rows; &mysql_error_logging;
|
|
|
|
$dbhB->disconnect();
|
|
}
|
|
|
|
if ($AGILOG) {$agi_string = "exiting the VDAD app, transferring call to $VDADremDIALstr"; &agi_output;}
|
|
print "SET CONTEXT $ext_context\n";
|
|
checkresult($result);
|
|
print "SET EXTENSION $VDADremDIALstr\n";
|
|
checkresult($result);
|
|
print "SET PRIORITY 1\n";
|
|
checkresult($result);
|
|
|
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
|
$year = ($year + 1900);
|
|
$mon++;
|
|
if ($mon < 10) {$mon = "0$mon";}
|
|
if ($mday < 10) {$mday = "0$mday";}
|
|
if ($hour < 10) {$hour = "0$hour";}
|
|
if ($min < 10) {$min = "0$min";}
|
|
if ($sec < 10) {$sec = "0$sec";}
|
|
|
|
$now_date_epoch = time();
|
|
$now_date = "$year-$mon-$mday $hour:$min:$sec";
|
|
if ($AGILOG) {$agi_string = "XXXXXXXXXX VDAD transferred: start|stop $start_time|$now_date"; &agi_output;}
|
|
|
|
exit;
|
|
}
|
|
else
|
|
{
|
|
if ($AGILOG) {$agi_string = "NNNNNNNNNN No agent record found!!!"; &agi_output;}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if ($AGILOG) {$agi_string = "WWWWWWWW VDAD XFER BALANCE WAIT: |$rec_countWAIT|$VDADcampaign|$channel|$callerid|$uniqueid|"; &agi_output;}
|
|
}
|
|
}
|
|
|
|
if ($drop_timer < 3)
|
|
{
|
|
### sleep for 23 hundredths of a second
|
|
usleep(1*230*1000);
|
|
$drop_timer = ($drop_timer + 0.25);
|
|
}
|
|
else
|
|
{
|
|
### sleep for 99 hundredths of a second
|
|
usleep(1*990*1000);
|
|
|
|
$drop_timer++;
|
|
}
|
|
|
|
$stmtA = "UPDATE vicidial_auto_calls set stage='LIVE-$drop_timer' where callerid='$callerid';";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
if ($affected_rows < 1)
|
|
{
|
|
$stmtA = "INSERT INTO vicidial_auto_calls (server_ip,campaign_id,status,lead_id,uniqueid,callerid,channel,phone_code,phone_number,call_time,call_type,stage) values('$VARserver_ip','$channel_group','CLOSER','$CIDlead_id','$uniqueid','$callerid','$channel','$phone_code','$phone_number','$SQLdate','IN','CLOSER-$drop_timer')";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01047'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "$affected_rows|VDAC-reinsert|$stmtA|"; &agi_output;}
|
|
}
|
|
#if ($AGILOG) {$agi_string = "-- VDAD : |$affected_rows|update of vac table: $callerid\n|$stmtA|"; &agi_output;}
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($drop_timer > $DROP_TIME)
|
|
{
|
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
|
$year = ($year + 1900);
|
|
$mon++;
|
|
if ($mon < 10) {$mon = "0$mon";}
|
|
if ($mday < 10) {$mday = "0$mday";}
|
|
if ($hour < 10) {$hour = "0$hour";}
|
|
if ($min < 10) {$min = "0$min";}
|
|
if ($sec < 10) {$sec = "0$sec";}
|
|
|
|
$now_date_epoch = time();
|
|
$now_date = "$year-$mon-$mday $hour:$min:$sec";
|
|
$CIDdate = "$mon$mday$hour$min$sec";
|
|
$tsSQLdate = "$year$mon$mday$hour$min$sec";
|
|
$SQLdate = "$year-$mon-$mday $hour:$min:$sec";
|
|
|
|
if ($enable_queuemetrics_logging > 0)
|
|
{
|
|
$dbhB = DBI->connect("DBI:mysql:$queuemetrics_dbname:$queuemetrics_server_ip:3306", "$queuemetrics_login", "$queuemetrics_pass")
|
|
or die "Couldn't connect to database: " . DBI->errstr;
|
|
|
|
if ($DBX) {print "CONNECTED TO DATABASE: $queuemetrics_server_ip|$queuemetrics_dbname\n";}
|
|
|
|
$stmtB = "INSERT INTO queue_log SET partition='P01',time_id='$now_date_epoch',call_id='$callerid',queue='$VDADcampaign',agent='NONE',verb='EXITWITHTIMEOUT',data1='1',serverid='$queuemetrics_log_id';";
|
|
$Baffected_rows = $dbhB->do($stmtB);
|
|
$dbhP=$dbhB; $stmtA=$stmtB; $mysql_count='01048'; $MEL_aff_rows=$Baffected_rows; &mysql_error_logging;
|
|
|
|
$stmtB = "INSERT INTO queue_log SET partition='P01',time_id='$now_date_epoch',call_id='$callerid',queue='$VDADcampaign',agent='NONE',verb='CALLSTATUS',data1='DROP',serverid='$queuemetrics_log_id';";
|
|
$Baffected_rows = $dbhB->do($stmtB);
|
|
$dbhP=$dbhB; $stmtA=$stmtB; $mysql_count='01049'; $MEL_aff_rows=$Baffected_rows; &mysql_error_logging;
|
|
|
|
$dbhB->disconnect();
|
|
}
|
|
|
|
if ($drop_seconds < 1)
|
|
{
|
|
$drop_seconds = $DROP_TIME;
|
|
}
|
|
|
|
if ($drop_action =~ /MESSAGE/)
|
|
{
|
|
if (length($safe_harbor_exten)>0)
|
|
{$DROPexten = "$safe_harbor_exten";}
|
|
}
|
|
if ($drop_action =~ /VOICEMAIL/)
|
|
{
|
|
$newcallerid = "\"$callerid <$VDADphone>\"";
|
|
$AGI->set_callerid($newcallerid);
|
|
print STDERR "Setting CID \"$newcallerid\"\n";
|
|
checkresult($result);
|
|
if ($AGILOG) {$agi_string = "callerID changed: $newcallerid"; &agi_output;}
|
|
if (length($VDADvoicemail_ext)>0)
|
|
{$DROPexten = "$voicemail_dump_exten$VDADvoicemail_ext";}
|
|
}
|
|
if ($drop_action =~ /IN_GROUP/)
|
|
{
|
|
$drop_inbound_group_override='';
|
|
if (length($xCLlist_id) > 1)
|
|
{
|
|
### gather list_id overrides
|
|
$stmtA = "SELECT drop_inbound_group_override FROM vicidial_lists where list_id='$xCLlist_id';";
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArowsL=$sthA->rows;
|
|
if ($sthArowsL > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$drop_inbound_group_override = $aryA[0];
|
|
if (length($drop_inbound_group_override) > 0)
|
|
{$drop_inbound_group = $drop_inbound_group_override;}
|
|
}
|
|
$sthA->finish();
|
|
}
|
|
# Example: 90009*CL_uk3survy_*8301*10000123*universal*7275551212*1234*"
|
|
$S='*';
|
|
$DROPexten = "90009*$drop_inbound_group$S$S$CIDlead_id$S$S$VDADphone$S$fronter$S";
|
|
}
|
|
|
|
|
|
$Euniqueid=$uniqueid;
|
|
$Euniqueid =~ s/\.\d+//gi;
|
|
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='DROP',end_epoch='$now_date_epoch',length_in_sec='$drop_seconds',term_reason='QUEUETIMEOUT' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01050'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD vicidial_log update: |$affected_rows|$uniqueid"; &agi_output;}
|
|
|
|
$stmtA = "UPDATE vicidial_list set status='DROP' where lead_id = '$CIDlead_id';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01051'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD vicidial_list update: |$affected_rows|$CIDlead_id"; &agi_output;}
|
|
|
|
$stmtA = "DELETE FROM vicidial_auto_calls where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01052'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD vac record deleted: |$affected_rows|$VDADcampaign|"; &agi_output;}
|
|
|
|
|
|
### use STDOUT to send call to proper DROP location
|
|
$VHqueryCID = "VH$CIDdate$VDADconf_exten";
|
|
|
|
if (length($DROPexten)>0)
|
|
{ ### if DROP extension is defined then send the dropped call there instead of hangup
|
|
|
|
$AGI->stream_file('ding'); # stop music-on-hold process
|
|
|
|
sleep(1);
|
|
|
|
if ($AGILOG) {$agi_string = "exiting the VDAD app, transferring call to $DROPexten"; &agi_output;}
|
|
print "SET CONTEXT $ext_context\n";
|
|
checkresult($result);
|
|
print "SET EXTENSION $DROPexten\n";
|
|
checkresult($result);
|
|
print "SET PRIORITY 1\n";
|
|
checkresult($result);
|
|
}
|
|
else
|
|
{
|
|
### insert a NEW record to the vicidial_manager table to be processed
|
|
$stmtA = "INSERT INTO vicidial_manager values('','','$SQLdate','NEW','N','$VARserver_ip','','Hangup','$VHqueryCID','Channel: $channel','','','','','','','','','')";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01053'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDCL call_hungup timout: |$CIDlead_id|$VHqueryCID|$VDADconf_exten|$channel|insert to vicidial_manager"; &agi_output;}
|
|
|
|
$AGI->hangup();
|
|
}
|
|
}
|
|
|
|
|
|
|
|
$dbhA->disconnect();
|
|
|
|
exit;
|
|
|
|
sub enter_pin_number
|
|
{
|
|
$sound = $_[0];
|
|
$survey_dtmf_digits = $_[1];
|
|
|
|
$digits_to_collect =~ s/DIGITID//gi;
|
|
|
|
# please enter the pin number followed by the pound key
|
|
# please enter your X digit pin number
|
|
|
|
$digit='';
|
|
undef $digit;
|
|
$interrupt_digit='';
|
|
undef $interrupt_digit;
|
|
|
|
$interrupt_digit = $AGI->stream_file("$sound","$survey_dtmf_digits");
|
|
|
|
if ($AGILOG) {$agi_string = "interrupt_digit |$interrupt_digit|"; &agi_output;}
|
|
|
|
$digits_being_entered=1;
|
|
$totalDTMF='';
|
|
if ($interrupt_digit > 1)
|
|
{
|
|
$interrupt_digit = $interrupt_digit - 48;
|
|
|
|
$totalDTMF=$interrupt_digit;
|
|
}
|
|
|
|
$digit_loop_counter = length($totalDTMF);
|
|
|
|
while ( ($digit_loop_counter < $digits_to_collect) )
|
|
{
|
|
$digit = chr($AGI->wait_for_digit('10000')); # wait 10 seconds for input or until the pound key is pressed
|
|
if ($digit =~ /\d/)
|
|
{
|
|
$totalDTMF = "$totalDTMF$digit";
|
|
if ($AGILOG) {$agi_string = "digit |$digit| TotalDTMF |$totalDTMF|"; &agi_output;}
|
|
# $AGI->say_digits("$digit");
|
|
undef $digit;
|
|
}
|
|
else
|
|
{
|
|
$digit_loop_counter=$digits_to_collect;
|
|
}
|
|
|
|
$digit_loop_counter++;
|
|
}
|
|
|
|
$totalDTMF =~ s/\D//gi;
|
|
$pin = $totalDTMF;
|
|
if ($totalDTMF) {if ($AGILOG) {$agi_string = "digit |$digit| TotalDTMF |$totalDTMF|"; &agi_output;}}
|
|
|
|
return $pin;
|
|
}
|
|
|
|
|
|
|
|
|
|
sub checkresult
|
|
{
|
|
my ($res) = @_;
|
|
my $retval;
|
|
$tests++;
|
|
chomp $res;
|
|
if ($res =~ /^200/)
|
|
{
|
|
$res =~ /result=(-?\d+)/;
|
|
if (!length($1))
|
|
{
|
|
# print STDERR "FAIL ($res)\n";
|
|
$fail++;
|
|
}
|
|
else
|
|
{
|
|
# print STDERR "PASS ($1)\n";
|
|
$pass++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
# print STDERR "FAIL (unexpected result '$res')\n";
|
|
$fail++;
|
|
}
|
|
}
|
|
|
|
|
|
sub leading_zero($)
|
|
{
|
|
$_ = $_[0];
|
|
s/^(\d)$/0$1/;
|
|
s/^(\d\d)$/0$1/;
|
|
return $_;
|
|
} # End of the leading_zero() routine.
|
|
|
|
|
|
|
|
### you're call is very important to us, please stay on the line and you will be transferred to the next available agent
|
|
|
|
|
|
sub agi_output
|
|
{
|
|
if ($AGILOG >=2)
|
|
{
|
|
### open the log file for writing ###
|
|
open(Lout, ">>$AGILOGfile")
|
|
|| die "Can't open $AGILOGfile: $!\n";
|
|
print Lout "$now_date|$script|$agi_string\n";
|
|
close(Lout);
|
|
}
|
|
### send to STDERR writing ###
|
|
if ( ($AGILOG == '1') || ($AGILOG == '3') )
|
|
{print STDERR "$now_date|$script|$agi_string\n";}
|
|
$agi_string='';
|
|
}
|
|
|
|
|
|
sub mysql_error_logging
|
|
{
|
|
$errno='';
|
|
$error='';
|
|
if ( ($mel > 0) || ($one_mysql_log > 0) )
|
|
{
|
|
$errno = $dbhP->err();
|
|
if ( ($errno > 0) || ($mel > 1) || ($one_mysql_log > 0) )
|
|
{
|
|
$error = $dbhP->errstr();
|
|
### open the log file for writing ###
|
|
open(Eout, ">>$ERRLOGfile")
|
|
|| die "Can't open $ERRLOGfile: $!\n";
|
|
print Eout "$now_date|$script|$mysql_count|$MEL_aff_rows|$errno|$error|$stmtA|$callerid|$CIDlead_id|\n";
|
|
close(Eout);
|
|
}
|
|
}
|
|
$one_mysql_log=0;
|
|
}
|
|
|
|
|
|
|
|
##### CPD call progress AMD end call process #####
|
|
sub cpd_end_call
|
|
{
|
|
$stmtA = "SELECT result FROM vicidial_cpd_log where callerid='$callerid';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
|
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
|
$sthArows=$sthA->rows;
|
|
$dbhP=$dbhA; $mysql_count='01056'; $MEL_aff_rows=$sthArows; &mysql_error_logging;
|
|
if ($sthArows > 0)
|
|
{
|
|
@aryA = $sthA->fetchrow_array;
|
|
$cpd_result = "$aryA[0]";
|
|
}
|
|
$sthA->finish();
|
|
$CPDfound=0;
|
|
if ($cpd_result =~ /Busy/i) {$vdad_result='CPDB'; $CPDfound++;}
|
|
if ($cpd_result =~ /All-Trunks-Busy/i) {$vdad_result='CPDATB'; $CPDfound++;}
|
|
if ($cpd_result =~ /No-Answer/i) {$vdad_result='CPDNA'; $CPDfound++;}
|
|
if ($cpd_result =~ /Reject/i) {$vdad_result='CPDREJ'; $CPDfound++;}
|
|
if ($cpd_result =~ /Invalid-Number/i) {$vdad_result='CPDINV'; $CPDfound++;}
|
|
if ($cpd_result =~ /Service-Unavailable/i) {$vdad_result='CPDSUA'; $CPDfound++;}
|
|
if ($cpd_result =~ /Sit-Intercept/i) {$vdad_result='CPDSI'; $CPDfound++;}
|
|
if ($cpd_result =~ /Sit-No-Circuit/i) {$vdad_result='CPDSNC'; $CPDfound++;}
|
|
if ($cpd_result =~ /Sit-Reorder/i) {$vdad_result='CPDSR'; $CPDfound++;}
|
|
if ($cpd_result =~ /Sit-Unknown/i) {$vdad_result='CPDSUK'; $CPDfound++;}
|
|
if ($cpd_result =~ /Sit-Vacant/i) {$vdad_result='CPDSV'; $CPDfound++;}
|
|
if ($cpd_result =~ /Fax|Modem/i) {$vdad_result='AFAX'; $CPDfound++;}
|
|
if ($CPDfound < 1) {$vdad_result='AA';}
|
|
|
|
if ($AGILOG) {$agi_string = "CALL CPD AMD Detected $channel $callerid|$drop_timer|$cpd_result"; &agi_output;}
|
|
|
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
|
$year = ($year + 1900);
|
|
$mon++;
|
|
if ($mon < 10) {$mon = "0$mon";}
|
|
if ($mday < 10) {$mday = "0$mday";}
|
|
if ($hour < 10) {$hour = "0$hour";}
|
|
if ($min < 10) {$min = "0$min";}
|
|
if ($sec < 10) {$sec = "0$sec";}
|
|
|
|
$now_date_epoch = time();
|
|
$now_date = "$year-$mon-$mday $hour:$min:$sec";
|
|
$CIDdate = "$mon$mday$hour$min$sec";
|
|
$tsSQLdate = "$year$mon$mday$hour$min$sec";
|
|
$SQLdate = "$year-$mon-$mday $hour:$min:$sec";
|
|
|
|
if ($enable_queuemetrics_logging > 0)
|
|
{
|
|
$dbhB = DBI->connect("DBI:mysql:$queuemetrics_dbname:$queuemetrics_server_ip:3306", "$queuemetrics_login", "$queuemetrics_pass")
|
|
or die "Couldn't connect to database: " . DBI->errstr;
|
|
|
|
if ($DBX) {print "CONNECTED TO DATABASE: $queuemetrics_server_ip|$queuemetrics_dbname\n";}
|
|
|
|
$stmtB = "INSERT INTO queue_log SET partition='P01',time_id='$now_date_epoch',call_id='$callerid',queue='$VDADcampaign',agent='NONE',verb='EXITWITHTIMEOUT',data1='1',serverid='$queuemetrics_log_id';";
|
|
$Baffected_rows = $dbhB->do($stmtB);
|
|
$dbhP=$dbhB; $stmtA=$stmtB; $mysql_count='01048'; $MEL_aff_rows=$Baffected_rows; &mysql_error_logging;
|
|
|
|
$stmtB = "INSERT INTO queue_log SET partition='P01',time_id='$now_date_epoch',call_id='$callerid',queue='$VDADcampaign',agent='NONE',verb='CALLSTATUS',data1='$vdad_result',serverid='$queuemetrics_log_id';";
|
|
$Baffected_rows = $dbhB->do($stmtB);
|
|
$dbhP=$dbhB; $stmtA=$stmtB; $mysql_count='01049'; $MEL_aff_rows=$Baffected_rows; &mysql_error_logging;
|
|
|
|
$dbhB->disconnect();
|
|
}
|
|
|
|
if ($drop_seconds < 1)
|
|
{
|
|
$drop_seconds = $DROP_TIME;
|
|
}
|
|
|
|
if ( ($cpd_amd_action =~ /MESSAGE/) && ($cpd_result !~ /Fax/i) )
|
|
{
|
|
$DROPexten = "8320";
|
|
$AMDSTATUS_set = $AGI->set_variable('AMDSTATUS', "CPDMACHINE");
|
|
$AMDCAUSE_set = $AGI->set_variable('AMDCAUSE', $cpd_result);
|
|
|
|
}
|
|
else
|
|
{
|
|
$stmtA = "DELETE FROM vicidial_auto_calls where callerid='$callerid' order by call_time desc limit 1;";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01052'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD CPD vac record deleted: |$affected_rows|$VDADcampaign|"; &agi_output;}
|
|
}
|
|
|
|
$Euniqueid=$uniqueid;
|
|
$Euniqueid =~ s/\.\d+//gi;
|
|
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='$vdad_result',end_epoch='$now_date_epoch',length_in_sec='$drop_seconds',term_reason='AGENT' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01050'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD CPD vicidial_log update: |$affected_rows|$uniqueid"; &agi_output;}
|
|
|
|
$stmtA = "UPDATE vicidial_list set status='$vdad_result' where lead_id = '$CIDlead_id';";
|
|
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01051'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDAD CPD vicidial_list update: |$affected_rows|$CIDlead_id"; &agi_output;}
|
|
|
|
$stmtA = "UPDATE vicidial_cpd_log SET status='PROCESSED',cpd_seconds='$drop_timer' where callerid='$callerid' and result IN('Answering-Machine','Fax') and status='NEW';";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01055'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
|
|
|
|
### use STDOUT to send call to proper DROP location
|
|
$VHqueryCID = "VH$CIDdate$VDADconf_exten";
|
|
|
|
if (length($DROPexten)>0)
|
|
{ ### if DROP extension is defined then send the dropped call there instead of hangup
|
|
$AGI->stream_file('ding'); # stop music-on-hold process
|
|
|
|
sleep(1);
|
|
|
|
if ($AGILOG) {$agi_string = "exiting the VDAD app, CPD transferring call to $DROPexten"; &agi_output;}
|
|
print "SET CONTEXT $ext_context\n";
|
|
checkresult($result);
|
|
print "SET EXTENSION $DROPexten\n";
|
|
checkresult($result);
|
|
print "SET PRIORITY 1\n";
|
|
checkresult($result);
|
|
|
|
exit;
|
|
}
|
|
else
|
|
{
|
|
### insert a NEW record to the vicidial_manager table to be processed
|
|
$stmtA = "INSERT INTO vicidial_manager values('','','$SQLdate','NEW','N','$VARserver_ip','','Hangup','$VHqueryCID','Channel: $channel','','','','','','','','','')";
|
|
$affected_rows = $dbhA->do($stmtA);
|
|
$dbhP=$dbhA; $mysql_count='01053'; $MEL_aff_rows=$affected_rows; &mysql_error_logging;
|
|
if ($AGILOG) {$agi_string = "-- VDCL call_hungup CPD timout: |$CIDlead_id|$VHqueryCID|$VDADconf_exten|$channel|insert to vicidial_manager"; &agi_output;}
|
|
|
|
$AGI->hangup();
|
|
|
|
exit;
|
|
}
|
|
}
|
|
|
|
|
|
sub trigger_transfer_process
|
|
{
|
|
# $DS='--';
|
|
# $BEGIN='BEGIN';
|
|
#
|
|
# $CLI = "/usr/bin/date >> $PRSTESTfile &";
|
|
# $CLI = "/root/phone.pl $insert_lead_id$DS$insert_close_id$DS$CLInow_date$DS$VDADuser$DS$phone_number$DS$DS$BEGIN$DS >> $PRSTESTfile &";
|
|
#
|
|
# `$CLI`;
|
|
#
|
|
# if ($AGILOG >=2)
|
|
# {
|
|
# ### open the log file for writing ###
|
|
# open(Pout, ">>$PRSLOGfile")
|
|
# || die "Can't open $AGILOGfile: $!\n";
|
|
# print Pout "$now_date|$VDADconf_exten|$VDADuser|$VDADextension|$insert_lead_id|$phone_number|$insert_close_id|$channel_group|$drop_timer|$CLI|\n";
|
|
# close(Pout);
|
|
# }
|
|
}
|