loncom/auth/lonshibauth.pm - diff

Return to lonshibauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.6, 2021/09/21 22:54:26	version 1.7, 2021/10/07 15:51:16
Line 85 sub handler {	Line 85 sub handler {
my $protocol = $Apache::lonnet::protocol{$lonhost};	my $protocol = $Apache::lonnet::protocol{$lonhost};
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);
$hostname = $alias if ($alias ne '');	if (($alias ne '') &&
	(&Apache::lonnet::alias_shibboleth($lonhost))) {
	$hostname = $alias;
	}
my $dest = $protocol.'://'.$hostname.$target;	my $dest = $protocol.'://'.$hostname.$target;
$r->subprocess_env;	$r->subprocess_env;
if ($ENV{'QUERY_STRING'} ne '') {	if ($ENV{'QUERY_STRING'} ne '') {