[BACK]Return to lonshibauth.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonshibauth.pm between versions 1.3 and 1.8

version 1.3, 2015/05/17 17:34:43 version 1.8, 2021/10/07 18:52:03
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') || ($uri eq '/adm/logout')) {
               if ($target eq '/adm/login') {
                   unless ($ENV{'QUERY_STRING'} =~ /firsturl=/) {
                       $dest.=(($dest=~/\?/)?'&':'?').'firsturl='.$uri;
                   }
               } else {
                   unless ($ENV{'QUERY_STRING'} =~ /origurl=/)) {
                       $dest.=(($dest=~/\?/)?'&':'?').'origurl='.$uri;
                   }
               }
           }
         $r->header_out(Location => $dest);          $r->header_out(Location => $dest);
         return REDIRECT;          return REDIRECT;
     } else {      } else {
Removed from v.1.3  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>