version 1.115, 2008/05/14 18:27:30
|
version 1.117, 2008/11/10 13:20:24
|
Line 150 sub get_posted_cgi {
|
Line 150 sub get_posted_cgi {
|
# balance them |
# balance them |
# returns OK if it was a SSO and user was handled |
# returns OK if it was a SSO and user was handled |
# undef if not SSO or no means to hanle the user |
# undef if not SSO or no means to hanle the user |
|
|
sub sso_login { |
sub sso_login { |
my ($r,$handle) = @_; |
my ($r,$handle) = @_; |
|
|
Line 187 sub sso_login {
|
Line 188 sub sso_login {
|
'server' => $r->dir_config('lonHostID'), |
'server' => $r->dir_config('lonHostID'), |
'sso.login' => 1 |
'sso.login' => 1 |
); |
); |
|
if ($r->dir_config("ssodirecturl") == 1) { |
|
$info{'origurl'} = $r->uri; |
|
} |
if (defined($r->dir_config("lonSSOReloginServer"))) { |
if (defined($r->dir_config("lonSSOReloginServer"))) { |
$info{'sso.reloginserver'} = |
$info{'sso.reloginserver'} = |
$r->dir_config('lonSSOReloginServer'); |
$r->dir_config('lonSSOReloginServer'); |
Line 239 sub handler {
|
Line 243 sub handler {
|
|
|
my $result = &sso_login($r,$handle); |
my $result = &sso_login($r,$handle); |
if (defined($result)) { |
if (defined($result)) { |
return $result |
return $result; |
} |
} |
|
|
|
|