From 0230a614c04af4633fd9cb3d9216b720d474a4b7 Mon Sep 17 00:00:00 2001 From: "terry%mozilla.org" <> Date: Tue, 25 Jan 2000 15:53:26 +0000 Subject: Reworked preferences UI. Added ability to turn off "My bugs" link at bottom. Made "My bugs" show bugs you own AND bugs you submitted. Added ability to display your named queries in the footer. Many random bugfixes. --- changepassword.cgi | 163 +++++------------------------------------------------ 1 file changed, 14 insertions(+), 149 deletions(-) (limited to 'changepassword.cgi') diff --git a/changepassword.cgi b/changepassword.cgi index ca533b1ee..873ababda 100755 --- a/changepassword.cgi +++ b/changepassword.cgi @@ -20,153 +20,18 @@ # # Contributor(s): Terry Weissman -require "CGI.pl"; - - -sub sillyness { - my $zz; - $zz = $::anyvotesallowed; -} - -confirm_login(); - -print "Content-type: text/html\n\n"; - -GetVersionTable(); - -if (! defined $::FORM{'pwd1'}) { - PutHeader("Preferences", "Change your password and
other preferences", - $::COOKIE{'Bugzilla_login'}); - - my $qacontactpart = ""; - if (Param('useqacontact')) { - $qacontactpart = ", the current QA Contact"; - } - my $loginname = SqlQuote($::COOKIE{'Bugzilla_login'}); - SendSQL("select emailnotification,realname,newemailtech from profiles where login_name = " . - $loginname); - my ($emailnotification, $realname, $newemailtech) = (FetchSQLData()); - $realname = value_quote($realname); - print qq{ -

- - - - - - - - - - - - - -

Please enter the new password for $::COOKIE{'Bugzilla_login'}:
Re-enter your new password:
Your real name (optional):

- - - - - -"; - if (Param("newemailtech")) { - my $checkedpart = $newemailtech ? "CHECKED" : ""; - print qq{ - - - - -}; - } - print " -

Bugzilla will send out email notification of changed bugs to -the current owner, the submitter of the bug$qacontactpart, and anyone on the -CC list. However, you can suppress some of those email notifications. -On which of these bugs would you like email notification of changes?	-

New! Bugzilla has a new email -notification scheme. It is experimental and bleeding edge and will -hopefully evolve into a brave new happy world where all the spam and ugliness -of the old notifications will go away. If you wish to sign up for this (and -risk any bugs), check here.	New email tech

- -

"; - if ($::anyvotesallowed) { - print qq{Review your votes

\n}; - } - PutFooter(); - exit; -} - -if ($::FORM{'pwd1'} ne $::FORM{'pwd2'}) { - print "

Try again.

-The two passwords you entered did not match. Please click Back and try again.\n"; - PutFooter(); - exit; +print q{Content-type: text/html + + + + + + +This URL is obsolete. Forwarding you to the correct one. +

+Going to userprefs.cgi +
+ + } - - -my $pwd = $::FORM{'pwd1'}; - - -if ($pwd ne "") { - if ($pwd !~ /^[a-zA-Z0-9-_]*$/ || length($pwd) < 3 || length($pwd) > 15) { - print "

Sorry; we're picky.

-Please choose a password that is between 3 and 15 characters long, and that -contains only numbers, letters, hyphens, or underlines. -

-Please click Back and try again.\n"; - PutFooter(); - exit; - } - - - my $qpwd = SqlQuote($pwd); - SendSQL("UPDATE profiles SET password=$qpwd,cryptpassword=encrypt($qpwd) - WHERE login_name = " . - SqlQuote($::COOKIE{'Bugzilla_login'})); - SendSQL("SELECT cryptpassword FROM profiles WHERE login_name = " . - SqlQuote($::COOKIE{'Bugzilla_login'})); - my $encrypted = FetchOneColumn(); - - SendSQL("update logincookies set cryptpassword = '$encrypted' where cookie = $::COOKIE{'Bugzilla_logincookie'}"); -} - - -my $newemailtech = exists $::FORM{'newemailtech'}; - -SendSQL("UPDATE profiles " . - "SET emailnotification='$::FORM{'emailnotification'}', " . - " newemailtech = '$newemailtech' " . - "WHERE login_name = " . SqlQuote($::COOKIE{'Bugzilla_login'})); - -my $newrealname = $::FORM{'realname'}; - -if ($newrealname ne "") { - $newrealname = SqlQuote($newrealname); - SendSQL("update profiles set realname=$newrealname where login_name = " . - SqlQuote($::COOKIE{'Bugzilla_login'})); -} - -PutHeader("Preferences updated."); -print " -Your preferences have been updated. -

"; -PutFooter(); - -- cgit v1.2.3-24-g4f1b