loncom/auth/lonstatusacc.pm - diff

Return to lonstatusacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.1, 2008/11/28 19:38:11	version 1.2, 2008/11/30 14:47:11
Line 41 sub handler {	Line 41 sub handler {
my $page = 'serverstatus';	my $page = 'serverstatus';
if ($r->uri eq '/adm/test') {	if ($r->uri eq '/adm/test') {
$page = 'showenv';	$page = 'showenv';
if (&LONCAPA::loncgi::check_cookie_and_load_env()) {	if (&LONCAPA::loncgi::check_cookie_and_load_env($r)) {
if (&LONCAPA::loncgi::can_view($page)) {	if (&LONCAPA::loncgi::can_view($page)) {
return OK;	return OK;
} elsif (&LONCAPA::loncgi::check_ipbased_access($page,$reqhost)) {	} elsif (&LONCAPA::loncgi::check_ipbased_access($page,$reqhost)) {
Line 73 sub handler {	Line 73 sub handler {
} elsif (&LONCAPA::loncgi::check_ipbased_access($page,$reqhost)) {	} elsif (&LONCAPA::loncgi::check_ipbased_access($page,$reqhost)) {
return OK;	return OK;
} else {	} else {
if (&LONCAPA::loncgi::check_cookie_and_load_env($page)) {	if (&LONCAPA::loncgi::check_cookie_and_load_env($r)) {
if (&LONCAPA::loncgi::can_view($page)) {	if (&LONCAPA::loncgi::can_view($page)) {
return OK;	return OK;
}	}