Patch for bug 65313; improves the email regexp in order to detect better invalid…

Patch for bug 65313; improves the email regexp in order to detect better invalid email addresses; r=gerv, a=justdave.

Patch for bug 65313; improves the email regexp in order to detect better invalid…
e09500e1 · jocuri%softhome.net · 3f5f2ce7 · e09500e1 · e09500e1
Commit e09500e1 authored Feb 26, 2004 by jocuri%softhome.net
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

checksetup.pl checksetup.pl +1 -1

defparams.pl defparams.pl +1 -1

No files found.
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -3949,7 +3949,7 @@ if ($sth->rows == 0) {
    $mailcheckexp = Param('emailregexp');
    $mailcheck    = Param('emailregexpdesc');
  } else {
-    $mailcheckexp = '^[^@]+@[^@]+\\.[^@]+$';
+    $mailcheckexp = '^[\\w\\.\\+\\-=]+@[\\w\\.\\-]+\\.[\\w\\-]+$';
    $mailcheck    = 'A legal address must contain exactly one \'@\', 
      and at least one \'.\' after the @.';
  }

--- a/defparams.pl
+++ b/defparams.pl
@@ -739,7 +739,7 @@ You will get this message once a day until you\'ve dealt with these bugs!
           'popular value to put here is <tt>^[^@]+$</tt>, which means ' .
           '"local usernames, no @ allowed."',
   type => 't',
-   default => q:^[^@]+@[^@]+\\.[^@]+$:,
+   default => q:^[\\w\\.\\+\\-=]+@[\\w\\.\\-]+\\.[\\w\\-]+$:,
   checker => \&check_regexp
  },