Honor the emailregexp param when checking email addresses.

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index b67dad69e61d06d27713ecb6a78074ba0563ed61..953a90a7d2033ade49e630ea1b03e4071ee51d38 100755 (executable)
--- 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>."