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'}= |