fws
/
report_acl
4
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add description for Shares Folder

Browse Source
master
Heuzef 7 years ago
parent 8e6e3c192d
commit 2d30ebf32a
1 changed files with 2 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 3
      report_acl.pl

3
report_acl.pl
Unescape View File

@ -27,6 +27,7 @@ print "^ Dossiers partagés ^ Accès en écriture ^ Accès en lecture seule ^" .
# Pour chaques Share Folder : # Pour chaques Share Folder :
foreach my $share ($a->get_all_by_prop(type => 'share')) { foreach my $share ($a->get_all_by_prop(type => 'share')) {
my $name = $share->key; my $name = $share->key;
my $desc = $share->prop('Name');
my $wu = $share->prop('WriteUsers'); my $wu = $share->prop('WriteUsers');
my $wg = $share->prop('WriteGroups'); my $wg = $share->prop('WriteGroups');
my $ru = $share->prop('ReadUsers'); my $ru = $share->prop('ReadUsers');
@ -114,7 +115,7 @@ foreach my $share ($a->get_all_by_prop(type => 'share')) {
my @list_rw_uniq = uniq(@list_rw); my @list_rw_uniq = uniq(@list_rw);
my @list_ro_uniq = uniq(@list_ro); my @list_ro_uniq = uniq(@list_ro);
print "^ " . $name . " | "; print "^ " . $name . " (" . $desc . ") | ";
foreach (@list_rw_uniq) { print "$_, "; } foreach (@list_rw_uniq) { print "$_, "; }
print " | "; print " | ";
foreach (@list_ro_uniq) { print "$_, "; } foreach (@list_ro_uniq) { print "$_, "; }

Write Preview
Loading…
Cancel
Save