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

Diff for /loncom/interface/resetpw.pm between versions 1.34 and 1.37

version 1.34, 2013/07/19 18:24:17 version 1.37, 2016/01/27 00:24:09
Line 116  sub handler { Line 116  sub handler {
         my $authtype = &Apache::lonnet::queryauthenticate($uname,$udom);          my $authtype = &Apache::lonnet::queryauthenticate($uname,$udom);
         if ($authtype =~ /^internal/) {          if ($authtype =~ /^internal/) {
             my $useremail = $env{'form.useremail'};              my $useremail = $env{'form.useremail'};
             if ($useremail !~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) {              my ($blocked,$blocktext) =
                 $output = &invalid_state('baduseremail',$domdesc,                  &Apache::loncommon::blocking_status('passwd',$uname,$udom);
                                          $contact_name,$contact_email);              if ($blocked) {
                   $output = '<p class="LC_warning">'.$blocktext.'</p>'
                             .&display_actions($contact_email,$domdesc);
               } elsif ($useremail !~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) {
                       $output = &invalid_state('baduseremail',$domdesc,
                                                $contact_name,$contact_email);
             } else {              } else {
                 my %userinfo =                   my %userinfo = 
     &Apache::lonnet::get('environment',\@emailtypes,      &Apache::lonnet::get('environment',\@emailtypes,
Line 236  sub send_token { Line 241  sub send_token {
                    .' associated with your LON-CAPA account.')                     .' associated with your LON-CAPA account.')
                .'</p>'                 .'</p>'
                .&display_actions($contact_email,$domdesc);                 .&display_actions($contact_email,$domdesc);
   
         }          }
     } else {      } else {
         $msg .=          $msg .=
Line 311  sub reset_passwd { Line 315  sub reset_passwd {
         ($data{'email'}  =~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) &&           ($data{'email'}  =~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) && 
         ($data{'temppasswd'} =~/^\w+$/)) {          ($data{'temppasswd'} =~/^\w+$/)) {
         my $reqtime = &Apache::lonlocal::locallocaltime($data{'time'});          my $reqtime = &Apache::lonlocal::locallocaltime($data{'time'});
         if ($now - $data{'time'} < 7200) {          my ($blocked,$blocktext) =
               &Apache::loncommon::blocking_status('passwd',$data{'username'},$data{'domain'});
           if ($blocked) {
               $msg = '<p class="LC_warning">'.$blocktext.'</p>';
               return $msg;
           } elsif ($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'})) {                  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);                      $msg = &generic_failure_msg($contact_name,$contact_email);
Line 398  sub generic_failure_msg { Line 407  sub generic_failure_msg {
         '<p class="LC_error">'          '<p class="LC_error">'
        .&mt('A problem occurred when attempting to reset the password for your account.')         .&mt('A problem occurred when attempting to reset the password for your account.')
        .'<br />'         .'<br />'
        .&mt('Please contact the [_1] - ([_2]) for assistance.',         .&mt('Please contact the [_1] ([_2]) for assistance.',
               $contact_name,'<a href="mailto:'.$contact_email.'">'.$contact_email.'</a>')                $contact_name,'<a href="mailto:'.$contact_email.'">'.$contact_email.'</a>')
        .'</p>';         .'</p>';
 }  }
Removed from v.1.34  
changed lines
  Added in v.1.37

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