#!/usr/bonsaitools/bin/perl -w # -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla Public License # Version 1.0 (the "License"); you may not use this file except in # compliance with the License. You may obtain a copy of the License at # http://www.mozilla.org/MPL/ # # Software distributed under the License is distributed on an "AS IS" # basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the # License for the specific language governing rights and limitations # under the License. # # The Original Code is the Bugzilla Bug Tracking System. # # The Initial Developer of the Original Code is Netscape Communications # Corporation. Portions created by Netscape are Copyright (C) 1998 # Netscape Communications Corporation. All Rights Reserved. # # Contributor(s): Terry Weissman # David Gardiner use diagnostics; use strict; require "CGI.pl"; # Shut up misguided -w warnings about "used only once": use vars %::FORM; ConnectToDatabase(); # Clear out the login cookies. Make people log in again if they create an # account; otherwise, they'll probably get confused. print "Set-Cookie: Bugzilla_login= ; path=/; expires=Sun, 30-Jun-80 00:00:00 GMT Set-Cookie: Bugzilla_logincookie= ; path=/; expires=Sun, 30-Jun-80 00:00:00 GMT Set-Cookie: Bugzilla_password= ; path=/; expires=Sun, 30-Jun-80 00:00:00 GMT Content-type: text/html "; my $login = $::FORM{'login'}; my $realname = $::FORM{'realname'}; if (defined $login) { CheckEmailSyntax($login); if (DBname_to_id($login) != 0) { PutHeader("Account exists"); print "A bugzilla account for the name $login already\n"; print "exists. If you have forgotten the password for it, then\n"; print "click here and use\n"; print "the E-mail me a password button.\n"; exit; } PutHeader("Account created"); my $password = InsertNewUser($login, $realname); MailPassword($login, $password); print "A bugzilla account for $login has been created. The\n"; print "password has been e-mailed to that address. When it is\n"; print "received, you may click\n"; print "here and log in. Or, you can just go back to\n"; print "the top."; exit; } PutHeader("Create a new bugzilla account"); print q{ To create a bugzilla account, all that you need to do is to enter a legitimate e-mail address. The account will be created, and its password will be mailed to you. Optionally you may enter your real name as well.
E-mail address:
Real name:
};