perl/fuse/fs3.pl

   1 #!/usr/bin/env perl
   2
   3 use Fuse;
   4
   5 #use JSON;
   6 #print encode_json {};
   7
   8 my ($mountpoint) = "";
   9 $mountpoint = shift(@ARGV) if @ARGV;
  10 Fuse::main(mountpoint=>$mountpoint, getattr=>"main::my_getattr", getdir=>"main::my_getdir");
  11
  12 sub my_getattr {
  13         #($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks)
  14         #return (1,1,0777,1,0,0,1,1,1,1,1,1,1);
  15         my ($size) = 1024;
  16         my ($modes) = (0040<<9) + 0755; #dir=0040, file=0100
  17         my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,1,0,0,1,1024);
  18         my ($atime, $ctime, $mtime);
  19         $atime = $ctime = $mtime = 666666;
  20         return ($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks);
  21 }
  22
  23 sub my_getdir {
  24         return ('.', 'a', 'b', 0);
  25 }