lib/ID3FS/Fuse.pm

   1 package ID3FS::Fuse;
   2
   3 use strict;
   4 use warnings;
   5 use ID3FS::Path;
   6 use Fuse;
   7 use POSIX qw(EINVAL EROFS ENOENT EOPNOTSUPP S_IRUSR S_IRGRP S_IROTH S_IXUSR S_IXGRP S_IXOTH);
   8 our ($TYPE_DIR, $TYPE_SYMLINK)=(0040, 0120);
   9
  10 sub new
  11 {
  12     my $proto=shift;
  13     my $class=ref($proto) || $proto;
  14     my $self={};
  15     bless($self,$class);
  16
  17     $self->{db}=shift;
  18     $self->{source}=shift;
  19     $self->{mountpoint}=shift;
  20     $self->{debug}=shift;
  21     $self->{perms} = S_IRUSR() | S_IXUSR() | S_IRGRP() | S_IXGRP() | S_IROTH() | S_IXOTH();
  22
  23     return $self;
  24 }
  25
  26 sub run
  27 {
  28     my($self)=@_;
  29     Fuse::main(
  30         mountpoint  => $self->{mountpoint},
  31         threaded    => 0,
  32         debug       => $self->{debug},
  33         mountopts   => "allow_other,ro",
  34         getattr     => sub { $self->getattr(@_); },
  35         readlink    => sub { $self->readlink(@_); },
  36         getdir      => sub { $self->getdir(@_); },
  37         # Not used
  38 #       mknod       => sub { $self->mknod(@_);       },
  39 #       mkdir       => sub { $self->mkdir(@_);       },
  40 #       unlink      => sub { $self->unlink(@_);      },
  41 #       rmdir       => sub { $self->rmdir(@_);       },
  42 #       symlink     => sub { $self->symlink(@_);     },
  43 #       rename      => sub { $self->rename(@_);      },
  44 #       link        => sub { $self->link(@_);        },
  45 #       chmod       => sub { $self->chmod(@_);       },
  46 #       chown       => sub { $self->chown(@_);       },
  47 #       truncate    => sub { $self->truncate(@_);    },
  48 #       utime       => sub { $self->utime(@_);       },
  49 #       open        => sub { $self->open(@_);        },
  50 #       read        => sub { $self->read(@_);        },
  51 #       write       => sub { $self->write(@_);       },
  52 #       statfs      => sub { $self->statfs(@_);      },
  53 #       release     => sub { $self->release(@_);     },
  54 #       fsync       => sub { $self->fsync(@_);       },
  55 #       setxattr    => sub { $self->setxattr(@_);    },
  56 #       getxattr    => sub { $self->getxattr(@_);    },
  57 #       listxattr   => sub { $self->listxattr(@_);   },
  58 #       removexattr => sub { $self->removexattr(@_); },
  59         );
  60 }
  61
  62 sub getattr
  63 {
  64     my($self, $filename)=@_;
  65 #    print "**GETATTR: $filename\n";
  66     my $path=ID3FS::Path->new($self->{db}, $filename);
  67     my $last_update=$self->{db}->last_update();
  68     return(-ENOENT()) unless($path->isvalid());
  69     my($dev,$ino,$nlink)=(0,0,1);
  70     my $uid=$<;
  71     my $gid=(split(/ /, $( ))[0];
  72     my($rdev,$size)=(0,1);
  73     my($atime,$mtime,$ctime)=($last_update) x 3;
  74     my($blksize,$blocks)=(512,1);
  75     my $mode=$self->mode( $path->isdir() ? $TYPE_DIR : $TYPE_SYMLINK );
  76     return($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
  77            $atime, $mtime, $ctime, $blksize, $blocks);
  78 }
  79
  80 sub readlink
  81 {
  82     my($self,$filename)=@_;
  83 #    print "**READLINK: $filename\n";
  84     my $path=ID3FS::Path->new($self->{db}, $filename);
  85     return(-EINVAL()) unless($path->isfile());
  86     return $path->dest();
  87 }
  88
  89 sub getdir
  90 {
  91     my($self, $filename)=@_;
  92 #    print "**GETDIR: $filename\n";
  93     my $path=ID3FS::Path->new($self->{db}, $filename);
  94     return(-ENOENT()) unless($path->isvalid());
  95     if($path->isdir())
  96     {
  97         return(".", "..", $path->dirents(), 0);
  98     }
  99     return -ENOTDIR();
 100 }
 101
 102 # unused stubs
 103 sub mknod       { print "FUSE: mknod\n";       return -EROFS();      }
 104 sub mkdir       { print "FUSE: mkdir\n";       return -EROFS();      }
 105 sub unlink      { print "FUSE: unlink\n";      return -EROFS();      }
 106 sub rmdir       { print "FUSE: rmdir\n";       return -EROFS();      }
 107 sub symlink     { print "FUSE: symlink\n";     return -EROFS();      }
 108 sub rename      { print "FUSE: rename\n";      return -EROFS();      }
 109 sub link        { print "FUSE: link\n";        return -EROFS();      }
 110 sub chmod       { print "FUSE: chmod\n";       return -EROFS();      }
 111 sub chown       { print "FUSE: chown\n";       return -EROFS();      }
 112 sub truncate    { print "FUSE: truncate\n";    return -EROFS();      }
 113 sub utime       { print "FUSE: utime\n";       return -EINVAL();     }
 114 sub open        { print "FUSE: open\n";        return -EINVAL();     }
 115 sub read        { print "FUSE: read\n";        return -EINVAL();     }
 116 sub write       { print "FUSE: write\n";       return -EROFS();      }
 117 sub statfs      { print "FUSE: statfs\n";      return -EINVAL();     }
 118 sub release     { print "FUSE: release\n";     return 0;             }
 119 sub fsync       { print "FUSE: fsync\n";       return 0;             }
 120 sub setxattr    { print "FUSE: setxattr\n";    return -EOPNOTSUPP(); }
 121 sub getxattr    { print "FUSE: getxattr\n";    return -EOPNOTSUPP(); }
 122 sub listxattr   { print "FUSE: listxattr\n";   return -EOPNOTSUPP(); }
 123 sub removexattr { print "FUSE: removexattr\n"; return -EOPNOTSUPP(); }
 124
 125 sub mode
 126 {
 127     my($self, $type)=@_;
 128     return(($type << 9) | $self->{perms});
 129 }
 130
 131 1;