version 1.30, 2013/02/05 15:33:36
|
version 1.33, 2013/07/19 16:17:07
|
Line 91 sub handler {
|
Line 91 sub handler {
|
my $udom = $env{'form.udom'}; |
my $udom = $env{'form.udom'}; |
my $token = $env{'form.token'}; |
my $token = $env{'form.token'}; |
my $brcrum = []; |
my $brcrum = []; |
my $bread_crumbs_component = 'Forgotten Password'; |
|
if ($token) { |
if ($token) { |
push (@{$brcrum}, |
push (@{$brcrum}, |
{href => '/adm/resetpw', |
{href => '/adm/resetpw', |
text => 'Update Password'}); |
text => 'Update Password'}); |
|
|
$bread_crumbs_component = 'Reset Password'; |
|
} else { |
} else { |
push (@{$brcrum}, |
push (@{$brcrum}, |
{href => '/adm/resetpw', |
{href => '/adm/resetpw', |
Line 108 sub handler {
|
Line 105 sub handler {
|
text => 'Result'}); |
text => 'Result'}); |
} |
} |
} |
} |
my $args = {bread_crumbs => $brcrum, |
my $args = {bread_crumbs => $brcrum}; |
bread_crumbs_component => $bread_crumbs_component}; |
|
$r->print(&Apache::loncommon::start_page('Reset password','',$args)); |
$r->print(&Apache::loncommon::start_page('Reset password','',$args)); |
$r->print('<h3>'.&mt('Reset forgotten LON-CAPA password').'</h3>'); |
$r->print('<h2>'.&mt('Reset forgotten LON-CAPA password').'</h2>'); |
my $output; |
my $output; |
if ($token) { |
if ($token) { |
$output = &reset_passwd($r,$token,$contact_name,$contact_email); |
$output = &reset_passwd($r,$token,$contact_name,$contact_email); |
Line 177 sub handler {
|
Line 173 sub handler {
|
sub get_uname { |
sub get_uname { |
my ($defdom) = @_; |
my ($defdom) = @_; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
unam => 'username', |
unam => 'LON-CAPA username', |
udom => 'domain', |
udom => 'LON-CAPA domain', |
uemail => 'E-mail address in LON-CAPA', |
uemail => 'E-mail address in LON-CAPA', |
proc => 'Proceed'); |
proc => 'Proceed'); |
|
|
Line 190 sub get_uname {
|
Line 186 sub get_uname {
|
.'</ul>'; |
.'</ul>'; |
$msg .= '<form name="forgotpw" method="post" action="/adm/resetpw">'. |
$msg .= '<form name="forgotpw" method="post" action="/adm/resetpw">'. |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::row_title('LON-CAPA '.$lt{'unam'}). |
&Apache::lonhtmlcommon::row_title($lt{'unam'}). |
'<input type="text" name="uname" size="20" />'. |
'<input type="text" name="uname" size="20" />'. |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_title('LON-CAPA '.$lt{'udom'}). |
&Apache::lonhtmlcommon::row_title($lt{'udom'}). |
&Apache::loncommon::select_dom_form($defdom,'udom'). |
&Apache::loncommon::select_dom_form($defdom,'udom'). |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_title($lt{'uemail'}). |
&Apache::lonhtmlcommon::row_title($lt{'uemail'}). |
Line 328 sub reset_passwd {
|
Line 324 sub reset_passwd {
|
my $mailmsg = &mt('The password for your LON-CAPA account in the [_1] domain was changed [_2] from IP address: [_3]. If you did not perform this change or authorize it, please contact the [_4] ([_5]).',$domdesc,$now,$ENV{'REMOTE_ADDR'},$contact_name,$contact_email)."\n"; |
my $mailmsg = &mt('The password for your LON-CAPA account in the [_1] domain was changed [_2] from IP address: [_3]. If you did not perform this change or authorize it, please contact the [_4] ([_5]).',$domdesc,$now,$ENV{'REMOTE_ADDR'},$contact_name,$contact_email)."\n"; |
my $result = &send_mail($domdesc,$data{'email'},$mailmsg, |
my $result = &send_mail($domdesc,$data{'email'},$mailmsg, |
$contact_name,$contact_email); |
$contact_name,$contact_email); |
|
my $confirm_msg; |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$msg .= |
$confirm_msg = |
'<p class="LC_success">' |
&Apache::lonhtmlcommon::confirm_success( |
.&mt('An e-mail confirming setting of the password' |
&mt('An e-mail confirming setting of the password' |
.' for your LON-CAPA account has been sent to [_1].' |
.' for your LON-CAPA account has been sent to [_1].' |
,$data{'email'}) |
,'<span class="LC_filename">'.$data{'email'}.'</span>')); |
.'</p>'; |
|
} else { |
} else { |
$msg .= |
$confirm_msg = |
'<p class="LC_error">' |
&Apache::lonhtmlcommon::confirm_success( |
.&mt('An error occurred when sending e-mail to [_1]' |
&mt('An error occurred when sending e-mail to [_1]' |
.' confirming setting of your new password.' |
.' confirming setting of your new password.' |
,$data{'email'}) |
,'<span class="LC_filename">'.$data{'email'}.'</span>'),1); |
.'</p>'; |
|
} |
} |
$msg .= '<br />' |
$msg .= |
.'<a href="/adm/login">'.&mt('Go to the login page').'</a>.'; |
&Apache::loncommon::confirmwrapper($confirm_msg) |
|
.&Apache::lonhtmlcommon::actionbox([ |
|
'<a href="/adm/login">'.&mt('Go to the login page').'</a>']); |
} elsif ($change_failed eq 'invalid_client') { |
} elsif ($change_failed eq 'invalid_client') { |
my $homeserver = &Apache::lonnet::homeserver($data{'username'},$data{'domain'}); |
my $homeserver = &Apache::lonnet::homeserver($data{'username'},$data{'domain'}); |
if ($homeserver eq 'no_host') { |
if ($homeserver eq 'no_host') { |
Line 438 sub display_actions {
|
Line 435 sub display_actions {
|
'<p>' |
'<p>' |
.&mt('You may wish to send an e-mail to the' |
.&mt('You may wish to send an e-mail to the' |
.' server administrator: [_1] for the [_2] domain.', |
.' server administrator: [_1] for the [_2] domain.', |
'<i>'.$Apache::lonnet::perlvar{'AdminEmail'}.'</i>', |
'<i>'.$Apache::lonnet::perlvar{'AdmEMail'}.'</i>', |
'<i>'.$domdesc.'</i>') |
'<i>'.$domdesc.'</i>') |
.'</p>'; |
.'</p>'; |
} |
} |