loncom/interface/resetpw.pm - diff

Return to resetpw.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40, 2017/08/21 15:25:55	version 1.41, 2017/10/02 16:40:18
Line 452 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;
}	}