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.11 and 1.16

version 1.11, 2003/09/17 23:50:18	version 1.16, 2006/04/05 22:25:44
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# (Cookie Based Access Handler
# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11,
# 01/06,01/13 Gerd Kortemeyer)
# 05/31,11/29,12/29 Gerd Kortemeyer

package Apache::lonlogout;	package Apache::lonlogout;

Line 71 sub handler {	Line 67 sub handler {
$sessionhash{'user.name'},	$sessionhash{'user.name'},
$sessionhash{'user.home'},	$sessionhash{'user.home'},
"Logout $ENV{'REMOTE_ADDR'}");	"Logout $ENV{'REMOTE_ADDR'}");
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$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();	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='';
my $bodytag='';	my $bodytag='';
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'}.'">';
$bodytag=&Apache::loncommon::bodytag('Switching Server ...');	$start_page=&Apache::loncommon::start_page('Switching Server ...',
	$switch);
} else {	} else {
$bodytag=&Apache::loncommon::bodytag('Logged Out');	$start_page=&Apache::loncommon::start_page('Logged Out');
my %lt=&Apache::lonlocal::texthash('gb' => 'Goodbye',	my %lt=&Apache::lonlocal::texthash('gb' => 'Goodbye',
'cw' => 'close this window',	'cw' => 'close this window',
'li' => 'log in again',	'li' => 'log in again',
Line 96 sub handler {	Line 94 sub handler {
$relogmessage=(<<ENDRELOG);	$relogmessage=(<<ENDRELOG);
<h1>$lt{'gb'}!</h1>	<h1>$lt{'gb'}!</h1>
$lt{'pe'} <a href="javascript:self.close();">$lt{'cw'}</a> $lt{'or'}	$lt{'pe'} <a href="javascript:self.close();">$lt{'cw'}</a> $lt{'or'}
<a href="/adm/login">$lt{'li'}</a>.	<a href="/adm/login?domain=$sessionhash{'user.domain'}">$lt{'li'}</a>.
ENDRELOG	ENDRELOG
}	}
	$end_page=&Apache::loncommon::end_page();
# --------------------------------------------------------------- Screen Output	# --------------------------------------------------------------- Screen Output
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	$start_page
<head><title>The LearningOnline Network with CAPA Logout</title>
$switch
</head>
$bodytag
$windowinfo	$windowinfo
$relogmessage	$relogmessage
</body>	$end_page
</html>
ENDDOCUMENT	ENDDOCUMENT
&Apache::lonnet::flushcourselogs();	&Apache::lonnet::flushcourselogs();
return OK;	return OK;

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

Removed from v.1.11
changed lines
	Added in v.1.16