loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.187, 2021/02/09 22:17:40	version 1.189, 2021/04/18 02:08:46
Line 559 sub handler {	Line 559 sub handler {
my $hostname = $r->hostname();	my $hostname = $r->hostname();
my $lonhost = &Apache::lonnet::host_from_dns($hostname);	my $lonhost = &Apache::lonnet::host_from_dns($hostname);
if ($lonhost) {	if ($lonhost) {
my $actual = &Apache::lonnet::absolute_url($hostname);	my $actual = &Apache::lonnet::absolute_url($hostname,1,1);
my $exphostname = &Apache::lonnet::hostname($lonhost);	my $exphostname = &Apache::lonnet::hostname($lonhost);
my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname;	my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname;
unless ($actual eq $expected) {	unless ($actual eq $expected) {
Line 875 sub handler {	Line 875 sub handler {
}	}
if ($invalidsymb) {	if ($invalidsymb) {
if ($requrl eq '/adm/navmaps') {	if ($requrl eq '/adm/navmaps') {
undef(symb);	undef($symb);
} else {	} else {
$r->log_reason('Invalid symb for '.$requrl.': '.$symb);	$r->log_reason('Invalid symb for '.$requrl.': '.$symb);
$env{'user.error.msg'}=	$env{'user.error.msg'}=