lib/ID3FS/Fuse.pm

   1 package ID3FS::Fuse;
   2
   3 use strict;
   4 use warnings;
   5 use Fuse;
   6 use POSIX qw(EINVAL EROFS EOPNOTSUPP S_IRUSR S_IRGRP S_IROTH S_IXUSR S_IXGRP S_IXOTH);
   7 use vars qw($TYPE_DIR $TYPE_SYMLINK);
   8 ($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($dev,$ino,$nlink)=(0,0,1);
  67     my $uid=$<;
  68     my $gid=(split(/ /, $( ))[0];
  69     my($rdev,$size)=(0,1);
  70     my($atime,$mtime,$ctime)=(0,0,0);
  71     my($blksize,$blocks)=(512,1);
  72     my $mode;
  73     if($filename eq "/")
  74     {
  75         $mode=$self->mode($TYPE_DIR);
  76     }
  77     else
  78     {
  79         $mode=$self->mode($TYPE_SYMLINK);
  80     }
  81     return($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  82            $atime,$mtime,$ctime,$blksize,$blocks);
  83 }
  84
  85 sub readlink
  86 {
  87     my($self,$filename)=@_;
  88     print "READLINK: $filename\n";
  89     return "FIXME";
  90 }
  91
  92 sub getdir
  93 {
  94     my($self, $filename)=@_;
  95     print "GETDIR(", ref($self), ": $filename\n";
  96     if($filename eq "/")
  97     {
  98         return(".", "..", $self->{db}->tags(), 0);
  99     }
 100     return('.',0);
 101 }
 102
 103 # unused stubs
 104 sub mknod       { print "mknod\n"; return -EROFS();            }
 105 sub mkdir       { print "mkdir\n"; return -EROFS();            }
 106 sub unlink      { print "unlink\n"; return -EROFS();           }
 107 sub rmdir       { print "rmdir\n"; return -EROFS();            }
 108 sub symlink     { print "symlink\n"; return -EROFS();          }
 109 sub rename      { print "rename\n"; return -EROFS();           }
 110 sub link        { print "link\n"; return -EROFS();             }
 111 sub chmod       { print "chmod\n"; return -EROFS();            }
 112 sub chown       { print "chown\n"; return -EROFS();            }
 113 sub truncate    { print "truncate\n"; return -EROFS();         }
 114 sub utime       { print "utime\n"; return -EINVAL();           }
 115 sub open        { print "open\n"; return -EINVAL();            }
 116 sub read        { print "read\n"; return -EINVAL();            }
 117 sub write       { print "write\n"; return -EROFS();            }
 118 sub statfs      { print "statfs\n"; return -EINVAL();          }
 119 sub release     { print "release\n"; return 0;                 }
 120 sub fsync       { print "fsync\n"; return 0;                   }
 121 sub setxattr    { print "setxattr\n"; return -EOPNOTSUPP();    }
 122 sub getxattr    { print "getxattr\n"; return -EOPNOTSUPP();    }
 123 sub listxattr   { print "listxattr\n"; return -EOPNOTSUPP();   }
 124 sub removexattr { print "removexattr\n"; return -EOPNOTSUPP(); }
 125
 126 sub mode
 127 {
 128     my($self, $type)=@_;
 129     return(($type << 9) | $self->{perms});
 130 }
 131
 132
 133
 134 1;