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'; |