init users repport parts

report_acl.pl

@@ -110,4 +110,32 @@ foreach my $share ($a->get_all_by_prop(type => 'share')) {
   print " |" . "\n";
 }
 
+print "\n\n\n" . '^ Utilisateur ^ Commentaires ^ Accès en écritures ^ Accès en lecture seul ^' . "\n";
+
+# Pour chaque utilisateur :
+my @users = $a->users;
+foreach my $users (@users) {
+  print "^ ";
+  # Coloration en gris des comptes verrouillés :
+  if ($users->prop('PasswordSet') eq 'no') {
+    # Affichage de l'utilisateur verrouillé :
+    print "<color #c3c3c3>" . $users->key . "</color>";
+  }
+  else {
+    # Affichage de l'utilisateur actif :
+    print $users->key;
+  }
+  print " | ";
+  # Affichage des commentaires :
+  print $users->prop('FirstName') . " " . $users->prop('LastName');
+  print " | ";
+  # Affichage des accès RW :
+  print " RW ";
+  print " | ";
+  # Affichage des accès RO :
+  print " RO ";
+  print " |\n";
+}
+
+
 print "\n\n\n";