version 1.101, 2006/09/19 20:36:27
|
version 1.104, 2007/01/08 15:54:23
|
Line 36 use Apache::lonnet;
|
Line 36 use Apache::lonnet;
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::restrictedaccess(); |
use Apache::restrictedaccess(); |
|
use Apache::blockedaccess(); |
use CGI::Cookie(); |
use CGI::Cookie(); |
use Fcntl qw(:flock); |
use Fcntl qw(:flock); |
use LONCAPA; |
use LONCAPA; |
Line 183 sub sso_login {
|
Line 184 sub sso_login {
|
} |
} |
return OK; |
return OK; |
} elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) { |
} elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) { |
|
$r->subprocess_env->set('SSOUserUnknown' => $user); |
|
$r->subprocess_env->set('SSOUserDomain' => $domain); |
$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); |
$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); |
$r->set_handlers('PerlHandler'=> undef); |
$r->set_handlers('PerlHandler'=> undef); |
return OK; |
return OK; |
Line 200 sub handler {
|
Line 203 sub handler {
|
|
|
my $handle; |
my $handle; |
if ($lonid) { |
if ($lonid) { |
$handle=$lonid->value; |
$handle=&LONCAPA::clean_handle($lonid->value); |
$handle=~s/\W//g; |
|
} |
} |
|
|
my $result = &sso_login($r,$lonid,$handle); |
my $result = &sso_login($r,$lonid,$handle); |
Line 257 sub handler {
|
Line 259 sub handler {
|
&Apache::restrictedaccess::setup_handler($r); |
&Apache::restrictedaccess::setup_handler($r); |
return OK; |
return OK; |
} |
} |
|
if ($access eq 'B') { |
|
&Apache::blockedaccess::setup_handler($r); |
|
return OK; |
|
} |
if (($access ne '2') && ($access ne 'F')) { |
if (($access ne '2') && ($access ne 'F')) { |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |