loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.64, 2022/09/17 23:38:50	version 1.66, 2024/10/07 00:59:43
Line 63 sub do_redirect {	Line 63 sub do_redirect {
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Switching Server ...',undef,	&Apache::loncommon::start_page('Switching Server ...',undef,
{'redirect' => [$delay,$url,'',$write_to_opener,1],	{'redirect' => [$delay,$url,'',$write_to_opener,1],
'only_body' => $only_body,});	'only_body' => $only_body,
	'switchserver' => 1,
	'links_disabled' => 1,});
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);
unless ($env{'user.name'} eq 'public' && ($env{'user.domain'} eq 'public')) {	unless ($env{'user.name'} eq 'public' && ($env{'user.domain'} eq 'public')) {
Line 362 sub handler {	Line 364 sub handler {
}	}
if ($env{'request.linkprot'}) {	if ($env{'request.linkprot'}) {
$info{'linkprot'} = $env{'request.linkprot'};	$info{'linkprot'} = $env{'request.linkprot'};
foreach my $item ('linkprotuser','linkprotexit') {	foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
if ($env{'request.'.$item}) {	if ($env{'request.'.$item}) {
$info{$item} = $env{'request.'.$item};	$info{$item} = $env{'request.'.$item};
}	}