version 1.1456, 2021/06/06 23:14:18
|
version 1.1458, 2021/06/07 12:15:04
|
Line 8441 sub allowed {
|
Line 8441 sub allowed {
|
=~/\Q$priv\E\&([^\:]*)/) { |
=~/\Q$priv\E\&([^\:]*)/) { |
my $value = $1; |
my $value = $1; |
if ($priv eq 'bre') { |
if ($priv eq 'bre') { |
if ($noblockcheck) { |
my $deeplinkblock = &deeplink_check($priv,$symb,$uri); |
|
if ($deeplinkblock) { |
|
$thisallowed = 'D'; |
|
} elsif ($noblockcheck) { |
$thisallowed.=$value; |
$thisallowed.=$value; |
} else { |
} else { |
my @blockers = &has_comm_blocking($priv,$symb,$uri,$ignorecache); |
my @blockers = &has_comm_blocking($priv,$symb,$uri,$ignorecache); |
Line 14687 sub get_dns {
|
Line 14690 sub get_dns {
|
delete($alldns{$dns}); |
delete($alldns{$dns}); |
next if (($dir eq '') || ($file eq '')); |
next if (($dir eq '') || ($file eq '')); |
if (open(my $config,'<',"$dir/$file")) { |
if (open(my $config,'<',"$dir/$file")) { |
@content = <$config>); |
@content = <$config>; |
close($config); |
close($config); |
} |
} |
if ($url eq '/adm/dns/loncapaCRL') { |
if ($url eq '/adm/dns/loncapaCRL') { |