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

Diff for /loncom/auth/lonlogout.pm between versions 1.35 and 1.43

version 1.35, 2008/11/20 15:19:22 version 1.43, 2011/10/22 23:53:46
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
   
   =head1 NAME
   
   Apache::lonlogout
   
   =head1 SYNOPSIS
   
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   
   =cut
   
 package Apache::lonlogout;  package Apache::lonlogout;
   
 use strict;  use strict;
Line 76  sub handler { Line 89  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
   
     my $windowinfo=&Apache::lonmenu::close();  
     $windowinfo.=&Apache::lonnavmaps::close();  
 # ---------------------------------------------------------------- Get handover  # ---------------------------------------------------------------- Get handover
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']);
     my $switch='';      my $switch='';
Line 85  sub handler { Line 96  sub handler {
     my $relogmessage='';      my $relogmessage='';
     if ($env{'form.handover'}) {      if ($env{'form.handover'}) {
  $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.   $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.
     $env{'form.handover'}.'">';      $env{'form.handover'}.'" />';
  $start_page=&Apache::loncommon::start_page('Switching Server ...',   $start_page=&Apache::loncommon::start_page('Switching Server ...',
    $switch);     $switch);
     } else {      } else {
  $start_page=&Apache::loncommon::start_page('Logged Out',undef,   $start_page=&Apache::loncommon::start_page('Logged Out',undef,
    {'no_inline_link' => 1,});                             {'no_nav_bar'     => 1,});
   
         $relogmessage.='<h1>'.&mt('Goodbye').'</h1>'          $relogmessage.='<h1>'.&mt('Goodbye').'</h1>'
                       .'<p>'.&mt('Thank you for using LON-CAPA.').'</p>';                        .'<p>'.&mt('Thank you for using LON-CAPA.').'</p>';
   
           my $domain = $env{'user.domain'};
  if (!$env{'request.sso.norelogin'}) {   if (!$env{'request.sso.norelogin'}) {
     my $relogin_server;      my ($relogin_server,$login_url);
     if ($env{'request.sso.reloginserver'}) {      if ($env{'request.sso.reloginserver'}) {
  $relogin_server = $env{'request.sso.reloginserver'};   $relogin_server = $env{'request.sso.reloginserver'};
     }      } else {
     my $login_url = $relogin_server.'/adm/'.                   my %domdefaults = &Apache::lonnet::get_domain_defaults($domain);
  ($env{'request.sso.login'} ? 'roles': 'login');                   if ($domdefaults{'portal_def'}) {
                        $login_url = $domdefaults{'portal_def'};
                    } else {
                        my $checkloginvia = 1;
                        my ($lonhost,$server,$path) = 
                            &Apache::lonnet::choose_server($domain,$checkloginvia);
                        if ($server && $lonhost) {
                            $login_url = $Apache::lonnet::protocol{$lonhost}.
                                         '://'.$server.$path;
                            if ($path eq '/adm/login' && $domain ne '') {
                                $login_url .= '?domain='.$domain;
                            }
                        }
                    }
               }
               if ($login_url eq '') {
           $login_url = $relogin_server.'/adm/'.
       ($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.').' '
                           .&mt('You can [_1]close this window[_2] now.'                            .&mt('You can [_1]close this window[_2] now.'
                               ,'','') # ,'<a href="javascript:self.close();">','</a>')                                ,'','') # ,'<a href="javascript:self.close();">','</a>')
Line 117  Due to security reasons in new web brows Line 146  Due to security reasons in new web brows
   
 =cut  =cut
             $relogmessage.='<p>'.&mt('[_1]Log in again[_2]'              $relogmessage.='<p>'.&mt('[_1]Log in again[_2]'
                               ,'<a href="'.$login_url.'?domain='.$env{'user.domain'}.'">','</a>')                                ,'<a href="'.$login_url.'">','</a>')
                           .'</p>';                            .'</p>';
         }          }
  my $domain = $env{'user.domain'};  
         if ($env{'request.sso.login'}          if ($env{'request.sso.login'}
     && defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {      && defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {
     open(my $fh,$r->dir_config("lonSSOUserLogoutMessageFile_$domain"));      open(my $fh,$r->dir_config("lonSSOUserLogoutMessageFile_$domain"));
Line 137  Due to security reasons in new web brows Line 165  Due to security reasons in new web brows
 # --------------------------------------------------------------- Screen Output  # --------------------------------------------------------------- Screen Output
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 $start_page  $start_page
 $windowinfo  
 $relogmessage  $relogmessage
 $end_page  $end_page
 ENDDOCUMENT  ENDDOCUMENT
Line 154  sub flush_course_logs { Line 181  sub flush_course_logs {
 __END__  __END__
   
   
 =head1 NAME  
   
 Apache::lonlogout  
   
 =head1 SYNOPSIS  
   
   
 This is part of the LearningOnline Network with CAPA project  
 described at http://www.lon-capa.org.  
   
 =head1 HANDLER SUBROUTINE  
   
   
 =cut  
   
   
   
   
Removed from v.1.35  
changed lines
  Added in v.1.43

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