|
version 1.3, 2015/05/17 17:34:43
|
version 1.7, 2021/10/07 15:51:16
|
|
Line 74 use LONCAPA qw(:DEFAULT);
|
Line 74 use LONCAPA qw(:DEFAULT);
|
| sub handler { |
sub handler { |
| my $r = shift; |
my $r = shift; |
| my $target = '/adm/sso'; |
my $target = '/adm/sso'; |
| if (($r->user eq '') && ($r->uri() ne $target)) { |
if (&Apache::lonnet::get_saml_landing()) { |
| |
$target = '/adm/login'; |
| |
} |
| |
my $uri = $r->uri; |
| |
if (($r->user eq '') && ($uri ne $target) && ($uri ne '/adm/sso')) { |
| my $lonhost = $Apache::lonnet::perlvar{'lonHostID'}; |
my $lonhost = $Apache::lonnet::perlvar{'lonHostID'}; |
| my $hostname = &Apache::lonnet::hostname($lonhost); |
my $hostname = &Apache::lonnet::hostname($lonhost); |
| 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); |
| |
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 '') { |
| $dest .= '?'.$ENV{'QUERY_STRING'}; |
$dest .= '?'.$ENV{'QUERY_STRING'}; |
| } |
} |
| |
unless (($uri eq '/adm/roles') || ($ENV{'QUERY_STRING'} =~ /origurl=/)) { |
| |
$dest.=(($dest=~/\?/)?'&':'?').'origurl='.$uri; |
| |
} |
| $r->header_out(Location => $dest); |
$r->header_out(Location => $dest); |
| return REDIRECT; |
return REDIRECT; |
| } else { |
} else { |
![[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