finishing the audit script for SF

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";
-}