Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/switchserver.pm between versions 1.46 and 1.52

version 1.46, 2018/12/08 15:16:03	version 1.52, 2020/12/18 15:23:03
Line 56 sub init_env {	Line 56 sub init_env {
sub do_redirect {	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;
	if ($only_body) {
	$delay = 0;
	}
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Switching Server ...',undef,	&Apache::loncommon::start_page('Switching Server ...',undef,
{'redirect' => [0.5,$url],	{'redirect' => [$delay,$url],
'only_body' => $only_body,});	'only_body' => $only_body,});
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
$r->print($start_page.$extra_text.$end_page);	$r->print($start_page.$extra_text.$end_page);
Line 207 sub handler {	Line 211 sub handler {
} else {	} else {
$logmsg .= " (no role)";	$logmsg .= " (no role)";
}	}
$logmsg .= ' '.$ENV{'REMOTE_ADDR'};	my $ip = &Apache::lonnet::get_requestor_ip();
	$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);

Line 227 sub handler {	Line 232 sub handler {
return OK;	return OK;
}	}
# -------------------------------------------------------- Menu script and info	# -------------------------------------------------------- Menu script and info

# ---------------------------------------------------------------- Get handover	# ---------------------------------------------------------------- Get handover

my $newcookieid;	my ($is_balancer,$setcookie,$newcookieid,$otherbalcookie,$offloadto,$dom_balancers);
my ($is_balancer,$posshost,$setcookie,$offloadto,$dom_balancers) =	my $only_body = 0;
&Apache::lonnet::check_loadbalancing($env{'user.name'},$env{'user.domain'});	($is_balancer,undef,$setcookie,$offloadto,$dom_balancers) =
	&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);

unless (($found_server eq $env{'form.otherserver'}) &&	if (($found_server eq $env{'form.otherserver'}) &&
($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) {	($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) {
	$only_body = 1;
	} else {
$newcookieid = &balancer_cookieid($r,$env{'form.otherserver'},	$newcookieid = &balancer_cookieid($r,$env{'form.otherserver'},
$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' => $ENV{'REMOTE_ADDR'},
'domain' => $env{'user.domain'},	'domain' => $env{'user.domain'},
Line 267 sub handler {	Line 278 sub handler {
}	}
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 280 sub handler {	Line 293 sub handler {
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'};
	}
	if ($env{'request.deeplink.login'}) {
	$info{'deeplink.login'} = $env{'request.deeplink.login'};
	if ($env{'request.linkkey'}) {
	$info{'linkkey'} = $env{'request.linkkey'};
	}
	}
if ($env{'request.lti.login'}) {	if ($env{'request.lti.login'}) {
$info{'lti.login'} = $env{'request.lti.login'};	$info{'lti.login'} = $env{'request.lti.login'};
}	}
Line 319 sub handler {	Line 341 sub handler {
'&username='.$env{'user.name'}.	'&username='.$env{'user.name'}.
'&token='.$token;	'&token='.$token;
# --------------------------------------------------------------- Screen Output	# --------------------------------------------------------------- Screen Output
return &do_redirect($r, $url, 0);	return &do_redirect($r, $url, $only_body);
}	}

1;	1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.46
changed lines
	Added in v.1.52