|
version 1.47, 2020/02/09 04:43:20
|
version 1.48, 2020/12/18 15:23:02
|
|
Line 482 sub send_token {
|
Line 482 sub send_token {
|
| |
|
| my $now = time; |
my $now = time; |
| my $temppasswd = &create_passwd(); |
my $temppasswd = &create_passwd(); |
| my %info = ('ip' => $ENV{'REMOTE_ADDR'}, |
my $ip = &Apache::lonnet::get_requestor_ip(); |
| |
my %info = ('ip' => $ip, |
| 'time' => $now, |
'time' => $now, |
| 'domain' => $udom, |
'domain' => $udom, |
| 'username' => $uname, |
'username' => $uname, |
|
Line 723 sub reset_passwd {
|
Line 724 sub reset_passwd {
|
| my $now = &Apache::lonlocal::locallocaltime(time); |
my $now = &Apache::lonlocal::locallocaltime(time); |
| my $domdesc = |
my $domdesc = |
| &Apache::lonnet::domain($data{'domain'},'description'); |
&Apache::lonnet::domain($data{'domain'},'description'); |
| 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 $ip = &Apache::lonnet::get_requestor_ip(); |
| |
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,$ip,$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; |
my $confirm_msg; |
![[BACK]](/icons/back.gif){kind=icon}
Return to resetpw.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface