version 1.18, 2007/11/14 02:54:11
|
version 1.24, 2010/03/16 19:55:31
|
Line 73 sub handler {
|
Line 73 sub handler {
|
if (!defined($handle)) { return FORBIDDEN; } |
if (!defined($handle)) { return FORBIDDEN; } |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['otherserver','role']); |
['otherserver','role','origurl','symb']); |
|
|
my $switch_to=&Apache::lonnet::hostname($env{'form.otherserver'}); |
my $switch_to=&Apache::lonnet::hostname($env{'form.otherserver'}); |
if (! $env{'form.otherserver'}) { |
if (! $env{'form.otherserver'}) { |
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= |
|
&Apache::lonmenu::close(). |
|
&Apache::lonnavmaps::close(); |
|
# ---------------------------------------------------------------- Get handover |
# ---------------------------------------------------------------- Get handover |
|
|
my %info=('ip' => $ENV{'REMOTE_ADDR'}, |
my %info=('ip' => $ENV{'REMOTE_ADDR'}, |
Line 129 sub handler {
|
Line 129 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{'form.origurl'}) { |
|
$info{'origurl'} = $env{'form.origurl'}; |
|
} |
|
if ($env{'form.symb'}) { |
|
$info{'symb'} = $env{'form.symb'}; |
|
} |
if ($env{'request.sso.login'}) { |
if ($env{'request.sso.login'}) { |
$info{'sso.login'} = $env{'request.sso.login'}; |
$info{'sso.login'} = $env{'request.sso.login'}; |
} |
} |
Line 138 sub handler {
|
Line 144 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); |
} |
} |
|
|
1; |
1; |