From d297f88d022f45e4d6341e7eca49049a4947cd8f Mon Sep 17 00:00:00 2001
From: "bugreport%peshkin.net" <>
Date: Mon, 9 Dec 2002 08:24:34 +0000
Subject: Bug 86029 create permission restrictions for createaccount.cgi
 (prevent people from creating accounts) r=burnus a=justdave

---
 createaccount.cgi | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'createaccount.cgi')

diff --git a/createaccount.cgi b/createaccount.cgi
index 37776a780..4ce347fcf 100755
--- a/createaccount.cgi
+++ b/createaccount.cgi
@@ -69,6 +69,13 @@ if (defined($login)) {
           || ThrowTemplateError($template->error());
         exit;
     }
+
+    my $createexp = Param('createemailregexp');
+    if (!($createexp)
+        || ($login !~ /$createexp/)) {
+        ThrowUserError("account_creation_disabled");
+        exit;
+    }
     
     # Create account
     my $password = InsertNewUser($login, $realname);
-- 
cgit v1.2.1