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
65f302a
..
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);
@@
-105,7
+106,7
@@
print '<p></p><center>',
hidden ({-name => 'type',
-default => $type}),
submit ({-name => 'action',
hidden ({-name => 'type',
-default => $type}),
submit ({-name => 'action',
- -value => 'Add
New Entry
'}),
+ -value => 'Add'}),
'</center>';
Footing;
'</center>';
Footing;