loncom/auth/lonlogout.pm - diff

Return to lonlogout.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogout.pm between versions 1.45.2.3.2.1 and 1.51

version 1.45.2.3.2.1, 2017/11/03 18:55:16	version 1.51, 2017/08/18 18:13:33
Line 49 use Apache::loncommon;	Line 49 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);	use LONCAPA qw(:DEFAULT :match);

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 72 sub handler {	Line 72 sub handler {
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
unlink("$lonidsdir/$handle.id");	unlink("$lonidsdir/$handle.id");
	if ($env{'user.linkedenv'} ne '') {
	my $lonhost = $r->dir_config('lonHostID');
	if ((-l $env{'user.linkedenv'}) &&
	(readlink($env{'user.linkedenv'}) eq "$lonidsdir/$handle.id")) {
	unlink($env{'user.linkedenv'});
	}
	}
if (!$Apache::lonlocal::lh) {	if (!$Apache::lonlocal::lh) {
&Apache::lonlocal::get_language_handle($r);	&Apache::lonlocal::get_language_handle($r);
}	}
Line 85 sub handler {	Line 92 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');

#expire the cookie	#expire the cookie
my $c = new CGI::Cookie(-name => 'lonID',	my $name = 'lonID';
	if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) {
	$name = 'lonPubID';
	}
	my $c = new CGI::Cookie(-name => $name,
-value => '',	-value => '',
-expires => '-10y',);	-expires => '-10y',);
$r->header_out('Set-cookie' => $c);	$r->headers_out->add('Set-cookie' => $c);
	if (($name eq 'lonID') && ($env{'user.linkeenv'})) {
	my $other = new CGI::Cookie(-name => 'lonLinkID',
	-value => '',
	-expires => '-10y',);
	$r->headers_out->add('Set-cookie' => $other);
	}
$r->send_http_header;	$r->send_http_header;
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();
# ---------------------------------------------------------------- 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 136 sub handler {	Line 151 sub handler {
}	}
}	}
$start_page=&Apache::loncommon::start_page('Logged Out',$headextra,	$start_page=&Apache::loncommon::start_page('Logged Out',$headextra,
{'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>';
Line 213 Due to security reasons in new web brows	Line 227 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

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

Removed from v.1.45.2.3.2.1
changed lines
	Added in v.1.51