From c2491654291209345784c141700bad79603fe07b Mon Sep 17 00:00:00 2001 From: "terry%mozilla.org" <> Date: Sun, 23 Jan 2000 06:19:05 +0000 Subject: Honor the emailregexp param when checking email addresses. --- sanitycheck.cgi | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/sanitycheck.cgi b/sanitycheck.cgi index b67dad69e..953a90a7d 100755 --- a/sanitycheck.cgi +++ b/sanitycheck.cgi @@ -160,9 +160,11 @@ SendSQL("select userid,login_name from profiles"); my %profid; +my $emailregexp = Param("emailregexp"); + while (@row = FetchSQLData()) { my ($id, $email) = (@row); - if ($email =~ /^[^@, ]*@[^@, ]*\.[^@, ]*$/) { + if ($email =~ /$emailregexp/o) { $profid{$id} = 1; } else { Alert "Bad profile id $id <$email>." -- cgit v1.2.3-24-g4f1b