From c0c9afc8bdab917b38a4ea1eceb1a6085b620761 Mon Sep 17 00:00:00 2001 From: Ilia Rostovtsev Date: Sun, 14 Feb 2021 22:24:14 +0300 Subject: [PATCH] Don't display default ACLs in File Manager --- filemin/index.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/filemin/index.cgi b/filemin/index.cgi index 854ce4ea2..279d4ecd0 100755 --- a/filemin/index.cgi +++ b/filemin/index.cgi @@ -43,10 +43,10 @@ unless (opendir ( DIR, $cwd )) { foreach my $aclsStr (split(/\n\n/, $output)) { $aclsStr =~ /#\s+file:\s*(.*)/; my ($file) = ($aclsStr =~ /#\s+file:\s*(.*)/); - my @aclsA = ($aclsStr =~ /^(?!#)([\w:-]+)/gm); + my @aclsA = ($aclsStr =~ /^(?!(#|user::|group::|other::))([\w\:\-\_]+)/gm); push(@aclsArr, [$file, \@aclsA]); } - %acls = map {$_->[0] => ('' . join("
", @{$_->[1]}) . '
')} @aclsArr; + %acls = map {$_->[0] => ('' . join("
", (grep /\S/, @{ $_->[1] })) . '
')} @aclsArr; } # List attributes