loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.45, 2018/12/02 13:56:10	version 1.47, 2018/12/26 20:10:21
Line 149 sub handler {	Line 149 sub handler {
} elsif ($env{'form.role'} =~ m{^[ac]a\./($match_domain)/($match_username)$}) {	} elsif ($env{'form.role'} =~ m{^[ac]a\./($match_domain)/($match_username)$}) {
my ($audom,$auname) = ($1,$2);	my ($audom,$auname) = ($1,$2);
if (&Apache::lonnet::homeserver($auname,$audom) eq $env{'form.otherserver'}) {	if (&Apache::lonnet::homeserver($auname,$audom) eq $env{'form.otherserver'}) {
if ((&Apache::lonnet::will_trust('othcoau',$audom,$env{'user.domain'})) &&	if ((&Apache::lonnet::will_trust('othcoau',$env{'user.domain'},$audom)) &&
(&Apache::lonnet::will_trust('coremau',$env{'user.domain'},$audom))) {	(&Apache::lonnet::will_trust('coaurem',$audom,$env{'user.domain'}))) {
$skip_canhost_check = 1;	$skip_canhost_check = 1;
}	}
}	}
Line 280 sub handler {	Line 280 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.lti.login'}) {	if ($env{'request.lti.login'}) {
$info{'lti.login'} = $env{'request.lti.login'};	$info{'lti.login'} = $env{'request.lti.login'};
}	}