Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1456 and 1.1458

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') {

Removed from v.1.1456  
changed lines
  Added in v.1.1458


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