projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git+ssh://github.com/adefaria/clearscm
[clearscm.git]
/
maps
/
bin
/
add2whitelist.cgi
diff --git
a/maps/bin/add2whitelist.cgi
b/maps/bin/add2whitelist.cgi
index
dd7068b
..
6b80947
100755
(executable)
--- 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 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';
@@
-43,7
+44,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) = OnWhitelist($sender, $userid);
my ($status, $rule) = OnWhitelist($sender, $userid);