X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2FID3FS%2FFuse.pm;h=da4692181d79a0b4e3ec7999928fbb2df9601d5d;hb=5d2254d9285c6e1330b7a93194f9ef2e959ad6ee;hp=bfe36da50c2698e182f5d576dfa9d6061846bcde;hpb=34a78da47973018c867dfebc82701902b58f4e5f;p=id3fs.git

diff --git a/lib/ID3FS/Fuse.pm b/lib/ID3FS/Fuse.pm
index bfe36da..da46921 100644
--- a/lib/ID3FS/Fuse.pm
+++ b/lib/ID3FS/Fuse.pm
@@ -2,9 +2,13 @@ package ID3FS::Fuse;
 
 use strict;
 use warnings;
-use POSIX qw(EINVAL ENOENT EROFS EOPNOTSUPP);
+use ID3FS::Path;
 use Fuse;
+use Cwd;
+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;
 sub new
 {
     my $proto=shift;
@@ -14,7 +18,11 @@ sub new
 
     $self->{db}=shift;
     $self->{source}=shift;
-    $self->{mountpoint}=shift;
+    $self->{mountpoint}=Cwd::abs_path(shift);
+    $self->{verbose}=shift;
+    $self->{tagdepth}=shift;
+    $self->{tagdepth}=$DEFAULT_MAXTAGDEPTH unless($self->{tagdepth});
+    $self->{perms} = S_IRUSR() | S_IXUSR() | S_IRGRP() | S_IXGRP() | S_IROTH() | S_IXOTH();
 
     return $self;
 }
@@ -24,78 +32,112 @@ sub run
     my($self)=@_;
     Fuse::main(
 	mountpoint  => $self->{mountpoint},
-	threaded=>0,
-	debug => 1,
-	getattr     => "ID3FS::Fuse::getattr",
-#	readlink    => "ID3FS::Fuse::readlink",
-	getdir      => "ID3FS::Fuse::getdir",
-#	mknod       => "ID3FS::Fuse::mknod",
-#	mkdir       => "ID3FS::Fuse::mkdir",
-#	unlink      => "ID3FS::Fuse::unlink",
-#	rmdir       => "ID3FS::Fuse::rmdir",
-#	symlink     => "ID3FS::Fuse::symlink",
-#	rename      => "ID3FS::Fuse::rename",
-#	link        => "ID3FS::Fuse::link",
-#	chmod       => "ID3FS::Fuse::chmod",
-#	chown       => "ID3FS::Fuse::chown",
-#	truncate    => "ID3FS::Fuse::truncate",
-#	utime       => "ID3FS::Fuse::utime",
-#	open        => "ID3FS::Fuse::open",
-#	read        => "ID3FS::Fuse::read",
-#	write       => "ID3FS::Fuse::write",
-#	statfs      => "ID3FS::Fuse::statfs",
-#	release     => "ID3FS::Fuse::release",
-#	fsync       => "ID3FS::Fuse::fsync",
-#	setxattr    => "ID3FS::Fuse::setxattr",
-#	getxattr    => "ID3FS::Fuse::getxattr",
-#	listxattr   => "ID3FS::Fuse::listxattr",
-#	removexattr => "ID3FS::Fuse::removexattr",
+	threaded    => 0,
+	debug       => ($self->{verbose} > 1),
+	mountopts   => "allow_other,ro",
+	getattr     => sub { $self->getattr(@_); },
+	readlink    => sub { $self->readlink(@_); },
+	getdir      => sub { $self->getdir(@_); },
+
+	# Not used
+#	mknod       => sub { $self->mknod(@_);       },
+#	mkdir       => sub { $self->mkdir(@_);       },
+#	unlink      => sub { $self->unlink(@_);      },
+#	rmdir       => sub { $self->rmdir(@_);       },
+#	symlink     => sub { $self->symlink(@_);     },
+#	rename      => sub { $self->rename(@_);      },
+#	link        => sub { $self->link(@_);        },
+#	chmod       => sub { $self->chmod(@_);       },
+#	chown       => sub { $self->chown(@_);       },
+#	truncate    => sub { $self->truncate(@_);    },
+#	utime       => sub { $self->utime(@_);       },
+#	open        => sub { $self->open(@_);        },
+#	read        => sub { $self->read(@_);        },
+#	write       => sub { $self->write(@_);       },
+#	statfs      => sub { $self->statfs(@_);      },
+#	release     => sub { $self->release(@_);     },
+#	fsync       => sub { $self->fsync(@_);       },
+#	setxattr    => sub { $self->setxattr(@_);    },
+#	getxattr    => sub { $self->getxattr(@_);    },
+#	listxattr   => sub { $self->listxattr(@_);   },
+#	removexattr => sub { $self->removexattr(@_); },
 	);
 }
 
 sub getattr
 {
-    my($filename)=@_;
-    print "GETATTR: $filename\n";
+    my($self, $filename)=@_;
+#    print "**GETATTR: $filename\n";
+    my $path=ID3FS::Path->new($self->{db}, $filename, $self->{verbose}, $self->{tagdepth});
+    my $last_update=$self->{db}->last_update();
+    return(-ENOENT()) unless($path->isvalid());
     my($dev,$ino,$nlink)=(0,0,1);
-    my($uid,$gid)=(1000,1000);
+    my $uid=$<;
+    my $gid=(split(/ /, $( ))[0];
     my($rdev,$size)=(0,1);
-    my($atime,$mtime,$ctime)=(0,0,0);
+    my($atime,$mtime,$ctime)=($last_update) x 3;
     my($blksize,$blocks)=(512,1);
-    my $mode=(0040 << 9) | 0755;
-    return($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-	   $atime,$mtime,$ctime,$blksize,$blocks);
+    my $mode=$self->mode( $path->isdir() ? $TYPE_DIR : $TYPE_SYMLINK );
+    return($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
+	   $atime, $mtime, $ctime, $blksize, $blocks);
 }
 
-sub readlink    { print "readlink\n"; return "FIXME";       }
+sub readlink
+{
+    my($self,$filename)=@_;
+#    print "**READLINK: $filename\n";
+    my $path=ID3FS::Path->new($self->{db}, $filename, $self->{verbose}, $self->{tagdepth});
+    return(-EINVAL()) unless($path->isfile());
+    return $path->dest($self->{mountpoint});
+}
 
 sub getdir
 {
-    my($filename)=@_;
-    print "GETDIR: $filename\n";
-    return('.',0);
+    my($self, $filename)=@_;
+#    print "**GETDIR: $filename\n";
+    my $path=ID3FS::Path->new($self->{db}, $filename, $self->{verbose}, $self->{tagdepth});
+    return(-ENOENT()) unless($path->isvalid());
+    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)
+    {
+	return( (".", "..", @dents, 0) );
+    }
+    return(0);
 }
 
-sub mknod       { print "mknod\n"; return -EINVAL();     }
-sub mkdir       { print "mkdir\n"; return -EROFS();      }
-sub unlink      { print "unlink\n"; return -EINVAL();     }
-sub rmdir       { print "rmdir\n"; return -EROFS();      }
-sub symlink     { print "symlink\n"; return -EROFS();      }
-sub rename      { print "rename\n"; return -EROFS();      }
-sub link        { print "link\n"; return -EROFS();      }
-sub chmod       { print "chmod\n"; return -EINVAL();     }
-sub chown       { print "chown\n"; return -EINVAL();     }
-sub truncate    { print "truncate\n"; return -EROFS();      }
-sub utime       { print "utime\n"; return -EINVAL();     }
-sub open        { print "open\n"; return -EINVAL();     }
-sub read        { print "read\n"; return -EINVAL();     }
-sub write       { print "write\n"; return -EINVAL();     }
-sub statfs      { print "statfs\n"; return -EINVAL();     }
-sub release     { print "release\n"; return 0;             }
-sub fsync       { print "fsync\n"; return 0;             }
-sub setxattr    { print "setxattr\n"; return -EOPNOTSUPP(); }
-sub getxattr    { print "getxattr\n"; return -EOPNOTSUPP(); }
-sub listxattr   { print "listxattr\n"; return -EOPNOTSUPP(); }
-sub removexattr { print "removexattr\n"; return -EOPNOTSUPP(); }
+# unused stubs
+sub mknod       { print "FUSE: mknod\n";       return -EROFS();      }
+sub mkdir       { print "FUSE: mkdir\n";       return -EROFS();      }
+sub unlink      { print "FUSE: unlink\n";      return -EROFS();      }
+sub rmdir       { print "FUSE: rmdir\n";       return -EROFS();      }
+sub symlink     { print "FUSE: symlink\n";     return -EROFS();      }
+sub rename      { print "FUSE: rename\n";      return -EROFS();      }
+sub link        { print "FUSE: link\n";        return -EROFS();      }
+sub chmod       { print "FUSE: chmod\n";       return -EROFS();      }
+sub chown       { print "FUSE: chown\n";       return -EROFS();      }
+sub truncate    { print "FUSE: truncate\n";    return -EROFS();      }
+sub utime       { print "FUSE: utime\n";       return -EINVAL();     }
+sub open        { print "FUSE: open\n";        return -EINVAL();     }
+sub read        { print "FUSE: read\n";        return -EINVAL();     }
+sub write       { print "FUSE: write\n";       return -EROFS();      }
+sub statfs      { print "FUSE: statfs\n";      return -EINVAL();     }
+sub release     { print "FUSE: release\n";     return 0;             }
+sub fsync       { print "FUSE: fsync\n";       return 0;             }
+sub setxattr    { print "FUSE: setxattr\n";    return -EOPNOTSUPP(); }
+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 mode
+{
+    my($self, $type)=@_;
+    return(($type << 9) | $self->{perms});
+}
 
 1;