From 3682a5c36868b668d9c7d07ec02307d1a64f9486 Mon Sep 17 00:00:00 2001 From: mattf Date: Thu, 1 Mar 2018 19:56:04 +0000 Subject: [PATCH] Fix to allow for commented(#) lines in filters for hopper git-svn-id: svn://192.168.202.10@2933 3d104415-ff17-0410-8863-d5cf3c621b8a --- bin/AST_VDhopper.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/bin/AST_VDhopper.pl b/bin/AST_VDhopper.pl index 6a3340ac..720a49e9 100644 --- a/bin/AST_VDhopper.pl +++ b/bin/AST_VDhopper.pl @@ -89,10 +89,11 @@ # 150908-1544 - Added debug output for vendor_lead_code duplicate rejections count # 170531-0837 - Fixed issue #1019 # 180111-1559 - Added anyone_callback_inactive_lists option +# 180301-1453 - Fix to allow for commented(#) lines in filters # # constants -$build = '180111-1559'; +$build = '180301-1453'; $DB=0; # Debug flag, set to 0 for no debug messages. Can be overriden with CLI --debug flag $US='__'; $MT[0]=''; @@ -2440,6 +2441,7 @@ foreach(@campaign_id) else { $lead_filter_sql[$i] =~ s/^and|and$|^or|or$|^ and|and $|^ or|or $//gi; + $lead_filter_sql[$i] =~ s/#.*\n//gi; $lead_filter_sql[$i] =~ s/\r|\n|\t/ /gi; $lead_filter_sql[$i] = "and ($lead_filter_sql[$i])"; if ($DB) {print " lead filter $lead_filter_id[$i] defined for $campaign_id[$i]\n";}