|
|
|
@ -11,7 +11,16 @@ sub uniq { |
|
|
|
|
grep !$seen{$_}++, @_; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
print "\n" . '^ Dossiers partagés ^ Accès en écriture ^ Accès en lecture seule ^' . "\n"; |
|
|
|
|
|
|
|
|
|
print "====== Audit des permissions ======\n\n"; |
|
|
|
|
|
|
|
|
|
print "===== État des permissions au JJ/MM/AAAA HH:MM =====\n\n"; |
|
|
|
|
|
|
|
|
|
print "<note>Les comptes verrouillés ont été mis en évidence **<color #c3c3c3>en gris</color>**.</note>\n\n"; |
|
|
|
|
|
|
|
|
|
print "==== Autorisations d'accès des dossiers partagés ====\n\n"; |
|
|
|
|
|
|
|
|
|
print "^ Dossiers partagés ^ Accès en écriture ^ Accès en lecture seule ^" . "\n"; |
|
|
|
|
|
|
|
|
|
# Pour chaques Share Folder : |
|
|
|
|
foreach my $share ($a->get_all_by_prop(type => 'share')) { |
|
|
|
@ -110,7 +119,8 @@ 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"; |
|
|
|
|
print "\n\n==== Autorisation d'accès des utilisateurs ====\n\n"; |
|
|
|
|
print "^ Utilisateur ^ Commentaires ^ Accès en écritures ^ Accès en lecture seul ^" . "\n"; |
|
|
|
|
|
|
|
|
|
# Pour chaque utilisateur : |
|
|
|
|
my @users = $a->users; |
|
|
|
@ -137,5 +147,4 @@ foreach my $users (@users) { |
|
|
|
|
print " |\n"; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
print "\n\n\n"; |
|
|
|
|