From 99930ca5c23c93cd177c587899f38c7d93509280 Mon Sep 17 00:00:00 2001
From: "bugreport%peshkin.net" <>
Date: Wed, 31 Jul 2002 17:15:54 +0000
Subject: Bug 113459 Bad regexp in emailregexp causes system lockout

---
 defparams.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'defparams.pl')

diff --git a/defparams.pl b/defparams.pl
index c0e1a9fa9..45e67d532 100644
--- a/defparams.pl
+++ b/defparams.pl
@@ -449,10 +449,17 @@ sub check_webdotbase {
     return "";
 }
 
+sub checkregexp {
+    my ($value) = (@_);
+    eval { qr/$value/ };
+    return $@;
+}
+
 DefParam("emailregexp",
          'This defines the regexp to use for legal email addresses.  The default tries to match fully qualified email addresses.  Another popular value to put here is <tt>^[^@]+$</tt>, which means "local usernames, no @ allowed."',
          "t",
-         q:^[^@]+@[^@]+\\.[^@]+$:);
+         q:^[^@]+@[^@]+\\.[^@]+$:,
+         \&checkregexp);
 
 DefParam("emailregexpdesc",
          "This describes in english words what kinds of legal addresses are allowed by the <tt>emailregexp</tt> param.",
-- 
cgit v1.2.3-24-g4f1b