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(-)

(limited to 'sanitycheck.cgi')

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 &lt;$email&gt;."
-- 
cgit v1.2.3-24-g4f1b