|
version 1.9, 2021/10/07 19:24:25
|
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') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonshibauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth