loncom/auth/lonshibauth.pm - diff

Return to lonshibauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.8, 2021/10/07 18:52:03	version 1.10, 2021/10/10 23:59:19
Line 90 sub handler {	Line 90 sub handler {
$hostname = $alias;	$hostname = $alias;
}	}
my $dest = $protocol.'://'.$hostname.$target;	my $dest = $protocol.'://'.$hostname.$target;
$r->subprocess_env;	if ($r->args ne '') {
if ($ENV{'QUERY_STRING'} ne '') {	$dest .= (($dest=~/\?/)?'&':'?').$r->args;
$dest .= '?'.$ENV{'QUERY_STRING'};
}	}
unless (($uri eq '/adm/roles') \|\| ($uri eq '/adm/logout')) {	unless (($uri eq '/adm/roles') \|\| ($uri eq '/adm/logout')) {
if ($target eq '/adm/login') {	if ($target eq '/adm/login') {
Line 100 sub handler {	Line 99 sub handler {
$dest.=(($dest=~/\?/)?'&':'?').'firsturl='.$uri;	$dest.=(($dest=~/\?/)?'&':'?').'firsturl='.$uri;
}	}
} else {	} else {
unless ($ENV{'QUERY_STRING'} =~ /origurl=/)) {	unless ($ENV{'QUERY_STRING'} =~ /origurl=/) {
$dest.=(($dest=~/\?/)?'&':'?').'origurl='.$uri;	$dest.=(($dest=~/\?/)?'&':'?').'origurl='.$uri;
}	}
}	}