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

Added vicidial_list record update with optional field variable update, if lead populated in the postal and areacode AGI scripts

Browse Source 
PHP8 fix

git-svn-id: svn://192.168.202.10@3962 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2026-01-08 06:19:46 +00:00
parent 948a86828d
commit d8169179c5
3 changed files with 83 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agc_2-X/trunk/agi/cm_areacode.agi
+39 -1
View File
@@ -15,16 +15,19 @@
# 1- Country code to search the areacode within, default 1
# 2- Length of areacode in digits, default 3
# 3- DID prefix to filter by in searching for DIDs, default 999
# 4- vicidial_list field to update(if call is tagged to a lead)
# 5- value of field to update(if 3 is set above)
#
# example of what to set in the Call Menu:
# Set the prompt to "sip-silence"
# Set the Timeout to 1 second
# Option: "Timeout" Route: "AGI" AGI: "cm_areacode.agi,1---3---999"
#
# Copyright (C) 2016 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
# Copyright (C) 2026 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
#
# changes:
# 160610-0713 - First build
# 260108-0052 - Added vicidial_list record update with optional field variable update, if lead populated
#
$script = 'cm_areacode.agi';
@@ -45,6 +48,10 @@ $CIDdate = "$mon$mday$hour$min$sec";
$tsSQLdate = "$year$mon$mday$hour$min$sec";
$SQLdate = "$year-$mon-$mday $hour:$min:$sec";
$SQLdateBEGIN = $SQLdate;
$lead_id=0;
$vl_field='';
$vl_value='';
$vicidial_list_fields = '|vendor_lead_code|source_id|phone_code|title|first_name|middle_initial|last_name|address1|address2|address3|city|state|province|postal_code|country_code|alt_phone|email|security_phrase|comments|rank|owner|status|user|q01|q02|q03|q04|q05|q06|q07|q08|q09|q10|q11|q12|q13|q14|q15|q16|q17|q18|q19|q20|q21|q22|q23|q24|q25|q26|q27|q28|q29|q30|q31|q32|q33|q34|q35|q36|q37|q38|q39|q40|q41|q42|q43|q44|q45|q46|q47|q48|q49|q50|q51|q52|q53|q54|q55|q56|q57|q58|q59|q60|q61|q62|q63|q64|q65|q66|q67|q68|q69|q70|q71|q72|q73|q74|q75|q76|q77|q78|q79|q80|q81|q82|q83|q84|q85|q86|q87|q88|q89|q90|q91|q92|q93|q94|q95|q96|q97|q98|q99|';
# default path to astguiclient configuration file:
$PATHconf = '/etc/astguiclient.conf';
@@ -131,6 +138,8 @@ if (length($ARGV[0])>1)
$country_code = $ARGV_vars[0];
$ac_length = $ARGV_vars[1];
$did_prefix = $ARGV_vars[2];
$vl_field = $ARGV_vars[3];
$vl_value = $ARGV_vars[4];
}
if (length($country_code) < 1)
@@ -164,6 +173,21 @@ while(<STDIN>)
$calleridname =~ s/\'|\\\\|\\\|\\|\\;|\\\;|\;|;//gi;
$extension =~ s/\'|\"|\\\\|\\\|\\|\\;|\\\;|\;|;//gi;
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|^M\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d|^DC\d\d\d\d\d\dW\d\d\d\d\d\d\d\d\d\dW/)
{
$dialer_id = $calleridname;
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|^M\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/)
{
$lead_id = substr($calleridname, 10, 10);
$lead_id = ($lead_id + 0);
}
if ($calleridname =~ /^DC\d\d\d\d\d\dW\d\d\d\d\d\d\d\d\d\dW/)
{
$lead_id = substr($calleridname, 9, 10);
$lead_id = ($lead_id + 0);
}
}
if ( ($callerid =~ /\".*\"/) && ( (!$calleridname) or ($calleridname =~ /unknown/) ) )
{
$calleridname = $callerid;
@@ -235,6 +259,18 @@ if ($g < 1)
}
### update vicidial_list record if lead is tagged for this call
$vl_field_updateSQL='';
if ($lead_id > 0)
{
if ( (length($vl_field)>2) && ($vicidial_list_fields =~ /\|$vl_field\|/) )
{$vl_field_updateSQL = ",$vl_field='$vl_value'";}
$stmtA = "UPDATE vicidial_list SET state='$state'$vl_field_updateSQL where lead_id='$lead_id';";
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
$affected_rowsG = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- vicidial_list UPDATE: |$affected_rowsG|$stmtA|"; &agi_output;}
}
### search for DID using found state and optional DID prefix ###
$DID_prefixSQL='';
$new_did='';
@@ -274,6 +310,8 @@ if ($g < 1)
else
{
$AGI->exec("EXEC Set(_state=$state)");
if ( (length($vl_field)>2) && ($vicidial_list_fields =~ /\|$vl_field\|/) )
{$AGI->exec("EXEC Set(_$vl_field=$vl_value)");}
if ($AGILOG) {$agi_string = "entry found($state|$phone_ac), exiting the cm_areacode.agi app, transferring call to $new_did @ trunkinbound"; &agi_output;}
print "SET CONTEXT trunkinbound\n";
agc_2-X/trunk/agi/cm_postal.agi
+38 -1
View File
@@ -13,14 +13,17 @@
# Flag Options:
# 1- minimum number of digits allowed in postal code, default 5
# 2- DID prefix to filter by in searching for DIDs, default 999
# 3- vicidial_list field to update(if call is tagged to a lead)
# 4- value of field to update(if 3 is set above)
#
# example of what to put in the Custom Dialplan entry for a Call Menu:
#exten => _XXXXX,1,AGI(cm_postal.agi,5---999)
#
# Copyright (C) 2016 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
# Copyright (C) 2026 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
#
# changes:
# 160517-0236 - First build
# 260107-2119 - Added vicidial_list record update with optional field variable update, if lead populated
#
$script = 'cm_postal.agi';
@@ -41,6 +44,10 @@ $CIDdate = "$mon$mday$hour$min$sec";
$tsSQLdate = "$year$mon$mday$hour$min$sec";
$SQLdate = "$year-$mon-$mday $hour:$min:$sec";
$SQLdateBEGIN = $SQLdate;
$lead_id=0;
$vl_field='';
$vl_value='';
$vicidial_list_fields = '|vendor_lead_code|source_id|phone_code|title|first_name|middle_initial|last_name|address1|address2|address3|city|state|province|postal_code|country_code|alt_phone|email|security_phrase|comments|rank|owner|status|user|q01|q02|q03|q04|q05|q06|q07|q08|q09|q10|q11|q12|q13|q14|q15|q16|q17|q18|q19|q20|q21|q22|q23|q24|q25|q26|q27|q28|q29|q30|q31|q32|q33|q34|q35|q36|q37|q38|q39|q40|q41|q42|q43|q44|q45|q46|q47|q48|q49|q50|q51|q52|q53|q54|q55|q56|q57|q58|q59|q60|q61|q62|q63|q64|q65|q66|q67|q68|q69|q70|q71|q72|q73|q74|q75|q76|q77|q78|q79|q80|q81|q82|q83|q84|q85|q86|q87|q88|q89|q90|q91|q92|q93|q94|q95|q96|q97|q98|q99|';
# default path to astguiclient configuration file:
$PATHconf = '/etc/astguiclient.conf';
@@ -126,6 +133,8 @@ if (length($ARGV[0])>1)
$postal_length = $ARGV_vars[0];
$did_prefix = $ARGV_vars[1];
$vl_field = $ARGV_vars[2];
$vl_value = $ARGV_vars[3];
}
if (length($postal_length) < 1)
@@ -157,6 +166,21 @@ while(<STDIN>)
$calleridname =~ s/\'|\\\\|\\\|\\|\\;|\\\;|\;|;//gi;
$extension =~ s/\'|\"|\\\\|\\\|\\|\\;|\\\;|\;|;//gi;
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|^M\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d|^DC\d\d\d\d\d\dW\d\d\d\d\d\d\d\d\d\dW/)
{
$dialer_id = $calleridname;
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|^M\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d/)
{
$lead_id = substr($calleridname, 10, 10);
$lead_id = ($lead_id + 0);
}
if ($calleridname =~ /^DC\d\d\d\d\d\dW\d\d\d\d\d\d\d\d\d\dW/)
{
$lead_id = substr($calleridname, 9, 10);
$lead_id = ($lead_id + 0);
}
}
if ( ($callerid =~ /\".*\"/) && ( (!$calleridname) or ($calleridname =~ /unknown/) ) )
{
$calleridname = $callerid;
@@ -226,6 +250,17 @@ if ($g < 1)
exit;
}
### update vicidial_list record if lead is tagged for this call
$vl_field_updateSQL='';
if ($lead_id > 0)
{
if ( (length($vl_field)>2) && ($vicidial_list_fields =~ /\|$vl_field\|/) )
{$vl_field_updateSQL = ",$vl_field='$vl_value'";}
$stmtA = "UPDATE vicidial_list SET postal_code='$extension',state='$state'$vl_field_updateSQL where lead_id='$lead_id';";
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
$affected_rowsG = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- vicidial_list UPDATE: |$affected_rowsG|$stmtA|"; &agi_output;}
}
### search for DID using found state and optional DID prefix ###
$DID_prefixSQL='';
@@ -267,6 +302,8 @@ else
{
$AGI->exec("EXEC Set(_state=$state)");
$AGI->exec("EXEC Set(_postal_code=$extension)");
if ( (length($vl_field)>2) && ($vicidial_list_fields =~ /\|$vl_field\|/) )
{$AGI->exec("EXEC Set(_$vl_field=$vl_value)");}
if ($AGILOG) {$agi_string = "entry found($state|$extension), exiting the cm_postal.agi app, transferring call to $new_did @ trunkinbound"; &agi_output;}
print "SET CONTEXT trunkinbound\n";