rt/html/SelfService/Prefs.html

   1 %# BEGIN LICENSE BLOCK
   2 %#
   3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
   4 %#
   5 %# (Except where explictly superceded by other copyright notices)
   6 %#
   7 %# This work is made available to you under the terms of Version 2 of
   8 %# the GNU General Public License. A copy of that license should have
   9 %# been provided with this software, but in any event can be snarfed
  10 %# from www.gnu.org.
  11 %#
  12 %# This work is distributed in the hope that it will be useful, but
  13 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  14 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 %# General Public License for more details.
  16 %#
  17 %# Unless otherwise specified, all modifications, corrections or
  18 %# extensions to this work which alter its source code become the
  19 %# property of Best Practical Solutions, LLC when submitted for
  20 %# inclusion in the work.
  21 %#
  22 %#
  23 %# END LICENSE BLOCK
  24 <& /SelfService/Elements/Header, Title => loc('Preferences') &>
  25
  26 <& /Elements/ListActions, actions => \@results &>
  27 <form method=post>
  28
  29 % unless ($RT::WebExternalAuth and !$RT::WebFallbackToInternalAuth) {
  30 <& /Elements/TitleBoxStart, title => loc('Change password')  &>
  31 <&|/l&>New password</&>: <input type=password name="NewPass1" size=16>
  32 <&|/l&>Confirm</&>: <input type=password name="NewPass2" size=16>
  33 <& /Elements/TitleBoxEnd &>
  34 <BR>
  35 % }
  36 <& /Elements/Submit, Label => loc('Save Changes') &>
  37           </form>
  38
  39
  40 <%INIT>
  41 my @results;
  42
  43 if ($NewPass1) {
  44     if ($NewPass1 ne $NewPass2) {
  45         push (@results, "Passwords did not match.");
  46     }
  47     else {
  48         my ($val, $msg)=$session{'CurrentUser'}->UserObj->SetPassword($NewPass1);
  49         push (@results, "Password: ".$msg);
  50     }
  51 }
  52 if ($Signature) {
  53     $Signature =~ s/(\r\n|\r)/\n/g;
  54     if ($Signature ne $session{'CurrentUser'}->UserObj->Signature) {
  55         my ($val, $msg)=$session{'CurrentUser'}->UserObj->SetSignature($Signature);
  56         push (@results, "Signature: ".$msg);
  57     }
  58 }
  59 #A hack to make sure that session gets rewritten.
  60
  61 $session{'i'}++;
  62 </%INIT>
  63
  64 <%ARGS>
  65 $Signature => undef
  66 $NewPass1 => undef
  67 $NewPass2 => undef
  68 </%ARGS>