X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;ds=sidebyside;f=maps%2Fbin%2Fadd2whitelist.cgi;h=6b80947dba5ced014c8ead7fac34b4773d6f8c50;hb=c13c89fdf02d9946f58f2a6b4a7138d60bed9f70;hp=46a5fff47b7a9fde8b1280a4b12c508d60fcd73c;hpb=16babf81ce331af378de565ba73e927ff5491f65;p=clearscm.git diff --git a/maps/bin/add2whitelist.cgi b/maps/bin/add2whitelist.cgi index 46a5fff..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); @@ -114,7 +115,7 @@ print '