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

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

version 1.33, 2021/07/17 21:48:27 version 1.35, 2021/10/06 19:38:29
Line 67  sub handler { Line 67  sub handler {
             my ($redirect,$remote_ip);              my ($redirect,$remote_ip);
             if ($hdrhost eq $alias) {              if ($hdrhost eq $alias) {
                 $remote_ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP);                  $remote_ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP);
                 if ($vpnext && &Apache::lonnet::ip_match($remote_ip,$vpnext)) {                  if (($vpnext && &Apache::lonnet::ip_match($remote_ip,$vpnext)) &&
                       ($r->uri !~ m{^/adm/(lti|launch)/})) {
                     $redirect = $hostname;                      $redirect = $hostname;
                     if ($redirect eq $hdrhost) {                      if ($redirect eq $hdrhost) {
                         undef($redirect);                          undef($redirect);
Line 77  sub handler { Line 78  sub handler {
                 $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') ||
                         ($remote_ip eq &Apache::lonnet::get_host_ip($lonhost)) ||                          ($remote_ip eq &Apache::lonnet::get_host_ip($lonhost)) ||
                           ($r->uri=~m{^/adm/(lti|launch)/}) ||
                         ($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/}) || ($r->uri=~m{^/adm/dns/(hosts|domain)$})) {                      if (($r->uri=~m{^/raw/}) || ($r->uri=~m{^/adm/dns/})) {
                         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 97  sub handler { Line 99  sub handler {
                     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);
                     if (($handle) && ($user{'name'} ne '') && ($user{'domain'} ne '')) {                      if (($handle) && ($user{'name'} ne '') && ($user{'domain'} ne '')) {
                         my $token = &get_token($r,$remote_ip,\%user);                          unless (($user{'name'} eq 'public') && ($user{'domain'} eq 'public')) {
                         unless ($token eq '') {                              my $token = &get_token($r,$remote_ip,\%user);
                             $r->internal_redirect("/adm/migrateuser?token=$token");                              unless ($token eq '') {
                             $r->set_handlers('PerlHandler'=> undef);                                  $r->internal_redirect("/adm/migrateuser?token=$token");
                             return DECLINED;                                  $r->set_handlers('PerlHandler'=> undef);
                                   return DECLINED;
                               }
                         }                          }
                     }                      }
                 }                  }
Removed from v.1.33  
changed lines
  Added in v.1.35

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