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

Diff for /loncom/interface/resetpw.pm between versions 1.39 and 1.41

version 1.39, 2016/10/30 01:45:31 version 1.41, 2017/10/02 16:40:18
Line 96  sub handler { Line 96  sub handler {
     if ($udom) {      if ($udom) {
         $domdesc = &Apache::lonnet::domain($udom,'description');          $domdesc = &Apache::lonnet::domain($udom,'description');
         if ($domdesc) {          if ($domdesc) {
               $otherinst = 1;
               my @ids=&Apache::lonnet::current_machine_ids();
             my %servers = &Apache::lonnet::internet_dom_servers($udom);              my %servers = &Apache::lonnet::internet_dom_servers($udom);
             unless (exists($servers{$server})) {              foreach my $server (keys(%servers)) {
                 $otherinst = 1;                    if (grep(/^\Q$server\E$/,@ids)) {
                       $otherinst = 0;
                       last;
                   }
             }              }
         }          }
     }      }
Line 447  sub reset_passwd { Line 452  sub reset_passwd {
             return;              return;
         } elsif ($now - $data{'time'} < 7200) {          } elsif ($now - $data{'time'} < 7200) {
             if ($env{'form.action'} eq 'verify_and_change_pass') {              if ($env{'form.action'} eq 'verify_and_change_pass') {
                   $env{'form.uname'} =~ s/^\s+|\s+$//g;
                   $env{'form.udom'} =~ s/^\s+|\s+$//g;
                   $env{'form.email'} =~ s/^\s+|\s+$//g;
                 unless (($env{'form.uname'} eq $data{'username'}) && ($env{'form.udom'} eq $data{'domain'}) && ($env{'form.email'} eq $data{'email'})) {                  unless (($env{'form.uname'} eq $data{'username'}) && ($env{'form.udom'} eq $data{'domain'}) && ($env{'form.email'} eq $data{'email'})) {
                       &Apache::lonnet::logthis("Forgot Password -- token data: ||$data{'username'}|| ||$data{'domain'}|| ||$data{'email'}|| differs from form: ||$env{'form.uname'}|| ||$env{'form.udom'}|| ||$env{'form.email'}||");
                     $r->print(&generic_failure_msg($contact_name,$contact_email));                      $r->print(&generic_failure_msg($contact_name,$contact_email));
                     return;                      return;
                 }                  }
Removed from v.1.39  
changed lines
  Added in v.1.41

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