loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.2, 2005/10/24 21:35:16	version 1.3, 2005/10/25 19:14:32
Line 87 sub handler {	Line 87 sub handler {
$windowinfo.=&Apache::lonnavmaps::close();	$windowinfo.=&Apache::lonnavmaps::close();
# ---------------------------------------------------------------- Get handover	# ---------------------------------------------------------------- Get handover

my $token = &Apache::lonnet::reply('tmpput:'.join('&',$ENV{'REMOTE_ADDR'},$env{'user.domain'},$env{'user.name'},$env{'form.role'}),$env{'form.otherserver'});	my %info=('ip' => $ENV{'REMOTE_ADDR'},
	'domain' => $env{'user.domain'},
	'username' => $env{'user.name'},
	'role' => $env{'form.role'},
	'server' => $r->dir_config('lonHostID'));
	my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});
my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url=http://'.$switch_to.'/adm/migrateuser?token='.$token.'">';	my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url=http://'.$switch_to.'/adm/migrateuser?token='.$token.'">';
my $bodytag=&Apache::loncommon::bodytag('Switching Server ...');	my $bodytag=&Apache::loncommon::bodytag('Switching Server ...');
# --------------------------------------------------------------- Screen Output	# --------------------------------------------------------------- Screen Output