use POSIX qw(EINVAL EROFS ENOENT EOPNOTSUPP S_IRUSR S_IRGRP S_IROTH S_IXUSR S_IXGRP S_IXOTH);
our ($TYPE_DIR, $TYPE_SYMLINK)=(0040, 0120);
-our $DEFAULT_MAXTAGDEPTH = 10;
+our $DEFAULT_MAXTAGDEPTH = 6;
+
sub new
{
my $proto=shift;
$atime, $mtime, $ctime, $blksize, $blocks);
}
+sub mode
+{
+ my($self, $type)=@_;
+ return(($type << 9) | $self->{perms});
+}
+
sub readlink
{
my($self,$filename)=@_;
return(-ENOTDIR()) unless($path->isdir());
my @dents=();
my($dirs, $files)=$path->dirents();
- # too slow
-# push(@dents, $path->filter(@$dirs));
push(@dents, @$dirs);
push(@dents, @$files);
if(@dents)
sub listxattr { print "FUSE: listxattr\n"; return -EOPNOTSUPP(); }
sub removexattr { print "FUSE: removexattr\n"; return -EOPNOTSUPP(); }
-sub mode
-{
- my($self, $type)=@_;
- return(($type << 9) | $self->{perms});
-}
-
1;