From 697df286084b490b9371471ae736337776c248e4 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Thu, 19 Jan 2012 00:50:14 +0000
Subject: RT NonCustomerEmailRegexp option, #15847

---
 rt/lib/RT/Interface/Web_Vendor.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'rt/lib')

diff --git a/rt/lib/RT/Interface/Web_Vendor.pm b/rt/lib/RT/Interface/Web_Vendor.pm
index 129f69fab..ee8c34b55 100644
--- a/rt/lib/RT/Interface/Web_Vendor.pm
+++ b/rt/lib/RT/Interface/Web_Vendor.pm
@@ -117,6 +117,14 @@ sub ProcessTicketCustomers {
 
     }
 
+    ###
+    #remove any declared non-customer addresses
+    ###
+
+    my $exclude_regexp = RT->Config->Get('NonCustomerEmailRegexp');
+    @Requestors = grep { not $_->EmailAddress =~ $exclude_regexp } @Requestors
+      if defined $exclude_regexp;
+
     ###
     #link ticket (and requestors) to customers
     ###
-- 
cgit v1.2.1