[BACK]Return to lonpreferences.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpreferences.pm between versions 1.50 and 1.53

version 1.50, 2004/11/19 20:17:52 version 1.53, 2005/02/17 08:29:43
Line 567  sub passwordchanger { Line 567  sub passwordchanger {
     $lkey_npass2= hex($lkey_npass2);      $lkey_npass2= hex($lkey_npass2);
     # Output javascript to deal with passwords      # Output javascript to deal with passwords
     # Output DES javascript      # Output DES javascript
     $r->print("<html><head>");      my $html=&Apache::lonxml::xmlbegin();
       $r->print($html."<head>");
     {      {
  my $include = $r->dir_config('lonIncludes');   my $include = $r->dir_config('lonIncludes');
  my $jsh=Apache::File->new($include."/londes.js");   my $jsh=Apache::File->new($include."/londes.js");
Line 581  sub passwordchanger { Line 582  sub passwordchanger {
         lextkey=this.document.client.elements.lkey_cpass.value;          lextkey=this.document.client.elements.lkey_cpass.value;
         initkeys();          initkeys();
   
         this.document.server.elements.currentpass.value          this.document.pserver.elements.currentpass.value
             =crypted(this.document.client.elements.currentpass.value);              =crypted(this.document.client.elements.currentpass.value);
   
         uextkey=this.document.client.elements.ukey_npass1.value;          uextkey=this.document.client.elements.ukey_npass1.value;
         lextkey=this.document.client.elements.lkey_npass1.value;          lextkey=this.document.client.elements.lkey_npass1.value;
         initkeys();          initkeys();
         this.document.server.elements.newpass_1.value          this.document.pserver.elements.newpass_1.value
             =crypted(this.document.client.elements.newpass_1.value);              =crypted(this.document.client.elements.newpass_1.value);
   
         uextkey=this.document.client.elements.ukey_npass2.value;          uextkey=this.document.client.elements.ukey_npass2.value;
         lextkey=this.document.client.elements.lkey_npass2.value;          lextkey=this.document.client.elements.lkey_npass2.value;
         initkeys();          initkeys();
         this.document.server.elements.newpass_2.value          this.document.pserver.elements.newpass_2.value
             =crypted(this.document.client.elements.newpass_2.value);              =crypted(this.document.client.elements.newpass_2.value);
   
         this.document.server.submit();          this.document.pserver.submit();
     }      }
   
 </script>  </script>
Line 607  $errormessage Line 608  $errormessage
      ensure that unencrypted passwords will not be sent out by a       ensure that unencrypted passwords will not be sent out by a
      crappy browser -->       crappy browser -->
   
 <form name="server" action="/adm/preferences" method="post">  <form name="pserver" action="/adm/preferences" method="post">
 <input type="hidden" name="logtoken"    value="$logtoken" />  <input type="hidden" name="logtoken"    value="$logtoken" />
 <input type="hidden" name="action"      value="verify_and_change_pass" />  <input type="hidden" name="action"      value="verify_and_change_pass" />
 <input type="hidden" name="currentpass" value="" />  <input type="hidden" name="currentpass" value="" />
Line 648  sub verify_and_change_password { Line 649  sub verify_and_change_password {
     # Check for authentication types that allow changing of the password.      # Check for authentication types that allow changing of the password.
     return if ($currentauth !~ /^(unix|internal):/);      return if ($currentauth !~ /^(unix|internal):/);
     #      #
       my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  $html
 <head>  <head>
 <title>LON-CAPA Preferences:  Change password for $user</title>  <title>LON-CAPA Preferences:  Change password for $user</title>
 </head>  </head>
Line 1047  sub handler { Line 1049  sub handler {
                       }));                        }));
   
   
     if ($ENV{'user.name'} =~ /^(albertel|koretemey|korte|hallmat3|turtle)$/) {      if ($ENV{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle)$/) {
         push (@Options,({ action => 'debugtoggle',          push (@Options,({ action => 'debugtoggle',
                           printmenu => 'yes',                            printmenu => 'yes',
                           subroutine => \&toggle_debug,                            subroutine => \&toggle_debug,
                           }));                            }));
     }      }
       my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  $html
 <head>  <head>
 <title>LON-CAPA Preferences</title>  <title>LON-CAPA Preferences</title>
 </head>  </head>
Line 1082  ENDHEADER Line 1085  ENDHEADER
     if (($printmenu eq 'yes') && (!$ENV{'form.returnurl'})) {      if (($printmenu eq 'yes') && (!$ENV{'form.returnurl'})) {
         my $optionlist = '<table cellpadding="5">';          my $optionlist = '<table cellpadding="5">';
         if ($ENV{'user.name'} =~           if ($ENV{'user.name'} =~ 
                          /^(albertel|kortemey|korte|hallmat3|turtle)$/                           /^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle)$/
             ) {              ) {
             push (@Options,({ action => 'debugtoggle',              push (@Options,({ action => 'debugtoggle',
                               linktext => 'Toggle Debug Messages',                                linktext => 'Toggle Debug Messages',
Removed from v.1.50  
changed lines
  Added in v.1.53

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>