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

Diff for /loncom/lontrans.pm between versions 1.30 and 1.33

version 1.30, 2021/04/18 02:08:46 version 1.33, 2021/07/17 21:48:27
Line 79  sub handler { Line 79  sub handler {
                         ($remote_ip eq &Apache::lonnet::get_host_ip($lonhost)) ||                          ($remote_ip eq &Apache::lonnet::get_host_ip($lonhost)) ||
                         ($vpnint && &Apache::lonnet::ip_match($remote_ip,$vpnint))) {                          ($vpnint && &Apache::lonnet::ip_match($remote_ip,$vpnint))) {
                     $redirect = $alias;                      $redirect = $alias;
                     if ($r->uri=~m{^/raw/}){                      if (($r->uri=~m{^/raw/}) || ($r->uri=~m{^/adm/dns/(hosts|domain)$})) {
                         my %iphost = &Apache::lonnet::get_iphost();                          my %iphost = &Apache::lonnet::get_iphost();
                         if (exists($iphost{$remote_ip})) {                          if (exists($iphost{$remote_ip})) {
                             undef($redirect);                              undef($redirect);
Line 89  sub handler { Line 89  sub handler {
             }              }
             if ($redirect) {              if ($redirect) {
                 my $uri = $r->uri;                  my $uri = $r->uri;
                   if (($uri eq '/adm/sso') || ($uri eq '/adm/switchserver') ||
                       ($uri =~ m{^/Shibboleth.sso/})) {
                       return DECLINED;
                   }
                 unless ($uri eq '/adm/migrateuser') {                  unless ($uri eq '/adm/migrateuser') {
                     my %user;                      my %user;
                     my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);                      my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);
Line 107  sub handler { Line 111  sub handler {
                     $protocol = 'https';                      $protocol = 'https';
                 }                  }
                 my $querystring = $r->args;                  my $querystring = $r->args;
                   if ($uri =~ m{^(/adm/css/)(.+)(.css)$}) {
                       $uri = $1.&escape($2).$3;
                   }
                 my $location = $protocol.'://'.$redirect.$uri;                  my $location = $protocol.'://'.$redirect.$uri;
                 if ($querystring) {                  if ($querystring) {
                     $location .= "?$querystring";                      $location .= "?$querystring";
Removed from v.1.30  
changed lines
  Added in v.1.33

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