version 1.126, 2009/07/23 17:40:29
|
version 1.127, 2009/07/23 18:45:39
|
Line 281 sub sso_login {
|
Line 281 sub sso_login {
|
my $query = $r->args; |
my $query = $r->args; |
my %form; |
my %form; |
if ($query) { |
if ($query) { |
foreach my $pair (split(/&/,$query)) { |
my @items = ('role','symb'); |
my ($name, $value) = split(/=/,$pair); |
&Apache::loncommon::get_unprocessed_cgi($query,\@items); |
$name = &unescape($name); |
foreach my $item (@items) { |
if (($name eq 'role') || ($name eq 'symb')) { |
if (defined($env{'form.'.$item})) { |
$value =~ tr/+/ /; |
$form{$item} = $env{'form.'.$item}; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
$form{$name} = $value; |
|
} |
} |
} |
} |
} |
} |
Line 299 sub sso_login {
|
Line 297 sub sso_login {
|
if ($r->dir_config("lonBalancer") eq 'yes') { |
if ($r->dir_config("lonBalancer") eq 'yes') { |
# login but immeaditly go to switch server to find us a new |
# login but immeaditly go to switch server to find us a new |
# machine |
# machine |
&Apache::lonauth::success($r,$user,$domain,$home,'noredirect','',\%form); |
&Apache::lonauth::success($r,$user,$domain,$home,'noredirect'); |
$env{'request.sso.login'} = 1; |
$env{'request.sso.login'} = 1; |
if (defined($r->dir_config("lonSSOReloginServer"))) { |
if (defined($r->dir_config("lonSSOReloginServer"))) { |
$env{'request.sso.reloginserver'} = |
$env{'request.sso.reloginserver'} = |