| 1 |
#!/usr/bin/perl -w |
| 2 |
use strict; |
| 3 |
|
| 4 |
use blib; |
| 5 |
use Fuse qw(fuse_get_context); |
| 6 |
use POSIX qw(ENOENT EISDIR EINVAL); |
| 7 |
|
| 8 |
my (%files) = ( |
| 9 |
'.' => { |
| 10 |
type => 0040, |
| 11 |
mode => 0755, |
| 12 |
ctime => time()-1000 |
| 13 |
}, |
| 14 |
a => { |
| 15 |
cont => "File 'a'.\n", |
| 16 |
type => 0100, |
| 17 |
mode => 0755, |
| 18 |
ctime => time()-2000 |
| 19 |
}, |
| 20 |
b => { |
| 21 |
cont => "This is file 'b'.\n", |
| 22 |
type => 0100, |
| 23 |
mode => 0644, |
| 24 |
ctime => time()-1000 |
| 25 |
}, |
| 26 |
me => { |
| 27 |
size => 45, |
| 28 |
type => 0100, |
| 29 |
mode => 0644, |
| 30 |
ctime => time()-1000 |
| 31 |
}, |
| 32 |
); |
| 33 |
|
| 34 |
sub filename_fixup { |
| 35 |
my ($file) = shift; |
| 36 |
$file =~ s,^/,,; |
| 37 |
$file = '.' unless length($file); |
| 38 |
return $file; |
| 39 |
} |
| 40 |
|
| 41 |
sub e_getattr { |
| 42 |
my ($file) = filename_fixup(shift); |
| 43 |
$file =~ s,^/,,; |
| 44 |
$file = '.' unless length($file); |
| 45 |
return -ENOENT() unless exists($files{$file}); |
| 46 |
my ($size) = exists($files{$file}{cont}) ? length($files{$file}{cont}) : 0; |
| 47 |
$size = $files{$file}{size} if exists $files{$file}{size}; |
| 48 |
my ($modes) = ($files{$file}{type}<<9) + $files{$file}{mode}; |
| 49 |
my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,1,0,0,1,1024); |
| 50 |
my ($atime, $ctime, $mtime); |
| 51 |
$atime = $ctime = $mtime = $files{$file}{ctime}; |
| 52 |
# 2 possible types of return values: |
| 53 |
#return -ENOENT(); # or any other error you care to |
| 54 |
#print(join(",",($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)),"\n"); |
| 55 |
return ($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks); |
| 56 |
} |
| 57 |
|
| 58 |
sub e_getdir { |
| 59 |
# return as many text filenames as you like, followed by the retval. |
| 60 |
print((scalar keys %files)."\n"); |
| 61 |
return (keys %files),0; |
| 62 |
} |
| 63 |
|
| 64 |
sub e_open { |
| 65 |
# VFS sanity check; it keeps all the necessary state, not much to do here. |
| 66 |
my ($file) = filename_fixup(shift); |
| 67 |
print("open called\n"); |
| 68 |
return -ENOENT() unless exists($files{$file}); |
| 69 |
return -EISDIR() if $files{$file}{type} & 0040; |
| 70 |
print("open ok\n"); |
| 71 |
return 0; |
| 72 |
} |
| 73 |
|
| 74 |
sub e_read { |
| 75 |
# return an error numeric, or binary/text string. (note: 0 means EOF, "0" will |
| 76 |
# give a byte (ascii "0") to the reading program) |
| 77 |
my ($file) = filename_fixup(shift); |
| 78 |
my ($buf,$off) = @_; |
| 79 |
return -ENOENT() unless exists($files{$file}); |
| 80 |
if(!exists($files{$file}{cont})) { |
| 81 |
return -EINVAL() if $off > 0; |
| 82 |
my $context = fuse_get_context(); |
| 83 |
return sprintf("pid=0x%08x uid=0x%08x gid=0x%08x\n",@$context{'pid','uid','gid'}); |
| 84 |
} |
| 85 |
return -EINVAL() if $off > length($files{$file}{cont}); |
| 86 |
return 0 if $off == length($files{$file}{cont}); |
| 87 |
return substr($files{$file}{cont},$off,$buf); |
| 88 |
} |
| 89 |
|
| 90 |
sub e_statfs { return 255, 1, 1, 1, 1, 2 } |
| 91 |
|
| 92 |
# If you run the script directly, it will run fusermount, which will in turn |
| 93 |
# re-run this script. Hence the funky semantics. |
| 94 |
my ($mountpoint) = ""; |
| 95 |
$mountpoint = shift(@ARGV) if @ARGV; |
| 96 |
Fuse::main( |
| 97 |
mountpoint=>$mountpoint, |
| 98 |
getattr=>"main::e_getattr", |
| 99 |
getdir =>"main::e_getdir", |
| 100 |
open =>"main::e_open", |
| 101 |
statfs =>"main::e_statfs", |
| 102 |
read =>"main::e_read", |
| 103 |
threaded=>0 |
| 104 |
); |
Parent Directory
| 
Revision Log