print SENDMAIL $msg;
close SENDMAIL;
- print "Content-type: text/html\n\n";
- PutHeader("Password mailed");
print "The password for the e-mail address\n";
print "$login has been e-mailed to that address.\n";
print "<p>When the e-mail arrives, you can click <b>Back</b>\n";
SqlQuote($enteredlogin));
$realpwd = FetchOneColumn();
}
+ print "Content-type: text/html\n\n";
+ PutHeader("<H1>Password has been emailed");
MailPassword($enteredlogin, $realpwd);
exit;
}
";
-PutHeader("Create a new bugzilla account");
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 <tt>$login</tt> already\n";
print "exists. If you have forgotten the password for it, then\n";
print "<a href=query.cgi?GoAheadAndLogIn>click here</a> and use\n";
print "the <b>E-mail me a password</b> button.\n";
exit;
}
+ PutHeader("Account created");
my $password = InsertNewUser($login, $realname);
MailPassword($login, $password);
print "A bugzilla account for <tt>$login</tt> has been created. The\n";
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