version 1.39, 2016/10/30 01:45:31
|
version 1.41, 2017/10/02 16:40:18
|
Line 96 sub handler {
|
Line 96 sub handler {
|
if ($udom) { |
if ($udom) { |
$domdesc = &Apache::lonnet::domain($udom,'description'); |
$domdesc = &Apache::lonnet::domain($udom,'description'); |
if ($domdesc) { |
if ($domdesc) { |
|
$otherinst = 1; |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
my %servers = &Apache::lonnet::internet_dom_servers($udom); |
my %servers = &Apache::lonnet::internet_dom_servers($udom); |
unless (exists($servers{$server})) { |
foreach my $server (keys(%servers)) { |
$otherinst = 1; |
if (grep(/^\Q$server\E$/,@ids)) { |
|
$otherinst = 0; |
|
last; |
|
} |
} |
} |
} |
} |
} |
} |
Line 447 sub reset_passwd {
|
Line 452 sub reset_passwd {
|
return; |
return; |
} elsif ($now - $data{'time'} < 7200) { |
} elsif ($now - $data{'time'} < 7200) { |
if ($env{'form.action'} eq 'verify_and_change_pass') { |
if ($env{'form.action'} eq 'verify_and_change_pass') { |
|
$env{'form.uname'} =~ s/^\s+|\s+$//g; |
|
$env{'form.udom'} =~ s/^\s+|\s+$//g; |
|
$env{'form.email'} =~ s/^\s+|\s+$//g; |
unless (($env{'form.uname'} eq $data{'username'}) && ($env{'form.udom'} eq $data{'domain'}) && ($env{'form.email'} eq $data{'email'})) { |
unless (($env{'form.uname'} eq $data{'username'}) && ($env{'form.udom'} eq $data{'domain'}) && ($env{'form.email'} eq $data{'email'})) { |
|
&Apache::lonnet::logthis("Forgot Password -- token data: ||$data{'username'}|| ||$data{'domain'}|| ||$data{'email'}|| differs from form: ||$env{'form.uname'}|| ||$env{'form.udom'}|| ||$env{'form.email'}||"); |
$r->print(&generic_failure_msg($contact_name,$contact_email)); |
$r->print(&generic_failure_msg($contact_name,$contact_email)); |
return; |
return; |
} |
} |