From 7a3c2eb8b860cf888bd379fd3c997e8fdacbd8e3 Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Tue, 22 Nov 2005 03:06:15 +0000
Subject: Bug 95799: sanitycheck.cgi should do email checks using
 Util::validate_email_syntax() - Patch by Frédéric Buclin <LpSolit@gmail.com>
 r=wicked a=justdave
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 sanitycheck.cgi | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'sanitycheck.cgi')

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index 7520430a2..1f3f27ddd 100755
--- a/sanitycheck.cgi
+++ b/sanitycheck.cgi
@@ -29,6 +29,7 @@ use lib qw(.);
 
 require "globals.pl";
 use Bugzilla::Constants;
+use Bugzilla::Util;
 use Bugzilla::User;
 
 ###########################################################################
@@ -500,13 +501,11 @@ DoubleCrossCheck("milestones", "product_id", "value",
  
 Status("Checking profile logins");
 
-my $emailregexp = Param("emailregexp");
 SendSQL("SELECT userid, login_name FROM profiles");
 
 while (my ($id,$email) = (FetchSQLData())) {
-    unless ($email =~ m/$emailregexp/) {
-        Alert "Bad profile email address, id=$id,  &lt;$email&gt;."
-    }
+    validate_email_syntax($email)
+      || Alert "Bad profile email address, id=$id,  &lt;$email&gt;.";
 }
 
 ###########################################################################
-- 
cgit v1.2.3-24-g4f1b