version 1.26, 2010/11/29 19:15:14
|
version 1.28, 2012/10/02 18:08:12
|
Line 66 sub handler {
|
Line 66 sub handler {
|
return OK; |
return OK; |
} |
} |
my $contact_name = &mt('LON-CAPA helpdesk'); |
my $contact_name = &mt('LON-CAPA helpdesk'); |
my $contact_email = $r->dir_config('lonSupportEMail'); |
my $origmail = $r->dir_config('lonSupportEMail'); |
my $server = $r->dir_config('lonHostID'); |
my $server = $r->dir_config('lonHostID'); |
my $defdom = &Apache::lonnet::default_login_domain(); |
my $defdom = &Apache::lonnet::default_login_domain(); |
|
my $contacts = |
|
&Apache::loncommon::build_recipient_list(undef,'helpdeskmail', |
|
$defdom,$origmail); |
|
my ($contact_email) = split(',',$contacts); |
my $handle = &Apache::lonnet::check_for_valid_session($r); |
my $handle = &Apache::lonnet::check_for_valid_session($r); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
if ($handle ne '') { |
if ($handle ne '') { |
Line 224 sub send_token {
|
Line 228 sub send_token {
|
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 />The link included in the message will be valid for the next <b>two</b> hours."); |
} else { |
} else { |
$msg .= &mt("An error occurred when sending a message to the e-mail address associated with your LON-CAPA account. Please contact the [_1] ([_2]) for assistance.",$contact_name,$contact_email); |
$msg .= |
|
'<p class="LC_warning">' |
|
.&mt("An error occurred when sending a message to the e-mail address" |
|
." associated with your LON-CAPA account." |
|
." Please contact the [_1] ([_2]) for assistance." |
|
,$contact_name,$contact_email) |
|
.'</p>'; |
} |
} |
} else { |
} else { |
$msg .= &mt("An error occurred creating a token required for the password reset process. Please contact the [_1] ([_2]) for assistance.",$contact_name,$contact_email); |
$msg .= |
|
'<p class="LC_warning">' |
|
.&mt("An error occurred creating a token required for the" |
|
." password reset process." |
|
." Please contact the [_1] ([_2]) for assistance." |
|
,$contact_name,$contact_email) |
|
.'</p>'; |
} |
} |
return $msg; |
return $msg; |
} |
} |
Line 313 sub reset_passwd {
|
Line 329 sub reset_passwd {
|
my $result = &send_mail($domdesc,$data{'email'},$mailmsg, |
my $result = &send_mail($domdesc,$data{'email'},$mailmsg, |
$contact_name,$contact_email); |
$contact_name,$contact_email); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$msg .= &mt('An e-mail confirming setting of the password for your LON-CAPA account has been sent to [_1].',$data{'email'}); |
$msg .= |
|
'<p class="LC_success">' |
|
.&mt('An e-mail confirming setting of the password' |
|
.' for your LON-CAPA account has been sent to [_1].' |
|
,$data{'email'}) |
|
.'</p>'; |
} else { |
} else { |
$msg .= &mt('An error occurred when sending e-mail to [_1] confirming setting of your new password.',$data{'email'}); |
$msg .= |
|
'<p class="LC_error">' |
|
.&mt('An error occurred when sending e-mail to [_1]' |
|
.' confirming setting of your new password.' |
|
,$data{'email'}) |
|
.'</p>'; |
} |
} |
$msg .= '<br /><br />' |
$msg .= '<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') { |
} elsif ($change_failed eq 'invalid_client') { |
my $homeserver = &Apache::lonnet::homeserver($data{'username'},$data{'domain'}); |
my $homeserver = &Apache::lonnet::homeserver($data{'username'},$data{'domain'}); |
Line 333 sub reset_passwd {
|
Line 359 sub reset_passwd {
|
$opentag = '<a href="'.$url.'">'; |
$opentag = '<a href="'.$url.'">'; |
$closetag = '</a>'; |
$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); |
$msg .= |
|
'<p class="LC_warning">' |
|
.&mt('A problem occurred when attempting to reset' |
|
.' the password for your account.' |
|
.' Please try again from your [_1]home server[_2].' |
|
,$opentag,$closetag) |
|
.'</p>'; |
} |
} |
} else { |
} else { |
$msg .= &generic_failure_msg($contact_name,$contact_email); |
$msg .= &generic_failure_msg($contact_name,$contact_email); |
Line 344 sub reset_passwd {
|
Line 376 sub reset_passwd {
|
&Apache::lonpreferences::passwordchanger($r,'','reset_by_email',$token); |
&Apache::lonpreferences::passwordchanger($r,'','reset_by_email',$token); |
} |
} |
} else { |
} else { |
$msg = &mt('Sorry, the token generated when you requested a password reset has expired. Please submit a [_1]new request[_2], and follow the link to the web page included in the new e-mail that will be sent to you, to allow you to enter a new password.' |
$msg = |
,'<a href="/adm/resetpw">','</a>'); |
'<p class="LC_warning">' |
|
.&mt('Sorry, the token generated when you requested a password reset has expired. Please submit a [_1]new request[_2], and follow the link to the web page included in the new e-mail that will be sent to you, to allow you to enter a new password.' |
|
,'<a href="/adm/resetpw">','</a>') |
|
.'</p>'; |
} |
} |
} else { |
} else { |
$msg .= &mt('Sorry, the URL generated when you requested reset of your password contained incomplete information. Please submit a [_1]new request[_2] for a password reset, and use the new URL that will be sent to your e-mail account to complete the process.' |
$msg .= |
,'<a href="/adm/resetpw">','</a>'); |
'<p class="LC_warning">' |
|
.&mt('Sorry, the URL generated when you requested reset of your password contained incomplete information. Please submit a [_1]new request[_2] for a password reset, and use the new URL that will be sent to your e-mail account to complete the process.' |
|
,'<a href="/adm/resetpw">','</a>') |
|
.'</p>'; |
} |
} |
return $msg; |
return $msg; |
} |
} |
|
|
sub generic_failure_msg { |
sub generic_failure_msg { |
my ($contact_name,$contact_email) = @_; |
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.', |
return |
$contact_name,'<a href="mailto:'.$contact_email.'">'.$contact_email.'</a>'); |
'<p class="LC_warning">' |
|
.&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>') |
|
.'</p>'; |
} |
} |
|
|
sub create_passwd { |
sub create_passwd { |