Finally allowed "username@domain.com" to be specified

[clearscm.git] / maps / bin / add2nulllist.cgi

diff --git a/maps/bin/add2nulllist.cgi b/maps/bin/add2nulllist.cgi
index da698dd..2e17093 100755 (executable)
--- a/maps/bin/add2nulllist.cgi
+++ b/maps/bin/add2nulllist.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';
@@ -44,7 +45,7 @@ sub Add2List() {
     last if ((!defined $pattern || $pattern eq '') &&
               (!defined $domain || $domain  eq ''));
 
-    $sender = lc "$pattern\@$domain";
+    $sender = CheckEmail $pattern, $domain;
 
     my ($status, $rule) = OnNulllist($sender);