loncom/auth/checkauthen.pm - diff

Return to checkauthen.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.11, 2007/04/11 21:36:58	version 1.13, 2012/04/18 18:55:06
Line 61 sub handler {	Line 61 sub handler {
}	}
}	}

my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));	my $handle = &Apache::lonnet::check_for_valid_session($r);
my $lonid=$cookies{'lonID'};	if ($handle eq '') {
my $handle;
if ($lonid) {
$handle=&LONCAPA::clean_handle($lonid->value);
$handle = $r->dir_config('lonIDsDir')."/$handle.id";
} else {
$handle = $env{'user.environment'};	$handle = $env{'user.environment'};
}	}

if (($handle ne '') && (-e $handle)) {	if ($handle ne '') {
return OK;	return OK;
}	}
	if (($fail == FORBIDDEN) && ($r->uri eq '/adm/email')) {
	$env{'form.firsturl'} = $r->uri;
	}
return $fail;	return $fail;
}	}