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.55 and 1.58

version 1.55, 2021/05/04 18:47:37	version 1.58, 2021/08/11 17:03:03
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 291 sub handler {	Line 291 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'}) {	if ($env{'request.linkprot'}) {
$info{'linkprot'} = $env{'request.linkprot'};	$info{'linkprot'} = $env{'request.linkprot'};
	} elsif ($env{'request.linkkey'}) {
	$info{'linkkey'} = $env{'request.linkkey'};
}	}
if ($env{'request.deeplink.login'}) {	if ($env{'request.deeplink.login'}) {
$info{'deeplink.login'} = $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 345 sub handler {	Line 357 sub handler {
'&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;

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

Removed from v.1.55
changed lines
	Added in v.1.58