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

Diff for /loncom/interface/resetpw.pm between versions 1.21 and 1.22

version 1.21, 2009/10/08 22:59:18 version 1.22, 2009/10/09 00:26:40
Line 31 Line 31
   
 =head1 NAME  =head1 NAME
   
 Apache::resetpw - pile of common routines  Apache::resetpw: reset user password.
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
Line 43  described at http://www.lon-capa.org. Line 43  described at http://www.lon-capa.org.
 =head1 OVERVIEW  =head1 OVERVIEW
   
 A user with an e-mail address associated with his/her LON-CAPA username  A user with an e-mail address associated with his/her LON-CAPA username
 can reset a forgotten password, using a link sent to the e-mail address     can reset a forgotten password, using a link sent to the e-mail address
 if the authentication type for the account is "internal".  if the authentication type for the account is "internal".
 account is "internal".  
   
 =cut  =cut
   
Line 277  sub reset_passwd { Line 276  sub reset_passwd {
         my $reqtime = &Apache::lonlocal::locallocaltime($data{'time'});          my $reqtime = &Apache::lonlocal::locallocaltime($data{'time'});
         if ($now - $data{'time'} < 7200) {          if ($now - $data{'time'} < 7200) {
             if ($env{'form.action'} eq 'verify_and_change_pass') {              if ($env{'form.action'} eq 'verify_and_change_pass') {
                   unless (($env{'form.uname'} eq $data{'username'}) && ($env{'form.udom'} eq $data{'domain'}) && ($env{'form.email'} eq $data{'email'})) {
                       $msg = &generic_failure_msg($contact_name,$contact_email);
                       return $msg;
                   }
                 my $change_failed =                   my $change_failed = 
     &Apache::lonpreferences::verify_and_change_password($r,'reset_by_email',$token);      &Apache::lonpreferences::verify_and_change_password($r,'reset_by_email',$token);
                 if (!$change_failed) {                  if (!$change_failed) {
Removed from v.1.21  
changed lines
  Added in v.1.22

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