diff options
Diffstat (limited to 'perl/example.pl')
| -rwxr-xr-x | perl/example.pl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/perl/example.pl b/perl/example.pl index 257f2c9..bc62cad 100755 --- a/perl/example.pl +++ b/perl/example.pl @@ -37,13 +37,13 @@ sub e_getattr { return -ENOENT() unless exists($files{$file}); my ($size) = exists($files{$file}{cont}) ? length($files{$file}{cont}) : 0; my ($modes) = ($files{$file}{type}<<9) + $files{$file}{mode}; - my ($blocks, $gid, $uid, $nlink) = (1,0,0,1); - # 4 possible return values: + my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,1,0,0,1,1024); + my ($atime, $ctime, $mtime); + $atime = $ctime = $mtime = $files{$file}{ctime}; + # 2 possible types of return values: #return -ENOENT(); # or any other error you care to - return ($blocks,$size,$gid,$uid,$nlink,$modes,$files{$file}{ctime}); - # return ($errno,$blocks,$size,$gid,$uid,$nlink,$modes,$time); - # return ($errno,$blksize,$blocks,$size,$gid,$uid,$nlink,$modes,$time); - # if omitted, errno defaults to 0, and blksize defaults to 1024. + #print(join(",",($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)),"\n"); + return ($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks); } sub e_getdir { @@ -79,5 +79,6 @@ Fuse::main( getattr=>\&e_getattr, getdir=>\&e_getdir, open=>\&e_open, - read=>\&e_read, + #read=>\&e_read, + #debug=>1, threaded=>0 ); |