Add description for Shares Folder

report_acl.pl

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