X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fadd2whitelist.cgi;h=6b80947dba5ced014c8ead7fac34b4773d6f8c50;hb=fc23b17426d0f6f666d61b24d18817978e134d87;hp=dd7068b918f2e4f4b4aea5df504bfac1cf495082;hpb=39158f66c2f8b792ddb04a22854e332a023b3d16;p=clearscm.git

diff --git a/maps/bin/add2whitelist.cgi b/maps/bin/add2whitelist.cgi
index dd7068b..6b80947 100755
--- a/maps/bin/add2whitelist.cgi
+++ b/maps/bin/add2whitelist.cgi
@@ -23,6 +23,7 @@ use lib "$FindBin::Bin/../lib";
 use MAPS;
 use MAPSLog;
 use MAPSWeb;
+use MAPSUtil;
 
 use CGI qw/:standard *table/;
 use CGI::Carp 'fatalsToBrowser';
@@ -43,7 +44,7 @@ sub Add2List() {
     last if ((!defined $pattern || $pattern eq '') &&
              (!defined $domain  || $domain  eq ''));
 
-    $sender = lc "$pattern\@$domain";
+    $sender = CheckEmail $pattern, $domain;
 
     my ($status, $rule) = OnWhitelist($sender, $userid);