Fix for bug 32971, patch submitted by mtakacs@pacbell.net

diff --git a/editusers.cgi b/editusers.cgi
index 92ba42fa6b3bde9807def39b065641d082a73923..243e7ee04fff508fef4e4c4a37be8dbe1acd59f7 100755 (executable)
--- a/editusers.cgi
+++ b/editusers.cgi
@@ -376,6 +376,7 @@ if ($action eq 'new') {
     my $realname = trim($::FORM{realname} || '');
     my $password = trim($::FORM{password} || '');
     my $disabledtext = trim($::FORM{disabledtext} || '');
+    my $emailregexp = Param("emailregexp");
 
     unless ($user) {
         print "You must enter a name for the new user. Please press\n";
@@ -383,7 +384,7 @@ if ($action eq 'new') {
         PutTrailer($localtrailer);
         exit;
     }
-    unless ($user =~ /^[^\@]+\@[^\@]+$/) {
+    unless ($user =~ m/$emailregexp/) {
         print "The user name entered must be a valid e-mail address. Please press\n";
         print "<b>Back</b> and try again.\n";
         PutTrailer($localtrailer);