ViciDial/ViciDialSVN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added response logging for manual dial outbound calls in Call Menu IVRs

Browse Source 
git-svn-id: svn://192.168.202.10@3673 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2023-01-18 22:36:34 +00:00
parent f53bfb3887
commit 95f87d6782
2 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agc_2-X/trunk/agi/agi-VDAD_inbound_calltime_check.agi
+4 -3
View File
@@ -32,7 +32,7 @@
#exten => 1234,2,AGI(agi-VDAD_inbound_calltime_check.agi,INBOUND-----YES-----START-----24hours-----EXTENSION-----101-----default-----NO-----YES) #exten => 1234,2,AGI(agi-VDAD_inbound_calltime_check.agi,INBOUND-----YES-----START-----24hours-----EXTENSION-----101-----default-----NO-----YES)
#exten => 1234,3,Hangup #exten => 1234,3,Hangup
# #
# Copyright (C) 2020 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2 # Copyright (C) 2023 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
# #
# changes: # changes:
# 80525-0144 - First Build # 80525-0144 - First Build
@@ -57,6 +57,7 @@
# 180213-0935 - Fixed issues with VMAIL_NO_INST timecheck route # 180213-0935 - Fixed issues with VMAIL_NO_INST timecheck route
# 200624-2302 - Added play sip-silence audio option # 200624-2302 - Added play sip-silence audio option
# 201026-1501 - Fix for overwriting short CIDnum # 201026-1501 - Fix for overwriting short CIDnum
# 230118-1728 - Added response logging for manual dial outbound calls
# #
$script = 'agi-VDAD_inbound_calltime_check.agi'; $script = 'agi-VDAD_inbound_calltime_check.agi';
@@ -240,7 +241,7 @@ $extension =~ s/\'|\"|\\\\|\\\|\\|\\;|\\\;|\;|;//gi;
$outboundIVR=0; $outboundIVR=0;
$ingroupIVR=0; $ingroupIVR=0;
$lead_id=''; $lead_id='';
if ($calleridname =~ /^V\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d|^Y\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/) if ($calleridname =~ /^V\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d|^M\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d|^Y\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/)
{ {
$stmtA = "SELECT campaign_id,lead_id FROM vicidial_auto_calls where callerid='$calleridname';"; $stmtA = "SELECT campaign_id,lead_id FROM vicidial_auto_calls where callerid='$calleridname';";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr; $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
@@ -263,7 +264,7 @@ if ($calleridname =~ /^V\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d|^Y\d\d\d\d\d\d\d\
} }
$sthA->finish(); $sthA->finish();
if ($calleridname =~ /^V\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/) if ($calleridname =~ /^V\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d|^M\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/)
{$outboundIVR=1;} {$outboundIVR=1;}
if ($calleridname =~ /^Y\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/) if ($calleridname =~ /^Y\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/)
{$ingroupIVR=1;} {$ingroupIVR=1;}
agc_2-X/trunk/agi/cm.agi
+4 -4
View File
@@ -21,7 +21,7 @@
#exten => _XXXXX,1,AGI(cm.agi,INBOUND-----${EXTEN}-----postal_code) #exten => _XXXXX,1,AGI(cm.agi,INBOUND-----${EXTEN}-----postal_code)
#exten => _XXXXX,n,Goto(next_callmenu_here,s,1) #exten => _XXXXX,n,Goto(next_callmenu_here,s,1)
# #
# Copyright (C) 2019 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2 # Copyright (C) 2023 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
# #
# changes: # changes:
# 110525-2100 - First Build # 110525-2100 - First Build
@@ -32,6 +32,7 @@
# 160305-2244 - Added Alt IVR Logging options # 160305-2244 - Added Alt IVR Logging options
# 161102-1039 - Fixed QM partition problem # 161102-1039 - Fixed QM partition problem
# 191011-0921 - Fixed logging issue with missing active call record # 191011-0921 - Fixed logging issue with missing active call record
# 230118-1634 - Added response logging for manual dial outbound calls
# #
$script = 'cm.agi'; $script = 'cm.agi';
@@ -189,7 +190,7 @@ $extension =~ s/\'|\"|\\\\|\\\|\\|\\;|\\\;|\;|;//gi;
$outboundIVR=0; $outboundIVR=0;
$fieldUPDATE=0; $fieldUPDATE=0;
if ($calleridname =~ /^V\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/) if ($calleridname =~ /^V\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d|^M\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/)
{ {
$phone_number = $callerid; $phone_number = $callerid;
$callerid = $calleridname; $callerid = $calleridname;
@@ -362,8 +363,7 @@ exit;
##### SUBROUTINES #####
sub agi_output sub agi_output
{ {
if ($AGILOG >=2) if ($AGILOG >=2)