From a8c72c4d3b30aa45a587a846d825235f5e8fc8a5 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Tue, 2 Apr 2002 06:52:37 +0000
Subject: Remaining pieces of Bug 23067 from yesterday...  no idea why the
 first commit didn't pick these up.

---
 CGI.pl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'CGI.pl')

diff --git a/CGI.pl b/CGI.pl
index 2b8f5d048..be6c95270 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -814,6 +814,12 @@ sub confirm_login {
         # If this is a new user, generate a password, insert a record
         # into the database, and email their password to them.
         if ( defined $::FORM{"PleaseMailAPassword"} && !$userid ) {
+            # Ensure the new login is valid
+            if(!ValidateNewUser($enteredlogin)) {
+                DisplayError("Account Exists");
+                exit;
+            }
+
             my $password = InsertNewUser($enteredlogin, "");
             # There's a template for this - account_created.tmpl - but
             # it's easier to wait to use it until templatisation has progressed
-- 
cgit v1.2.3-24-g4f1b