loncom/auth/lonstatusacc.pm - diff

Return to lonstatusacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.4, 2008/12/25 01:52:56	version 1.6, 2009/01/15 21:01:37
Line 39 use LONCAPA::lonauthcgi;	Line 39 use LONCAPA::lonauthcgi;
sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP);	my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP);
my $page = 'serverstatus';	my $page = 'server-status';
if (($r->uri eq '/adm/domainstatus') \|\|	if (($r->uri eq '/adm/domainstatus') \|\|
($r->uri eq '/adm/test')) {	($r->uri eq '/adm/test')) {
if (&LONCAPA::loncgi::check_cookie_and_load_env($r)) {	if (&LONCAPA::loncgi::check_cookie_and_load_env($r)) {
Line 82 sub handler {	Line 82 sub handler {
}	}
}	}
}	}
} elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page,$reqhost)) {	}
	if (&LONCAPA::lonauthcgi::check_ipbased_access($page,$reqhost)) {
return OK;	return OK;
} else {	}
if (&LONCAPA::loncgi::check_cookie_and_load_env($r)) {	if (&LONCAPA::loncgi::check_cookie_and_load_env($r)) {
if (&LONCAPA::lonauthcgi::can_view($page)) {	if (&LONCAPA::lonauthcgi::can_view($page)) {
return OK;	return OK;
}
}	}
}	}
$r->log_reason("Invalid request for server status from $reqhost",	$r->log_reason("Invalid request for server status from $reqhost",