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