projects
/
id3fs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
id3fs-index: update usage and man page
[id3fs.git]
/
lib
/
ID3FS
/
Fuse.pm
diff --git
a/lib/ID3FS/Fuse.pm
b/lib/ID3FS/Fuse.pm
index
ffb3950
..
94e935f
100644
(file)
--- a/
lib/ID3FS/Fuse.pm
+++ b/
lib/ID3FS/Fuse.pm
@@
-25,6
+25,7
@@
use POSIX qw(EINVAL EROFS ENOENT EOPNOTSUPP S_IRUSR S_IRGRP S_IROTH S_IXUSR S_IX
our ($TYPE_DIR, $TYPE_SYMLINK)=(0040, 0120);
our $DEFAULT_MAXTAGDEPTH = 10;
our ($TYPE_DIR, $TYPE_SYMLINK)=(0040, 0120);
our $DEFAULT_MAXTAGDEPTH = 10;
+
sub new
{
my $proto=shift;
sub new
{
my $proto=shift;
@@
-98,6
+99,12
@@
sub getattr
$atime, $mtime, $ctime, $blksize, $blocks);
}
$atime, $mtime, $ctime, $blksize, $blocks);
}
+sub mode
+{
+ my($self, $type)=@_;
+ return(($type << 9) | $self->{perms});
+}
+
sub readlink
{
my($self,$filename)=@_;
sub readlink
{
my($self,$filename)=@_;
@@
-116,8
+123,6
@@
sub getdir
return(-ENOTDIR()) unless($path->isdir());
my @dents=();
my($dirs, $files)=$path->dirents();
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)
push(@dents, @$dirs);
push(@dents, @$files);
if(@dents)
@@
-150,10
+155,4
@@
sub getxattr { print "FUSE: getxattr\n"; return -EOPNOTSUPP(); }
sub listxattr { print "FUSE: listxattr\n"; return -EOPNOTSUPP(); }
sub removexattr { print "FUSE: removexattr\n"; return -EOPNOTSUPP(); }
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;
1;