loncom/auth/lonshibauth.pm - diff

Return to lonshibauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.13, 2021/12/06 03:31:54	version 1.16, 2022/06/30 21:04:13
Line 234 sub handler {	Line 234 sub handler {
unless ($protocol eq 'https') { $protocol = 'http'; }	unless ($protocol eq 'https') { $protocol = 'http'; }
my $alias = &Apache::lonnet::use_proxy_alias($r,$lonhost);	my $alias = &Apache::lonnet::use_proxy_alias($r,$lonhost);
if (($alias ne '') &&	if (($alias ne '') &&
(&Apache::lonnet::alias_shibboleth($lonhost))) {	(&Apache::lonnet::alias_sso($lonhost))) {
$hostname = $alias;	$hostname = $alias;
}	}
my $dest = $protocol.'://'.$hostname.$target;	my $dest = $protocol.'://'.$hostname.$target;
Line 293 sub set_token {	Line 293 sub set_token {
&Apache::lonacc::get_posted_cgi($r,['linkkey']);	&Apache::lonacc::get_posted_cgi($r,['linkkey']);
}	}
}	}
	unless (($r->is_initial_req()) \|\| ($env{'form.ltoken'}) \|\|
	($env{'form.linkkey'})) {
	return;
	}
}	}
my $extras;	my $extras;
foreach my $name (@names) {	foreach my $name (@names) {
Line 302 sub set_token {	Line 306 sub set_token {
&Apache::lonnet::tmpdel($env{'form.ltoken'});	&Apache::lonnet::tmpdel($env{'form.ltoken'});
if ($info{'linkprot'}) {	if ($info{'linkprot'}) {
$extras .= '&linkprot='.&escape($info{'linkprot'});	$extras .= '&linkprot='.&escape($info{'linkprot'});
	foreach my $item ('linkprotuser','linkprotexit') {
	if ($info{$item} ne '') {
	$extras .= '&'.$item.'='.&escape($info{$item});
	}
	}
last;	last;
}	}
} else {	} else {