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

Diff for /loncom/interface/resetpw.pm between versions 1.17 and 1.20

version 1.17, 2009/04/29 16:57:29 version 1.20, 2009/10/08 19:54:37
Line 46  sub handler { Line 46  sub handler {
     my $contact_name = &mt('LON-CAPA helpdesk');      my $contact_name = &mt('LON-CAPA helpdesk');
     my $contact_email =  $r->dir_config('lonSupportEMail');      my $contact_email =  $r->dir_config('lonSupportEMail');
     my $server = $r->dir_config('lonHostID');      my $server = $r->dir_config('lonHostID');
     my $defdom = $r->dir_config('lonDefDomain');      my $defdom = &Apache::lonnet::default_login_domain();
     &Apache::lonacc::get_posted_cgi($r);      &Apache::lonacc::get_posted_cgi($r);
     &Apache::lonlocal::get_language_handle($r);      &Apache::lonlocal::get_language_handle($r);
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token']);
Line 76  sub handler { Line 76  sub handler {
                 my %userinfo =                   my %userinfo = 
     &Apache::lonnet::get('environment',\@emailtypes,      &Apache::lonnet::get('environment',\@emailtypes,
  $udom,$uname);   $udom,$uname);
                 my $email = '';                  my @allemails;
                 my $emailtarget;  
                 foreach my $type (@emailtypes) {                  foreach my $type (@emailtypes) {
                     $email = $userinfo{$type};                      my $email = $userinfo{$type};
                     if ($email =~ /[^\@]+\@[^\@]+/) {                      my @items;
                         $emailtarget = $type;                       if ($email =~ /,/) {
                         last;                          @items = split(',',$userinfo{$type});
                       } else {
                           @items = ($email);
                       }
                       foreach my $item (@items) {
                           if ($item =~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) {
                               unless(grep(/^\Q$item\E$/,@allemails)) { 
                                   push(@allemails,$item);
                               }
                           }
                     }                      }
                 }                  }
                 if ($email =~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) {                  if (@allemails > 0) {
                     if ($useremail eq $email) {                      if (grep(/^\Q$useremail\E$/,@allemails)) {
                         $output = &send_token($uname,$udom,$email,$server,                          $output = &send_token($uname,$udom,$useremail,$server,
                                               $domdesc,$contact_name,                                                $domdesc,$contact_name,
                                               $contact_email);                                                $contact_email);
                     } else {                      } else {
Line 263  sub reset_passwd { Line 271  sub reset_passwd {
                     }                      }
                     $msg .= '<br /><br />'                      $msg .= '<br /><br />'
                            .'<a href="/adm/login">'.&mt('Go to the login page').'</a>.';                             .'<a href="/adm/login">'.&mt('Go to the login page').'</a>.';
                   } elsif ($change_failed eq 'invalid_client') {
                       my $homeserver = &Apache::lonnet::homeserver($data{'username'},$data{'domain'});
                       if ($homeserver eq 'no_host') {
                           $msg .= &generic_failure_msg($contact_name,$contact_email);
                       } else {
                           my $protocol = $Apache::lonnet::protocol{$homeserver};
                           $protocol = 'http' if ($protocol ne 'https');
                           my $url = $protocol.'://'.&Apache::lonnet::hostname($homeserver).
                                     '/adm/resetpw';
                           my ($opentag,$closetag);
                           if ($url) {
                              $opentag = '<a href="'.$url.'">';
                              $closetag = '</a>';
                           }
                           $msg .= &mt('A problem occurred when attempting to reset the password for your account. Please try again from your [_1]home server[_2].',$opentag,$closetag);
                       }
                 } else {                  } else {
                     $msg .= &mt('A problem occurred when attempting to reset the password for your account. Please contact the [_1] - ([_2]) for assistance.'                      $msg .= &generic_failure_msg($contact_name,$contact_email);
                                ,$contact_name  
                                ,'<a href="mailto:'.$contact_email.'">'.$contact_email.'</a>');  
                 }                  }
             } else {              } else {
                 $r->print(&mt('The token included in an e-mail sent to you [_1] has been verified, so you may now proceed to reset the password for your LON-CAPA account.',$reqtime).'<br /><br />');                  $r->print(&mt('The token included in an e-mail sent to you [_1] has been verified, so you may now proceed to reset the password for your LON-CAPA account.',$reqtime).'<br /><br />');
Line 284  sub reset_passwd { Line 306  sub reset_passwd {
     return $msg;      return $msg;
 }  }
   
   sub generic_failure_msg {
       my ($contact_name,$contact_email) = @_;
       return &mt('A problem occurred when attempting to reset the password for your account. Please contact the [_1] - ([_2]) for assistance.',
                 $contact_name,'<a href="mailto:'.$contact_email.'">'.$contact_email.'</a>');
   }
   
 sub create_passwd {  sub create_passwd {
     my $passwd = '';      my $passwd = '';
     my @letts = ("a".."z");      my @letts = ("a".."z");
Removed from v.1.17  
changed lines
  Added in v.1.20

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