return $str;
}
+# Send the login name and password of the newly created account to the user.
+sub MailPassword ($$) {
+ my ($login, $password) = (@_);
+ my $template = Param("passwordmail");
+ my $msg = PerformSubsts($template,
+ {"mailaddress" => $login . Param('emailsuffix'),
+ "login" => $login,
+ "password" => $password});
+ MessageToMTA($msg);
+}
+
1;
}
}
-sub MailPassword {
- my ($login, $password) = (@_);
- my $urlbase = Param("urlbase");
- my $template = Param("passwordmail");
- my $msg = PerformSubsts($template,
- {"mailaddress" => $login . Param('emailsuffix'),
- "login" => $login,
- "password" => $password});
-
- Bugzilla::BugMail::MessageToMTA($msg);
-}
-
sub PutHeader {
($vars->{'title'}, $vars->{'h1'}, $vars->{'h2'}) = (@_);
use Bugzilla::Constants;
use Bugzilla::User;
+use Bugzilla::BugMail;
# Shut up misguided -w warnings about "used only once":
use vars qw(
# Create account
my $password = insert_new_user($login, $realname);
- MailPassword($login, $password);
+ Bugzilla::BugMail::MailPassword($login, $password);
$template->process("account/created.html.tmpl", $vars)
|| ThrowTemplateError($template->error());