BugsSite/createaccount.cgi

   1 #!/usr/bin/env perl -wT
   2 # -*- Mode: perl; indent-tabs-mode: nil -*-
   3 #
   4 # The contents of this file are subject to the Mozilla Public
   5 # License Version 1.1 (the "License"); you may not use this file
   6 # except in compliance with the License. You may obtain a copy of
   7 # the License at http://www.mozilla.org/MPL/
   8 #
   9 # Software distributed under the License is distributed on an "AS
  10 # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  11 # implied. See the License for the specific language governing
  12 # rights and limitations under the License.
  13 #
  14 # The Original Code is the Bugzilla Bug Tracking System.
  15 #
  16 # The Initial Developer of the Original Code is Netscape Communications
  17 # Corporation. Portions created by Netscape are
  18 # Copyright (C) 1998 Netscape Communications Corporation. All
  19 # Rights Reserved.
  20 #
  21 # Contributor(s): Terry Weissman <terry@mozilla.org>
  22 #                 David Gardiner <david.gardiner@unisa.edu.au>
  23 #                 Joe Robins <jmrobins@tgix.com>
  24 #                 Christopher Aillon <christopher@aillon.com>
  25 #                 Gervase Markham <gerv@gerv.net>
  26
  27 use strict;
  28
  29 use lib qw(. lib);
  30
  31 use Bugzilla;
  32 use Bugzilla::Constants;
  33 use Bugzilla::Error;
  34 use Bugzilla::User;
  35 use Bugzilla::BugMail;
  36 use Bugzilla::Util;
  37
  38 # Just in case someone already has an account, let them get the correct footer
  39 # on an error message. The user is logged out just after the account is
  40 # actually created.
  41 Bugzilla->login(LOGIN_OPTIONAL);
  42
  43 my $dbh = Bugzilla->dbh;
  44 my $cgi = Bugzilla->cgi;
  45 my $template = Bugzilla->template;
  46 my $vars = {};
  47
  48 $vars->{'doc_section'} = 'myaccount.html';
  49
  50 print $cgi->header();
  51
  52 # If we're using LDAP for login, then we can't create a new account here.
  53 unless (Bugzilla->user->authorizer->user_can_create_account) {
  54     ThrowUserError("auth_cant_create_account");
  55 }
  56
  57 my $createexp = Bugzilla->params->{'createemailregexp'};
  58 unless ($createexp) {
  59     ThrowUserError("account_creation_disabled");
  60 }
  61
  62 my $login = $cgi->param('login');
  63
  64 if (defined($login)) {
  65     $login = Bugzilla::User->check_login_name_for_creation($login);
  66     $vars->{'login'} = $login;
  67
  68     if ($login !~ /$createexp/) {
  69         ThrowUserError("account_creation_restricted");
  70     }
  71
  72     # Create and send a token for this new account.
  73     Bugzilla::Token::issue_new_user_account_token($login);
  74
  75     $template->process("account/created.html.tmpl", $vars)
  76       || ThrowTemplateError($template->error());
  77     exit;
  78 }
  79
  80 # Show the standard "would you like to create an account?" form.
  81 $template->process("account/create.html.tmpl", $vars)
  82   || ThrowTemplateError($template->error());