While changing my setup, I discovered that for some unknown reasons
samba (serv/client) doesn't print any attributes for normal files.
Signed-off-by: Aurélien Aptel <aurelien.aptel@gmail.com>
Reviewed-by: David Disseldorp <ddiss@samba.org>
Reviewed-by: Jim McDonough <jmcd@samba.org>
my $out = main::smb_client('-D', $path, '-c', 'ls');
for(split /\n/, $out) {
- next if !/^ (.+?)\s+([AHSRDN]+)\s+(\d+)\s+(.+)/o;
+ next if !/^ (.+?)\s+([AHSRDN]*)\s+(\d+)\s+(.+)/o;
my ($fn, $attr, $size, $date) = ($1, $2, $3, $4);
next if $fn =~ /^\.{1,2}$/;