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

Diff for /loncom/interface/lonpreferences.pm between versions 1.8 and 1.9

version 1.8, 2002/04/30 14:03:52 version 1.9, 2002/08/19 13:10:55
Line 98  sub des_decrypt { Line 98  sub des_decrypt {
 ################################################################  ################################################################
 #                       Handler subroutines                    #  #                       Handler subroutines                    #
 ################################################################  ################################################################
   
   ################################################################
   #         Anonymous Discussion Name Change Subroutines         #
   ################################################################
 sub screennamechanger {  sub screennamechanger {
     my $r = shift;      my $r = shift;
     my $errormessage = shift;  
     $errormessage = ($errormessage || '');  
     my $user       = $ENV{'user.name'};      my $user       = $ENV{'user.name'};
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
     my $homeserver = $ENV{'user.home'};  
     my %userenv = &Apache::lonnet::get('environment',['screenname']);      my %userenv = &Apache::lonnet::get('environment',['screenname']);
     my $screenname=$userenv{'screenname'};      my $screenname=$userenv{'screenname'};
     $r->print(<<ENDSCREEN);      $r->print(<<ENDSCREEN);
Line 112  sub screennamechanger { Line 113  sub screennamechanger {
 <body bgcolor="#FFFFFF">  <body bgcolor="#FFFFFF">
 <h1>Preferences for $user</h1>  <h1>Preferences for $user</h1>
 <h3>$user is a member of domain $domain</h3>  <h3>$user is a member of domain $domain</h3>
 $errormessage  
 <p>  <p>
 Change anonymous discussion screen name for $user  Change anonymous discussion screen name for $user
 </p>  </p>
   
 <form name="server" action="/adm/preferences" method="post">  <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_screenname" />  <input type="hidden" name="action" value="verify_and_change_screenname" />
 New screenname:  New screenname:
Line 132  sub verify_and_change_screenname { Line 131  sub verify_and_change_screenname {
     my $r = shift;      my $r = shift;
     my $user       = $ENV{'user.name'};      my $user       = $ENV{'user.name'};
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
     my $homeserver = $ENV{'user.home'};  
     my $newscreen  = $ENV{'form.screenname'};      my $newscreen  = $ENV{'form.screenname'};
     $newscreen=~s/\W//g;      $newscreen=~s/\W//g;
     my $message='';      my $message='';
Line 194  sub passwordchanger { Line 192  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 $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");
  $r->print(<$jsh>);   $r->print(<$jsh>);
     }      }
     $r->print(<<ENDFORM);      $r->print(<<ENDFORM);
   </head>
 <body bgcolor="#FFFFFF" onLoad="init();">  <body bgcolor="#FFFFFF" onLoad="init();">
   
 <script language="JavaScript">  <script language="JavaScript">
Line 359  ENDERROR Line 358  ENDERROR
     # Inform the user the password has (not?) been changed      # Inform the user the password has (not?) been changed
     if ($result =~ /^ok$/) {      if ($result =~ /^ok$/) {
  $r->print(<<"ENDTEXT");   $r->print(<<"ENDTEXT");
 <h2>Password for $user was successfully changed</h2>  <h2>The password for $user was successfully changed</h2>
 ENDTEXT  ENDTEXT
     } else {      } else {
  # error error: run in circles, scream and shout   # error error: run in circles, scream and shout
         $r->print(<<ENDERROR);          $r->print(<<ENDERROR);
 <h2><font color="#ff0000">Password for $user was not changed</font></h2>  <h2><font color="#ff0000">The password for $user was not changed</font></h2>
 Please make sure your old password was entered correctly.  Please make sure your old password was entered correctly.
 ENDERROR  ENDERROR
     }      }
Line 375  ENDERROR Line 374  ENDERROR
 #            other handler subroutines               #  #            other handler subroutines               #
 ######################################################  ######################################################
   
   
 ################################################################  ################################################################
 #                          Main handler                        #  #                          Main handler                        #
 ################################################################  ################################################################
Line 388  sub handler { Line 386  sub handler {
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
     # Spit out the header      #
     if ($ENV{'form.action'} eq 'changepass') {      if ($ENV{'form.action'} eq 'changepass') {
  &passwordchanger($r);   &passwordchanger($r);
     } elsif ($ENV{'form.action'} eq 'verify_and_change_pass') {      } elsif ($ENV{'form.action'} eq 'verify_and_change_pass') {
Removed from v.1.8  
changed lines
  Added in v.1.9

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