diff options
author | justdave%syndicomm.com <> | 2002-04-02 06:52:37 +0000 |
---|---|---|
committer | justdave%syndicomm.com <> | 2002-04-02 06:52:37 +0000 |
commit | a8c72c4d3b30aa45a587a846d825235f5e8fc8a5 (patch) | |
tree | 7200e87785413e4e8104860ea10ff394e716d108 /CGI.pl | |
parent | 0e583bdb0923a962fcef1af39896398862e13077 (diff) | |
download | bugs-a8c72c4d3b30aa45a587a846d825235f5e8fc8a5.tar bugs-a8c72c4d3b30aa45a587a846d825235f5e8fc8a5.tar.gz bugs-a8c72c4d3b30aa45a587a846d825235f5e8fc8a5.tar.bz2 bugs-a8c72c4d3b30aa45a587a846d825235f5e8fc8a5.tar.xz bugs-a8c72c4d3b30aa45a587a846d825235f5e8fc8a5.zip |
Remaining pieces of Bug 23067 from yesterday... no idea why the first commit didn't pick these up.
Diffstat (limited to 'CGI.pl')
-rw-r--r-- | CGI.pl | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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 |