loncom/auth/lonshibauth.pm - diff

Return to lonshibauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.3, 2015/05/17 17:34:43	version 1.4, 2021/05/04 18:47:37
Line 80 sub handler {	Line 80 sub handler {
if (!$hostname) { $hostname = $r->hostname(); }	if (!$hostname) { $hostname = $r->hostname(); }
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);
	$hostname = $alias if ($alias ne '');
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 '') {