diff --git a/report_acl.pl b/report_acl.pl index cb35f40..f2234b7 100644 --- a/report_acl.pl +++ b/report_acl.pl @@ -99,15 +99,15 @@ foreach my $share ($a->get_all_by_prop(type => 'share')) { } } + # Affichage du resultat sous forme d'un tableau : my @list_rw_uniq = uniq(@list_rw); my @list_ro_uniq = uniq(@list_ro); - print "^ " . $name . " | RW | RO |" . "\n"; - + print "^ " . $name . " | "; foreach (@list_rw_uniq) { print "$_ "; } - + print " | "; foreach (@list_ro_uniq) { print "$_ "; } - + print " |" . "\n"; +} print "\n\n\n"; -}