Diff for /loncom/auth/switchserver.pm between versions 1.51 and 1.54

version 1.51, 2020/10/22 19:23:22 version 1.54, 2021/05/03 15:27:43
Line 123  sub handler { Line 123  sub handler {
         if ($Apache::lonnet::protocol{$env{'form.otherserver'}} eq 'https') {          if ($Apache::lonnet::protocol{$env{'form.otherserver'}} eq 'https') {
             $protocol = $Apache::lonnet::protocol{$env{'form.otherserver'}};              $protocol = $Apache::lonnet::protocol{$env{'form.otherserver'}};
         }          }
           unless ($env{'form.otherserver'} eq $r->dir_config('lonHostID')) {
               my $alias = &Apache::lonnet::use_proxy_alias($r,$env{'form.otherserver'});
               $switch_to = $alias if ($alias ne '');
           }
     }      }
   
     if ($env{'user.name'} eq 'public'      if ($env{'user.name'} eq 'public'
Line 211  sub handler { Line 215  sub handler {
     } else {      } else {
         $logmsg .= " (no role)";          $logmsg .= " (no role)";
     }      }
     $logmsg .= ' '.$ENV{'REMOTE_ADDR'};      my $ip = &Apache::lonnet::get_requestor_ip();
       $logmsg .= ' '.$ip;
     &Apache::lonnet::log($env{'user.domain'},$env{'user.name'},      &Apache::lonnet::log($env{'user.domain'},$env{'user.name'},
  $env{'user.home'},$logmsg);   $env{'user.home'},$logmsg);
   
Line 256  sub handler { Line 261  sub handler {
         $otherbalcookie = $env{'request.balancercookie'};          $otherbalcookie = $env{'request.balancercookie'};
     }      }
   
     my %info=('ip'            => $ENV{'REMOTE_ADDR'},      my %info=('ip'            => $ip,
               'domain'        => $env{'user.domain'},                'domain'        => $env{'user.domain'},
               'username'      => $env{'user.name'},                'username'      => $env{'user.name'},
               'home'          => $env{'user.home'},                'home'          => $env{'user.home'},

Removed from v.1.51  
changed lines
  Added in v.1.54


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