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", |