version 1.31, 2013/02/05 15:45:18
|
version 1.36, 2013/08/17 00:34:29
|
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 229 sub send_token {
|
Line 225 sub send_token {
|
my $result = &send_mail($domdesc,$email,$mailmsg,$contact_name, |
my $result = &send_mail($domdesc,$email,$mailmsg,$contact_name, |
$contact_email); |
$contact_email); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$msg .= &mt("An e-mail sent to the e-mail address associated with your LON-CAPA account includes the web address for the link you should use to complete the reset process.<br /><br />The link included in the message will be valid for the next <b>two</b> hours."); |
$msg .= |
|
&mt('An e-mail sent to the e-mail address associated with your LON-CAPA account includes the web address for the link you should use to complete the reset process.') |
|
.'<br /><br />' |
|
.&mt('The link included in the message will be valid for the next [_1]two[_2] hours.','<b>','</b>'); |
} else { |
} else { |
$msg .= |
$msg .= |
'<p class="LC_error">' |
'<p class="LC_error">' |
Line 237 sub send_token {
|
Line 236 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 328 sub reset_passwd {
|
Line 326 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 398 sub generic_failure_msg {
|
Line 397 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>'; |
} |
} |