From 45951692d647926e6fb467523c96572e716988b4 Mon Sep 17 00:00:00 2001
From: "dave%intrec.com" <>
Date: Tue, 18 Jul 2000 09:15:24 +0000
Subject: Fix for bug 32971, patch submitted by mtakacs@pacbell.net

---
 editusers.cgi | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'editusers.cgi')

diff --git a/editusers.cgi b/editusers.cgi
index 92ba42fa6..243e7ee04 100755
--- 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);
-- 
cgit v1.2.3-65-gdbad