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

Added lists config option to settings container for AST_DNCcom_filter.pl script

Browse Source 
git-svn-id: svn://192.168.202.10@3937 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2025-08-17 17:34:20 +00:00
parent 7749da0222
commit 43d5fbbb63
1 changed files with 33 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agc_2-X/trunk/bin/AST_DNCcom_filter.pl
+33 -10
View File
@@ -6,7 +6,7 @@
# #
# !!! REQUIRES A SETTINGS CONTAINER CALLED "DNCDOTCOM" TO BE SET UP TO USE !!! # !!! REQUIRES A SETTINGS CONTAINER CALLED "DNCDOTCOM" TO BE SET UP TO USE !!!
# #
# Copyright (C) 2019 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2 # Copyright (C) 2025 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
# #
# 151004-1606 - Initial Build # 151004-1606 - Initial Build
# 151005-1256 - Added logging # 151005-1256 - Added logging
@@ -14,10 +14,12 @@
# 151022-1900 - Code clean up # 151022-1900 - Code clean up
# 151202-1435 - Added URL option for settings container # 151202-1435 - Added URL option for settings container
# 190405-0617 - Small fix based on DNC.com response values # 190405-0617 - Small fix based on DNC.com response values
# 250817-1329 - Added lists config option to settings container
# #
# constants # constants
$DB=0; # Debug flag, set to 0 for no debug messages per minute $DB=0; # Debug flag, set to 0 for no debug messages per minute
$CLIlists = '';
### begin parsing run-time options ### ### begin parsing run-time options ###
if (length($ARGV[0])>1) if (length($ARGV[0])>1)
@@ -54,11 +56,11 @@ if (length($ARGV[0])>1)
$CLIlists =~ s/-/,/gi; $CLIlists =~ s/-/,/gi;
} }
} }
if (length($CLIlists)<2) # if (length($CLIlists)<2)
{ # {
print "no lists defined, exiting.\n"; # print "no lists defined, exiting.\n";
exit; # exit;
} # }
if ($DB) {print "|$CLIlists|\n";} if ($DB) {print "|$CLIlists|\n";}
} }
} }
@@ -128,6 +130,31 @@ $sthArows=$sthA->rows;
$rec_count=0; $rec_count=0;
if ($sthArows > 0) if ($sthArows > 0)
{ {
@aryA = $sthA->fetchrow_array;
$container_entry = $aryA[0];
%dnccom_settings = get_container_settings($container_entry);
$CONlists = $dnccom_settings{'VICI_LISTS'};
$CONlists =~ s/ .*$//gi;
if ($CONlists =~ /-/)
{
$CONlists =~ s/-/,/gi;
}
if (( length($CONlists)>=2 ) && ( length($CLIlists)>=2 ))
{
$CLIlists = $CLIlists . "," . $CONlists;
}
elsif ((length($CONlists)>=2) && (length($CLIlists)<2))
{
$CLIlists = $CONlists;
}
if (length($CLIlists)<2)
{
print "no lists defined, exiting.\n";
exit;
}
# log to the vicidial_admin_log the scrub # log to the vicidial_admin_log the scrub
foreach $list_id (split /,/ ,$CLIlists) foreach $list_id (split /,/ ,$CLIlists)
@@ -139,10 +166,6 @@ if ($sthArows > 0)
} }
@aryA = $sthA->fetchrow_array;
$container_entry = $aryA[0];
%dnccom_settings = get_container_settings($container_entry);
if ( if (
exists($dnccom_settings{'LOGIN_ID'}) && exists($dnccom_settings{'LOGIN_ID'}) &&
exists($dnccom_settings{'CAMPAIGN_ID'}) && exists($dnccom_settings{'CAMPAIGN_ID'}) &&