loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.19, 2007/11/14 02:55:07	version 1.21, 2007/11/15 01:17:16
Line 115 sub handler {	Line 115 sub handler {
-value => '',	-value => '',
-expires => '-10y',);	-expires => '-10y',);
$r->header_out('Set-cookie' => $c);	$r->header_out('Set-cookie' => $c);
$r->send_http_header;
return OK if $r->header_only;	if ($r->header_only) {
	$r->send_http_header;
	return OK;
	}
# -------------------------------------------------------- Menu script and info	# -------------------------------------------------------- Menu script and info

my $windowinfo=	my $windowinfo=
Line 138 sub handler {	Line 141 sub handler {
my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});	my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});
my $url ='http://'.$switch_to.'/adm/login?'.	my $url ='http://'.$switch_to.'/adm/login?'.
'domain='.$env{'user.domain'}.	'domain='.$env{'user.domain'}.
'&username='.$env{'user.name'}.	'&username='.$env{'user.name'}.
'&token='.$token;	'&token='.$token;
# --------------------------------------------------------------- Screen Output	# --------------------------------------------------------------- Screen Output
&Apache::lonnet::flushcourselogs();	&Apache::lonnet::flushcourselogs();
return &do_redirect($r,$url,0,$windowinfo);	return &do_redirect($r,$url,0,$windowinfo);