From 5150a69fb516bcc2bc3542996cd34e5e30451da0 Mon Sep 17 00:00:00 2001
From: Heuzef <heuzef@firewall-services.com>
Date: Fri, 15 Dec 2017 15:03:00 +0100
Subject: [PATCH] init users repport parts

---
 report_acl.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/report_acl.pl b/report_acl.pl
index 9239526..4681d9b 100644
--- a/report_acl.pl
+++ b/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";