|
version 1.9, 2006/08/30 16:13:37
|
version 1.11, 2007/01/12 15:44:27
|
|
Line 47 sub init_env {
|
Line 47 sub init_env {
|
| my $cookie; |
my $cookie; |
| if (!$lonid) { return undef; } |
if (!$lonid) { return undef; } |
| |
|
| my $handle=$lonid->value; |
my $handle=&LONCAPA::clean_handle($lonid->value); |
| $handle=~s/\W//g; |
|
| my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
| if ((!-e "$lonidsdir/$handle.id") || ($handle eq '')) { |
if ((!-e "$lonidsdir/$handle.id") || ($handle eq '')) { |
| $r->log_reason("Cookie $handle not valid", $r->filename); |
$r->log_reason("Cookie $handle not valid", $r->filename); |
|
Line 106 sub handler {
|
Line 105 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 ...', |
![[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