projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Updated copyright date
[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 MAPS;
use MAPSLog;
use MAPSWeb;
+use MAPSUtil;
use CGI qw/:standard *table/;
use CGI::Carp 'fatalsToBrowser';
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 ''));
last if ((!defined $pattern || $pattern eq '') &&
(!defined $domain || $domain eq ''));
- $sender =
lc "$pattern\@$domain"
;
+ $sender =
CheckEmail $pattern, $domain
;
my ($status, $rule) = OnNulllist($sender);
my ($status, $rule) = OnNulllist($sender);