#!/usr/bin/perl -w
# trying to map acls
use Getopt::Long;
use File::Find;
no warnings 'File::Find';

my $optuser = '';
my $findroot = '';

   GetOptions('user:s' => \$optuser,
              'root=s' => \$findroot);

   unless( $findroot ){
      print<<HERE
   $0 --root path [--user username]
   perform a recursive find rooted at the given pathname producing an ACL map.
   if optional username is provided, filter ACL map results to that username.

HERE
   }
   find(\&wanted, $findroot);

sub wanted {
    -f && next;

    open RES, "ls -lde \"$_\" |";

    # filespec is discarded
    <RES>;
    while (my $acl=<RES>){
       if($optuser){
          $acl =~ /user:$optuser\s/ && print "$File::Find::name $acl";
       } else {
          print "$File::Find::name $acl";
       }
    }
}