|
version 1.18, 2007/11/14 02:54:11
|
version 1.21, 2007/11/15 01:17:16
|
|
Line 92 sub handler {
|
Line 92 sub handler {
|
| |
|
| if ($env{'user.name'} eq 'public' |
if ($env{'user.name'} eq 'public' |
| && $env{'user.domain'} eq 'public') { |
&& $env{'user.domain'} eq 'public') { |
| my $url = 'http://'.$switch_to.'/'.$r->uri; |
my $url = 'http://'.$switch_to.$r->uri; |
| return &do_redirect($r,$url,1) |
return &do_redirect($r,$url,1) |
| } |
} |
| |
|
|
Line 115 sub handler {
|
Line 115 sub handler {
|
| -value => '', |
-value => '', |
| -expires => '-10y',); |
-expires => '-10y',); |
| $r->header_out('Set-cookie' => $c); |
$r->header_out('Set-cookie' => $c); |
| $r->send_http_header; |
|
| return OK if $r->header_only; |
if ($r->header_only) { |
| |
$r->send_http_header; |
| |
return OK; |
| |
} |
| # -------------------------------------------------------- Menu script and info |
# -------------------------------------------------------- Menu script and info |
| |
|
| my $windowinfo= |
my $windowinfo= |
|
Line 138 sub handler {
|
Line 141 sub handler {
|
| my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'}); |
my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'}); |
| my $url ='http://'.$switch_to.'/adm/login?'. |
my $url ='http://'.$switch_to.'/adm/login?'. |
| 'domain='.$env{'user.domain'}. |
'domain='.$env{'user.domain'}. |
| '&username='.$env{'user.name'}. |
'&username='.$env{'user.name'}. |
| '&token='.$token; |
'&token='.$token; |
| # --------------------------------------------------------------- Screen Output |
# --------------------------------------------------------------- Screen Output |
| &Apache::lonnet::flushcourselogs(); |
&Apache::lonnet::flushcourselogs(); |
| return &do_redirect($r,$url,0,$windowinfo); |
return &do_redirect($r,$url,0,$windowinfo); |
![[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