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

Diff for /loncom/auth/lonlogout.pm between versions 1.55 and 1.58

version 1.55, 2018/07/04 16:58:19 version 1.58, 2022/05/24 16:23:04
Line 82  sub handler { Line 82  sub handler {
         &Apache::lonlocal::get_language_handle($r);          &Apache::lonlocal::get_language_handle($r);
     }      }
     my %temp=('logout' => time);      my %temp=('logout' => time);
       my $ip = &Apache::lonnet::get_requestor_ip();
     &Apache::lonnet::put('email_status',\%temp);      &Apache::lonnet::put('email_status',\%temp);
     &Apache::lonnet::log($env{'user.domain'},      &Apache::lonnet::log($env{'user.domain'},
  $env{'user.name'},   $env{'user.name'},
  $env{'user.home'},   $env{'user.home'},
  "Logout $ENV{'REMOTE_ADDR'}");   "Logout $ip");
   
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
   
Line 185  sub handler { Line 186  sub handler {
     ($env{'request.sso.login'} ? 'roles': 'login?domain='.$domain);      ($env{'request.sso.login'} ? 'roles': 'login?domain='.$domain);
             }              }
             $relogmessage.='<p>'.&mt('You have been successfully logged out.');              $relogmessage.='<p>'.&mt('You have been successfully logged out.');
             unless (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {              unless ((($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) ||
                       (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self'))) {
                 $relogmessage.=' '.&mt('You can [_1]close this window[_2] now.',                  $relogmessage.=' '.&mt('You can [_1]close this window[_2] now.',
                                        '',''); # ,'<a href="javascript:self.close();">','</a>');                                         '',''); # ,'<a href="javascript:self.close();">','</a>');
             }              }
Line 227  $start_page Line 229  $start_page
 $relogmessage  $relogmessage
 $end_page  $end_page
 ENDDOCUMENT  ENDDOCUMENT
       if ($env{'request.balancercookie'}) {
           my ($balancer,$cookie) = split(/:/,$env{'request.balancercookie'});
           if ((&Apache::lonnet::hostname($balancer)) && ($cookie =~ /^[a-f0-9]{32}$/)) {
               $cookie = $env{'user.domain'}.'_'.$env{'user.name'}.'_'.$cookie;
               &Apache::lonnet::delbalcookie($cookie,$balancer);
           }
       }
     $r->register_cleanup(\&flush_course_logs);      $r->register_cleanup(\&flush_course_logs);
     return OK;       return OK; 
 }  }
Removed from v.1.55  
changed lines
  Added in v.1.58

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