loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/switchserver.pm between versions 1.10 and 1.12

version 1.10, 2006/11/23 01:49:41	version 1.12, 2007/03/01 23:14:12
Line 89 sub handler {	Line 89 sub handler {
"Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}");	"Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $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 105 sub handler {	Line 111 sub handler {
if ($env{'request.sso.login'}) {	if ($env{'request.sso.login'}) {
$info{'sso.login'} = $env{'request.sso.login'};	$info{'sso.login'} = $env{'request.sso.login'};
}	}
	if ($env{'request.sso.reloginserver'}) {
	$info{'sso.reloginserver'} = $env{'request.sso.reloginserver'};
	}
my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});	my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});
my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url=http://'.$switch_to.'/adm/login?domain='.$env{'user.domain'}.'&username='.$env{'user.name'}.'&token='.$token.'">';	my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url=http://'.$switch_to.'/adm/login?domain='.$env{'user.domain'}.'&username='.$env{'user.name'}.'&token='.$token.'">';
my $start_page = &Apache::loncommon::start_page('Switching Server ...',	my $start_page = &Apache::loncommon::start_page('Switching Server ...',

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

Removed from v.1.10
changed lines
	Added in v.1.12