|
version 1.5, 2005/11/29 20:59:37
|
version 1.6, 2005/12/28 16:46:47
|
|
Line 104 sub handler {
|
Line 104 sub handler {
|
| 'role' => $env{'form.role'}, |
'role' => $env{'form.role'}, |
| 'server' => $r->dir_config('lonHostID')); |
'server' => $r->dir_config('lonHostID')); |
| 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/migrateuser?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 $bodytag=&Apache::loncommon::bodytag('Switching Server ...'); |
my $bodytag=&Apache::loncommon::bodytag('Switching Server ...'); |
| # --------------------------------------------------------------- Screen Output |
# --------------------------------------------------------------- Screen Output |
| $r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
![[BACK]](/icons/back.gif){kind=icon}
Return to switchserver.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth