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