X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fadd2nulllist.cgi;h=2e17093a735dfbdedede0a3b5799d61e71b36fc1;hb=c844e4026669bb365f68f79c4b6195ff675c0d80;hp=65f302af3c67cf0457aa708452ed7f32368ee10d;hpb=16babf81ce331af378de565ba73e927ff5491f65;p=clearscm.git

diff --git a/maps/bin/add2nulllist.cgi b/maps/bin/add2nulllist.cgi
index 65f302a..2e17093 100755
--- 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);
 
@@ -105,7 +106,7 @@ print '<p></p><center>',
   hidden ({-name    => 'type',
            -default => $type}),
   submit ({-name    => 'action',
-           -value   => 'Add New Entry'}),
+           -value   => 'Add'}),
   '</center>';
 
 Footing;