version 1.35.2.1, 2019/08/01 15:20:06
|
version 1.35.2.6.2.2, 2022/07/08 15:52:52
|
Line 29
|
Line 29
|
package Apache::switchserver; |
package Apache::switchserver; |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common :remotehost); |
use Apache::lonnet; |
use Apache::lonnet; |
use Digest::MD5 qw(md5_hex); |
use Digest::MD5 qw(md5_hex); |
use CGI::Cookie(); |
use CGI::Cookie(); |
Line 57 sub do_redirect {
|
Line 57 sub do_redirect {
|
my ($r,$url,$only_body,$extra_text) = @_; |
my ($r,$url,$only_body,$extra_text) = @_; |
$r->send_http_header; |
$r->send_http_header; |
my $delay = 0.5; |
my $delay = 0.5; |
if ($only_body) { |
if ($only_body && !$extra_text) { |
$delay = 0; |
$delay = 0; |
} |
} |
my $start_page = |
my $start_page = |
Line 97 sub flush_course_logs {
|
Line 97 sub flush_course_logs {
|
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
|
|
my $handle=&init_env($r); |
my $handle=&init_env($r); |
if (!defined($handle)) { return FORBIDDEN; } |
if (!defined($handle)) { return FORBIDDEN; } |
|
|
Line 111 sub handler {
|
Line 111 sub handler {
|
$env{'user.name'}); |
$env{'user.name'}); |
if (! $env{'form.otherserver'}) { |
if (! $env{'form.otherserver'}) { |
$env{'form.otherserver'} = |
$env{'form.otherserver'} = |
&Apache::lonnet::spareserver(30000,undef,1); |
&Apache::lonnet::spareserver($r,30000,undef,1); |
} |
} |
$switch_to=&Apache::lonnet::hostname($env{'form.otherserver'}); |
$switch_to=&Apache::lonnet::hostname($env{'form.otherserver'}); |
} |
} |
Line 123 sub handler {
|
Line 123 sub handler {
|
if ($Apache::lonnet::protocol{$env{'form.otherserver'}} eq 'https') { |
if ($Apache::lonnet::protocol{$env{'form.otherserver'}} eq 'https') { |
$protocol = $Apache::lonnet::protocol{$env{'form.otherserver'}}; |
$protocol = $Apache::lonnet::protocol{$env{'form.otherserver'}}; |
} |
} |
|
unless ($env{'form.otherserver'} eq $r->dir_config('lonHostID')) { |
|
my $alias = &Apache::lonnet::use_proxy_alias($r,$env{'form.otherserver'}); |
|
$switch_to = $alias if ($alias ne ''); |
|
} |
} |
} |
|
|
if ($env{'user.name'} eq 'public' |
if ($env{'user.name'} eq 'public' |
&& $env{'user.domain'} eq 'public') { |
&& $env{'user.domain'} eq 'public') { |
my $url = $protocol.'://'.$switch_to.$r->uri; |
my $url = $protocol.'://'.$switch_to.$r->uri; |
|
unlink($handle); |
|
#expire the cookie |
|
my $c = new CGI::Cookie(-name => 'lonPubID', |
|
-value => '', |
|
-expires => '-10y',); |
|
$r->header_out('Set-cookie' => $c); |
return &do_redirect($r,$url,1) |
return &do_redirect($r,$url,1) |
} |
} |
|
|
Line 178 sub handler {
|
Line 188 sub handler {
|
} |
} |
|
|
#remove session env, and log event |
#remove session env, and log event |
unlink($handle); |
if (unlink($handle)) { |
|
if ($env{'user.linkedenv'} ne '') { |
|
my $lonidsdir=$r->dir_config('lonIDsDir'); |
|
if (($env{'user.linkedenv'} =~ /^[a-f0-9]+_linked$/) && |
|
(-l "$lonidsdir/$env{'user.linkedenv'}.id") && |
|
(readlink("$lonidsdir/$env{'user.linkedenv'}.id") eq $handle)) { |
|
unlink("$lonidsdir/$env{'user.linkedenv'}.id"); |
|
} |
|
} |
|
} |
my %temp=('switchserver' => $now.':'.$env{'form.otherserver'}, |
my %temp=('switchserver' => $now.':'.$env{'form.otherserver'}, |
$env{'form.role'}); |
$env{'form.role'}); |
&Apache::lonnet::put('email_status',\%temp); |
&Apache::lonnet::put('email_status',\%temp); |
Line 188 sub handler {
|
Line 207 sub handler {
|
} else { |
} else { |
$logmsg .= " (no role)"; |
$logmsg .= " (no role)"; |
} |
} |
$logmsg .= ' '.$ENV{'REMOTE_ADDR'}; |
my $ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP); |
|
$logmsg .= ' '.$ip; |
&Apache::lonnet::log($env{'user.domain'},$env{'user.name'}, |
&Apache::lonnet::log($env{'user.domain'},$env{'user.name'}, |
$env{'user.home'},$logmsg); |
$env{'user.home'},$logmsg); |
|
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
|
|
#expire the cookie |
#expire the cookies |
my $c = new CGI::Cookie(-name => 'lonID', |
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
-value => '', |
foreach my $name (keys(%cookies)) { |
-expires => '-10y',); |
next unless ($name =~ /^lon(|S|Link|Pub)ID$/); |
$r->header_out('Set-cookie' => $c); |
my $c = new CGI::Cookie(-name => $name, |
|
-value => '', |
|
-expires => '-10y',); |
|
$r->headers_out->add('Set-cookie' => $c); |
|
} |
if ($r->header_only) { |
if ($r->header_only) { |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
# -------------------------------------------------------- Menu script and info |
# -------------------------------------------------------- Menu script and info |
|
|
# ---------------------------------------------------------------- Get handover |
# ---------------------------------------------------------------- Get handover |
|
|
my $newcookieid; |
my ($is_balancer,$setcookie,$newcookieid,$otherbalcookie); |
my $only_body = 0; |
my $only_body = 0; |
my ($is_balancer,$posshost,$setcookie) = |
($is_balancer,undef,$setcookie) = |
&Apache::lonnet::check_loadbalancing($env{'user.name'},$env{'user.domain'}); |
&Apache::lonnet::check_loadbalancing($env{'user.name'},$env{'user.domain'},'switchserver'); |
if ($is_balancer && $setcookie && $env{'form.otherserver'}) { |
if ($is_balancer && $setcookie && $env{'form.otherserver'}) { |
|
|
# Set a balancer cookie unless browser already sent LON-CAPA load balancer |
# Set a balancer cookie unless browser already sent LON-CAPA load balancer |
# cookie which points at the target server |
# cookie which points at the target server |
my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r,1); |
my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r,1); |
Line 225 sub handler {
|
Line 249 sub handler {
|
$env{'user.name'},$env{'user.domain'}); |
$env{'user.name'},$env{'user.domain'}); |
} |
} |
} |
} |
|
if ((!$is_balancer) && ($env{'request.balancercookie'})) { |
|
$otherbalcookie = $env{'request.balancercookie'}; |
|
} |
|
|
my %info=('ip' => $ENV{'REMOTE_ADDR'}, |
my %info=('ip' => $ip, |
'domain' => $env{'user.domain'}, |
'domain' => $env{'user.domain'}, |
'username' => $env{'user.name'}, |
'username' => $env{'user.name'}, |
'role' => $env{'form.role'}, |
'role' => $env{'form.role'}, |
Line 234 sub handler {
|
Line 261 sub handler {
|
'balancer' => $is_balancer); |
'balancer' => $is_balancer); |
if ($newcookieid) { |
if ($newcookieid) { |
$info{'balcookie'} = $newcookieid; |
$info{'balcookie'} = $newcookieid; |
|
} elsif ($otherbalcookie) { |
|
$info{'otherbalcookie'} = $otherbalcookie; |
} |
} |
if ($env{'form.origurl'}) { |
if ($env{'form.origurl'}) { |
$info{'origurl'} = $env{'form.origurl'}; |
$info{'origurl'} = $env{'form.origurl'}; |
Line 241 sub handler {
|
Line 270 sub handler {
|
if ($env{'form.symb'}) { |
if ($env{'form.symb'}) { |
$info{'symb'} = $env{'form.symb'}; |
$info{'symb'} = $env{'form.symb'}; |
} |
} |
|
my $ssologoutscript = ''; |
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 (defined($r->dir_config("lonSSOUserLogoutScriptFile_$info{domain}"))) { |
|
if (open(my $fh,'<',$r->dir_config("lonSSOUserLogoutScriptFile_$info{domain}"))) { |
|
$ssologoutscript .= join('',<$fh>); |
|
close($fh); |
|
} |
|
} |
|
if (defined($r->dir_config('lonSSOUserLogoutScriptFile'))) { |
|
if (open(my $fh,'<',$r->dir_config('lonSSOUserLogoutScriptFile'))) { |
|
$ssologoutscript .= join('',<$fh>); |
|
close($fh); |
|
} |
|
} |
} |
} |
if ($env{'request.sso.reloginserver'}) { |
if ($env{'request.sso.reloginserver'}) { |
$info{'sso.reloginserver'} = $env{'request.sso.reloginserver'}; |
$info{'sso.reloginserver'} = $env{'request.sso.reloginserver'}; |
} |
} |
|
if ($env{'request.linkprot'}) { |
|
$info{'linkprot'} = $env{'request.linkprot'}; |
|
foreach my $item ('linkprotuser','linkprotexit') { |
|
if ($env{'request.'.$item}) { |
|
$info{$item} = $env{'request.'.$item}; |
|
} |
|
} |
|
} elsif ($env{'request.linkkey'} ne '') { |
|
$info{'linkkey'} = $env{'request.linkkey'}; |
|
} |
|
if ($env{'request.deeplink.login'}) { |
|
$info{'deeplink.login'} = $env{'request.deeplink.login'}; |
|
} |
my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'}); |
my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'}); |
my $url =$protocol.'://'.$switch_to.'/adm/login?'. |
my $url =$protocol.'://'.$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 |
return &do_redirect($r, $url, $only_body); |
return &do_redirect($r, $url, $only_body, $ssologoutscript); |
} |
} |
|
|
1; |
1; |