From 7703b328bc570f75edbf287b2b78ef2cbb89996a Mon Sep 17 00:00:00 2001 From: "gerv%gerv.net" <> Date: Wed, 30 Jan 2002 07:26:34 +0000 Subject: Bug 117509 - createaccount.cgi templatisation. --- CGI.pl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'CGI.pl') diff --git a/CGI.pl b/CGI.pl index 3929c8a6d..90217db18 100644 --- a/CGI.pl +++ b/CGI.pl @@ -747,11 +747,6 @@ sub MailPassword { open SENDMAIL, "|/usr/lib/sendmail -t"; print SENDMAIL $msg; close SENDMAIL; - - print "The password for the e-mail address\n"; - print "$login has been e-mailed to that address.\n"; - print "

When the e-mail arrives, you can click Back\n"; - print "and enter your password in the form there.\n"; } @@ -791,9 +786,17 @@ sub confirm_login { # into the database, and email their password to them. if ( defined $::FORM{"PleaseMailAPassword"} && !$userid ) { 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 + # further; we want to avoid sprinkling multiple copies of the + # template setup code everywhere - Gerv. print "Content-Type: text/html\n\n"; PutHeader("Account Created"); MailPassword($enteredlogin, $password); + print "The password for the e-mail address\n"; + print "$enteredlogin has been e-mailed to that address.\n"; + print "

When the e-mail arrives, you can click Back\n"; + print "and enter your password in the form there.\n"; PutFooter(); exit; } -- cgit v1.2.3-24-g4f1b