use MAPS;
use MAPSLog;
use MAPSWeb;
+use MAPSUtil;
use CGI qw/:standard *table/;
use CGI::Carp 'fatalsToBrowser';
last if ((!defined $pattern || $pattern eq '') &&
(!defined $domain || $domain eq ''));
- $sender = lc "$pattern\@$domain";
+ $sender = CheckEmail $pattern, $domain;
my ($status, $rule) = OnWhitelist($sender, $userid);
hidden ({-name => 'type',
-default => $type}),
submit ({-name => 'action',
- -value => 'Add New Entry'}),
+ -value => 'Add'}),
'</center>';
Footing;