Commit c2491654 authored by terry%mozilla.org's avatar terry%mozilla.org

Honor the emailregexp param when checking email addresses.

parent 7ded9ccf
...@@ -160,9 +160,11 @@ SendSQL("select userid,login_name from profiles"); ...@@ -160,9 +160,11 @@ SendSQL("select userid,login_name from profiles");
my %profid; my %profid;
my $emailregexp = Param("emailregexp");
while (@row = FetchSQLData()) { while (@row = FetchSQLData()) {
my ($id, $email) = (@row); my ($id, $email) = (@row);
if ($email =~ /^[^@, ]*@[^@, ]*\.[^@, ]*$/) { if ($email =~ /$emailregexp/o) {
$profid{$id} = 1; $profid{$id} = 1;
} else { } else {
Alert "Bad profile id $id <$email>." Alert "Bad profile id $id <$email>."
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment