version 1.39, 2010/03/10 21:25:29
|
version 1.43, 2011/10/22 23:53:46
|
Line 89 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::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 102 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 130 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 150 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 |