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

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

version 1.40, 2010/03/16 19:55:31 version 1.43, 2011/10/22 23:53:46
Line 101  sub handler { Line 101  sub handler {
    $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,});
                             '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 129  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"));
Removed from v.1.40  
changed lines
  Added in v.1.43

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