require "globals.pl";
use Bugzilla::Constants;
+use Bugzilla::Util;
use Bugzilla::User;
###########################################################################
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, <$email>."
- }
+ validate_email_syntax($email)
+ || Alert "Bad profile email address, id=$id, <$email>.";
}
###########################################################################