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 "" . $users->key . ""; + } + 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";