Honor the emailregexp param when checking email addresses.

1 files changed, 3 insertions, 1 deletions

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>."