loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.7, 2006/04/05 22:39:55	version 1.9, 2006/08/30 16:13:37
Line 103 sub handler {	Line 103 sub handler {
'username' => $env{'user.name'},	'username' => $env{'user.name'},
'role' => $env{'form.role'},	'role' => $env{'form.role'},
'server' => $r->dir_config('lonHostID'));	'server' => $r->dir_config('lonHostID'));
	if ($env{'request.sso.login'}) {
	$info{'sso.login'} = $env{'request.sso.login'};
	}
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 ...',
$switch);	$switch,
	{'no_inline_link' => 1,});
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
# --------------------------------------------------------------- Screen Output	# --------------------------------------------------------------- Screen Output
$r->print($start_page.$windowinfo.$end_page);	$r->print($start_page.$windowinfo.$end_page);