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

Diff for /loncom/auth/lonacc.pm between versions 1.187 and 1.190

version 1.187, 2021/02/09 22:17:40 version 1.190, 2021/05/04 18:47:37
Line 349  sub sso_login { Line 349  sub sso_login {
                     my $lowest_load;                      my $lowest_load;
                     ($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($domain);                      ($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($domain);
                     if ($lowest_load > 100) {                      if ($lowest_load > 100) {
                         $otherserver = &Apache::lonnet::spareserver($lowest_load,$lowest_load,1,$domain);                          $otherserver = &Apache::lonnet::spareserver($r,$lowest_load,$lowest_load,1,$domain);
                     }                      }
                     if ($otherserver ne '') {                      if ($otherserver ne '') {
                         my @hosts = &Apache::lonnet::current_machine_ids();                          my @hosts = &Apache::lonnet::current_machine_ids();
Line 559  sub handler { Line 559  sub handler {
             my $hostname = $r->hostname();              my $hostname = $r->hostname();
             my $lonhost = &Apache::lonnet::host_from_dns($hostname);              my $lonhost = &Apache::lonnet::host_from_dns($hostname);
             if ($lonhost) {              if ($lonhost) {
                 my $actual = &Apache::lonnet::absolute_url($hostname);                  my $actual = &Apache::lonnet::absolute_url($hostname,1,1);
                 my $exphostname = &Apache::lonnet::hostname($lonhost);                  my $exphostname = &Apache::lonnet::hostname($lonhost);
                 my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname;                  my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname;
                 unless ($actual eq $expected) {                  unless ($actual eq $expected) {
Line 875  sub handler { Line 875  sub handler {
                             }                              }
                             if ($invalidsymb) {                              if ($invalidsymb) {
                                 if ($requrl eq '/adm/navmaps') {                                  if ($requrl eq '/adm/navmaps') {
                                     undef(symb);                                      undef($symb);
                                 } else {                                  } else {
                                     $r->log_reason('Invalid symb for '.$requrl.': '.$symb);                                      $r->log_reason('Invalid symb for '.$requrl.': '.$symb);
                                     $env{'user.error.msg'}=                                      $env{'user.error.msg'}=
Removed from v.1.187  
changed lines
  Added in v.1.190

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