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

Diff for /loncom/lontrans.pm between versions 1.35 and 1.36

version 1.35, 2021/10/06 19:38:29 version 1.36, 2021/10/08 14:36:51
Line 70  sub handler { Line 70  sub handler {
                 if (($vpnext && &Apache::lonnet::ip_match($remote_ip,$vpnext)) &&                  if (($vpnext && &Apache::lonnet::ip_match($remote_ip,$vpnext)) &&
                     ($r->uri !~ m{^/adm/(lti|launch)/})) {                      ($r->uri !~ m{^/adm/(lti|launch)/})) {
                     $redirect = $hostname;                      $redirect = $hostname;
                     if ($redirect eq $hdrhost) {                  }
                   if ($r->uri eq '/adm/sso') {
                       if (&Apache::lonnet::alias_shibboleth($lonhost)) {
                         undef($redirect);                          undef($redirect);
                       } else {
                           $redirect = $hostname;
                     }                      }
                 }                  }
                   if ($redirect eq $hdrhost) {
                       undef($redirect);
                   }
             } elsif ($hdrhost eq $hostname) {              } elsif ($hdrhost eq $hostname) {
                 $remote_ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP,1);                  $remote_ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP,1);
                 unless (($remote_ip eq '127.0.0.1') || ($remote_ip eq '::1') ||                  unless (($remote_ip eq '127.0.0.1') || ($remote_ip eq '::1') ||
Line 86  sub handler { Line 93  sub handler {
                         if (exists($iphost{$remote_ip})) {                          if (exists($iphost{$remote_ip})) {
                             undef($redirect);                              undef($redirect);
                         }                          }
                       } elsif ($r->uri eq '/adm/sso') {
                           unless (&Apache::lonnet::alias_shibboleth($lonhost)) {
                               undef($redirect);
                           }
                     }                      }
                 }                  }
             }              }
             if ($redirect) {              if ($redirect) {
                 my $uri = $r->uri;                  my $uri = $r->uri;
                 if (($uri eq '/adm/sso') || ($uri eq '/adm/switchserver') ||                  if (($uri eq '/adm/switchserver') || ($uri =~ m{^/Shibboleth.sso/})) {
                     ($uri =~ m{^/Shibboleth.sso/})) {  
                     return DECLINED;                      return DECLINED;
                 }                  }
                 unless ($uri eq '/adm/migrateuser') {                  unless ($uri eq '/adm/migrateuser') {
Removed from v.1.35  
changed lines
  Added in v.1.36

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