X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;ds=inline;f=maps%2Fbin%2Fadd2nulllist.cgi;h=2e17093a735dfbdedede0a3b5799d61e71b36fc1;hb=338c4f27d2fd517aa63544459399aef9b28438be;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 '