version 1.50, 2017/02/25 20:00:36
|
version 1.53, 2018/05/01 13:47:53
|
Line 45 use strict;
|
Line 45 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File; |
use Apache::File; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::loncommon; |
use Apache::lonmenu; |
use Apache::lonmenu; |
use CGI::Cookie(); |
use CGI::Cookie(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use LONCAPA qw(:DEFAULT :match); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 98 sub handler {
|
Line 100 sub handler {
|
-value => '', |
-value => '', |
-expires => '-10y',); |
-expires => '-10y',); |
$r->headers_out->add('Set-cookie' => $c); |
$r->headers_out->add('Set-cookie' => $c); |
if (($name eq 'lonID') && ($env{'user.linkeenv'})) { |
if (($name eq 'lonID') && ($env{'user.linkedenv'})) { |
my $other = new CGI::Cookie(-name => 'lonLinkID', |
my $other = new CGI::Cookie(-name => 'lonLinkID', |
-value => '', |
-value => '', |
-expires => '-10y',); |
-expires => '-10y',); |
Line 120 sub handler {
|
Line 122 sub handler {
|
$switch); |
$switch); |
} else { |
} else { |
my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
my $headextra; |
my ($headextra,$ssofile); |
if ($env{'request.sso.login'} |
if ($env{'request.sso.login'}) { |
&& defined($r->dir_config("lonSSOUserLogoutHeadFile_$domain"))) { |
my $londocroot = $r->dir_config('lonDocRoot'); |
if (open(my $fh,$r->dir_config("lonSSOUserLogoutHeadFile_$domain"))) { |
if ($domain =~ /^$match_domain$/) { |
$headextra = join('',<$fh>); |
if (defined($r->dir_config("lonSSOUserLogoutHeadFile_$domain"))) { |
close($fh); |
$ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config("lonSSOUserLogoutHeadFile_$domain")); |
} |
if ($ssofile eq $r->dir_config("lonSSOUserLogoutHeadFile_$domain")) { |
} |
if ($ssofile =~ /^\Q$londocroot\E/) { |
if ($env{'request.sso.login'} |
if (open(my $fh,'<',$ssofile)) { |
&& defined($r->dir_config('lonSSOUserLogoutHeadFile'))) { |
$headextra = join('',<$fh>); |
if (open(my $fh,$r->dir_config('lonSSOUserLogoutHeadFile'))) { |
close($fh); |
$headextra.= join('',<$fh>); |
} |
close($fh); |
} |
|
} |
|
} |
|
} |
|
if (defined($r->dir_config('lonSSOUserLogoutHeadFile'))) { |
|
$ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config('lonSSOUserLogoutHeadFile')); |
|
if ($ssofile eq $r->dir_config('lonSSOUserLogoutHeadFile')) { |
|
if ($ssofile =~ /^\Q$londocroot\E/) { |
|
if (open(my $fh,'<',$ssofile)) { |
|
$headextra.= join('',<$fh>); |
|
close($fh); |
|
} |
|
} |
|
} |
} |
} |
} |
} |
$start_page=&Apache::loncommon::start_page('Logged Out',$headextra, |
$start_page=&Apache::loncommon::start_page('Logged Out',$headextra, |
Line 195 Due to security reasons in new web brows
|
Line 210 Due to security reasons in new web brows
|
} |
} |
if ($env{'request.sso.login'} |
if ($env{'request.sso.login'} |
&& defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) { |
&& defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) { |
if (open(my $fh,$r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) { |
if (open(my $fh,'<',$r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) { |
$relogmessage.= join('',<$fh>); |
$relogmessage.= join('',<$fh>); |
close($fh); |
close($fh); |
} |
} |
} |
} |
if ($env{'request.sso.login'} |
if ($env{'request.sso.login'} |
&& defined($r->dir_config('lonSSOUserLogoutMessageFile'))) { |
&& defined($r->dir_config('lonSSOUserLogoutMessageFile'))) { |
if (open(my $fh,$r->dir_config('lonSSOUserLogoutMessageFile'))) { |
if (open(my $fh,'<',$r->dir_config('lonSSOUserLogoutMessageFile'))) { |
$relogmessage.= join('',<$fh>); |
$relogmessage.= join('',<$fh>); |
close($fh); |
close($fh); |
} |
} |