version 1.149, 2013/12/13 02:10:27
|
version 1.150, 2013/12/19 22:50:16
|
Line 264 sub upload_size_allowed {
|
Line 264 sub upload_size_allowed {
|
=item sso_login() |
=item sso_login() |
|
|
handle the case of the single sign on user, at this point $r->user |
handle the case of the single sign on user, at this point $r->user |
will be set and valid now need to find the loncapa user info, and possibly |
will be set and valid; now need to find the loncapa user info, and possibly |
balance them. If $r->user() is set this means either it was either set by |
balance them. If $r->user() is set this means either it was either set by |
SSO or by checkauthen.pm if a valid cookie was found. The latter case can |
SSO or by checkauthen.pm, if a valid cookie was found. The latter case can |
be identified by the third arg ($usename). |
be identified by the third arg ($usename), except when lonacc is called in |
|
an internal redirect to /adm/switchserver (e.g., load-balancing following |
|
successful authentication) -- no cookie set yet. For that particular case |
|
simply skip the call to sso_login(). |
|
|
returns OK if it was SSO and user was handled. |
returns OK if it was SSO and user was handled. |
returns undef if not SSO or no means to handle the user. |
returns undef if not SSO or no means to handle the user. |
Line 419 sub handler {
|
Line 422 sub handler {
|
my %user; |
my %user; |
my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user); |
my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user); |
|
|
my $result = &sso_login($r,$handle,$user{'name'}); |
unless (($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) { |
if (defined($result)) { |
my $result = &sso_login($r,$handle,$user{'name'}); |
return $result; |
if (defined($result)) { |
|
return $result; |
|
} |
} |
} |
|
|
my ($is_balancer,$otherserver); |
my ($is_balancer,$otherserver); |