loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

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'} =