loncom/auth/lonstatusacc.pm - diff

Return to lonstatusacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.2, 2008/11/30 14:47:11	version 1.3, 2008/12/22 21:13:19
Line 31	Line 31
package Apache::lonstatusacc;	package Apache::lonstatusacc;

use strict;	use strict;
use Apache::Constants qw(:common :remotehost);	use Apache::Constants qw(:common :http :remotehost);
use Apache::lonnet;	use Apache::lonnet;
use LONCAPA::loncgi;	use LONCAPA::loncgi;

Line 39 sub handler {	Line 39 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 = 'serverstatus';
if ($r->uri eq '/adm/test') {	if (($r->uri eq '/adm/domainstatus') \|\|
$page = 'showenv';	($r->uri eq '/adm/test')) {
if (&LONCAPA::loncgi::check_cookie_and_load_env($r)) {	if (&LONCAPA::loncgi::check_cookie_and_load_env($r)) {
if (&LONCAPA::loncgi::can_view($page)) {	if ($r->uri eq '/adm/domainstatus') {
return OK;
} elsif (&LONCAPA::loncgi::check_ipbased_access($page,$reqhost)) {
return OK;	return OK;
	} elsif ($r->uri eq '/adm/test') {
	$page = 'showenv';
	if (&LONCAPA::loncgi::can_view($page)) {
	return OK;
	} elsif (&LONCAPA::loncgi::check_ipbased_access($page,$reqhost)) {
	return OK;
	} else {
	$Apache::lonnet::env{'user.error.msg'} =
	$r->uri.":bre:1:1:Access Denied";
	return HTTP_NOT_ACCEPTABLE;
	}
}	}
	} else {
	return FORBIDDEN;
}	}
} elsif ($r->uri ne '/server-status') {	} elsif ($r->uri ne '/server-status') {
$page = 'lonstatus';	$page = 'lonstatus';