loncom/auth/lonstatusacc.pm - diff

Return to lonstatusacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.3, 2008/12/22 21:13:19	version 1.4, 2008/12/25 01:52:56
Line 34 use strict;	Line 34 use strict;
use Apache::Constants qw(:common :http :remotehost);	use Apache::Constants qw(:common :http :remotehost);
use Apache::lonnet;	use Apache::lonnet;
use LONCAPA::loncgi;	use LONCAPA::loncgi;
	use LONCAPA::lonauthcgi;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 46 sub handler {	Line 47 sub handler {
return OK;	return OK;
} elsif ($r->uri eq '/adm/test') {	} elsif ($r->uri eq '/adm/test') {
$page = 'showenv';	$page = 'showenv';
if (&LONCAPA::loncgi::can_view($page)) {	if (&LONCAPA::lonauthcgi::can_view($page)) {
return OK;	return OK;
} elsif (&LONCAPA::loncgi::check_ipbased_access($page,$reqhost)) {	} elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page,$reqhost)) {
return OK;	return OK;
} else {	} else {
$Apache::lonnet::env{'user.error.msg'} =	$Apache::lonnet::env{'user.error.msg'} =
Line 81 sub handler {	Line 82 sub handler {
}	}
}	}
}	}
} elsif (&LONCAPA::loncgi::check_ipbased_access($page,$reqhost)) {	} elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page,$reqhost)) {
return OK;	return OK;
} else {	} else {
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 (&LONCAPA::lonauthcgi::can_view($page)) {
return OK;	return OK;
}	}
}	}