loncom/auth/lonlogout.pm - diff

Return to lonlogout.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.23, 2007/01/12 15:44:27	version 1.25, 2007/03/01 23:14:12
Line 66 sub handler {	Line 66 sub handler {
$env{'user.name'},	$env{'user.name'},
$env{'user.home'},	$env{'user.home'},
"Logout $ENV{'REMOTE_ADDR'}");	"Logout $ENV{'REMOTE_ADDR'}");

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');

	#expire the cookie
	my $c = new CGI::Cookie(-name => 'lonID',
	-value => '',
	-expires => '-10y',);
	$r->header_out('Set-cookie' => $c);

$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
Line 93 sub handler {	Line 101 sub handler {
'or' => 'or');	'or' => 'or');
my $relogin_server;	my $relogin_server;
if ($env{'request.sso.reloginserver'}) {	if ($env{'request.sso.reloginserver'}) {
$relogin_server = 'http://'.$env{'request.sso.reloginserver'};	$relogin_server = $env{'request.sso.reloginserver'};
}	}
my $login_url = $relogin_server.'/adm/'.	my $login_url = $relogin_server.'/adm/'.
($env{'request.sso.login'} ? 'roles': 'login');	($env{'request.sso.login'} ? 'roles': 'login');