diff options
| author | terry%mozilla.org <> | 2000-01-25 16:53:26 +0100 |
|---|---|---|
| committer | terry%mozilla.org <> | 2000-01-25 16:53:26 +0100 |
| commit | 0230a614c04af4633fd9cb3d9216b720d474a4b7 (patch) | |
| tree | 69468f51e04ac6caccd0d1a19229d6bea1abb65b /changepassword.cgi | |
| parent | 5fc31978bdcfe2790ee48d930d1c2adafe66b204 (diff) | |
| download | bugzilla-0230a614c04af4633fd9cb3d9216b720d474a4b7.tar.gz bugzilla-0230a614c04af4633fd9cb3d9216b720d474a4b7.tar.xz | |
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.
Diffstat (limited to 'changepassword.cgi')
| -rwxr-xr-x | changepassword.cgi | 163 |
1 files changed, 14 insertions, 149 deletions
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 <terry@mozilla.org> -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<br>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{ -<form method=post> -<hr> -<table> -<tr> -<td align=right>Please enter the new password for <b>$::COOKIE{'Bugzilla_login'}</b>:</td> -<td><input type=password name="pwd1"></td> -</tr> -<tr> -<td align=right>Re-enter your new password:</td> -<td><input type=password name="pwd2"></td> -</tr> -<tr> -<td align=right>Your real name (optional):</td> -<td><input size=35 name=realname value="$realname"></td> -</tr> -</table> -<hr> -<table> -<tr> -<td align=right>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?</td> -<td><SELECT NAME="emailnotification"> -}; - foreach my $i (["ExcludeSelfChanges", "All qualifying bugs except those which I change"], - ["CConly", "Only those bugs which I am listed on the CC line"], - ["All", "All qualifying bugs"]) { - my ($tag, $desc) = (@$i); - my $selectpart = ""; - if ($tag eq $emailnotification) { - $selectpart = " SELECTED"; - } - print qq{<OPTION$selectpart VALUE="$tag">$desc\n}; - } - print " -</SELECT> -</td> -</tr> -"; - if (Param("newemailtech")) { - my $checkedpart = $newemailtech ? "CHECKED" : ""; - print qq{ -<tr><td colspan=2><hr></td></tr> -<tr><td align=right><font color="red">New!</font> Bugzilla has a new email -notification scheme. It is <b>experimental and bleeding edge</b> 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.</td> -<td><input type="checkbox" name="newemailtech" $checkedpart>New email tech</td> -</tr> -}; - } - print " -</table> -<hr> -<input type=submit value=Submit> -</form> -<hr>"; - if ($::anyvotesallowed) { - print qq{<a href="showvotes.cgi">Review your votes</a><hr>\n}; - } - PutFooter(); - exit; -} - -if ($::FORM{'pwd1'} ne $::FORM{'pwd2'}) { - print "<H1>Try again.</H1> -The two passwords you entered did not match. Please click <b>Back</b> and try again.\n"; - PutFooter(); - exit; +print q{Content-type: text/html + +<HTML> +<HEAD> +<META HTTP-EQUIV="Refresh" + CONTENT="0; URL=userprefs.cgi"> +</HEAD> +<BODY> +This URL is obsolete. Forwarding you to the correct one. +<P> +Going to <A HREF="userprefs.cgi">userprefs.cgi</A> +<BR> +</BODY> +</HTML> } - - -my $pwd = $::FORM{'pwd1'}; - - -if ($pwd ne "") { - if ($pwd !~ /^[a-zA-Z0-9-_]*$/ || length($pwd) < 3 || length($pwd) > 15) { - print "<H1>Sorry; we're picky.</H1> -Please choose a password that is between 3 and 15 characters long, and that -contains only numbers, letters, hyphens, or underlines. -<p> -Please click <b>Back</b> 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. -<p>"; -PutFooter(); - |