loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/switchserver.pm between versions 1.35 and 1.35.2.4

version 1.35, 2016/12/16 15:31:11	version 1.35.2.4, 2020/10/25 02:25:27
Line 31 package Apache::switchserver;	Line 31 package Apache::switchserver;
use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonmenu;	use Digest::MD5 qw(md5_hex);
use CGI::Cookie();	use CGI::Cookie();
use Apache::lonlocal;	use Apache::lonlocal;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
Line 49 sub init_env {	Line 49 sub init_env {
}	}
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);

return $r->dir_config('lonIDsDir')."/$handle.id";	return $r->dir_config('lonIDsDir')."/$handle.id";
}	}

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 68 sub do_redirect {	Line 72 sub do_redirect {
return OK;	return OK;
}	}

	sub balancer_cookieid {
	my ($r,$desthost,$uname,$udom) = @_;
	my @hosts = &Apache::lonnet::current_machine_ids();
	my $newcookieid;
	unless (grep(/^\Q$desthost\E$/,@hosts)) {
	my $balancedir=$r->dir_config('lonBalanceDir');
	$newcookieid = &md5_hex(&md5_hex(time.{}.rand().$$));
	my $cookie = $udom.'_'.$uname.'_'.$newcookieid;
	my $balcookie = "balanceID=$cookie; path=/; HttpOnly;";
	if (open(my $fh,'>',"$balancedir/$cookie.id")) {
	print $fh $desthost;
	close($fh);
	$r->headers_out->add('Set-cookie' => $balcookie);
	}
	}
	return $newcookieid;
	}

sub flush_course_logs {	sub flush_course_logs {
&Apache::lonnet::flushcourselogs();	&Apache::lonnet::flushcourselogs();
return OK;	return OK;
Line 101 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'}};
}	}
}	}

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)
}	}

my $skip_canhost_check = '';	my $skip_canhost_check = '';
	my $now = time;
if ($env{'form.role'}) {	if ($env{'form.role'}) {
if (!exists($env{'user.role.'.$env{'form.role'}})) {	if (!exists($env{'user.role.'.$env{'form.role'}})) {
delete($env{'form.role'});	delete($env{'form.role'});
} else {	} else {
my $now = time;
my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.role'}});	my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.role'}});
if (($start && $start > $now) \|\| ($end && $end < $now)) {	if (($start && $start > $now) \|\| ($end && $end < $now)) {
delete($env{'form.role'});	delete($env{'form.role'});
Line 156 sub handler {	Line 184 sub handler {
}	}

#remove session env, and log event	#remove session env, and log event
unlink($handle);	if (unlink($handle)) {
my %temp=('switchserver' => time.':'.$env{'form.otherserver'},	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'},
$env{'form.role'});	$env{'form.role'});
&Apache::lonnet::put('email_status',\%temp);	&Apache::lonnet::put('email_status',\%temp);
my $logmsg = "Switch Server to $env{'form.otherserver'}";	my $logmsg = "Switch Server to $env{'form.otherserver'}";
Line 172 sub handler {	Line 209 sub handler {

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

	# Set a balancer cookie unless browser already sent LON-CAPA load balancer
	# cookie which points at the target server
	my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r,1);

	if (($found_server eq $env{'form.otherserver'}) &&
	($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) {
	$only_body = 1;
	} else {
	$newcookieid = &balancer_cookieid($r,$env{'form.otherserver'},
	$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'},
'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'),
'balancer' => $is_balancer);	'balancer' => $is_balancer);
	if ($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 211 sub handler {	Line 277 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>

Removed from v.1.35
changed lines
	Added in v.1.35.2.4