1 |
#!/usr/bin/perl |
#!/usr/bin/perl -w |
2 |
|
use strict; |
3 |
|
|
4 |
use Fuse; |
use Fuse; |
5 |
use POSIX qw(ENOENT EISDIR EINVAL); |
use POSIX qw(ENOENT EISDIR EINVAL); |
82 |
$mountpoint = shift(@ARGV) if @ARGV; |
$mountpoint = shift(@ARGV) if @ARGV; |
83 |
Fuse::main( |
Fuse::main( |
84 |
mountpoint=>$mountpoint, |
mountpoint=>$mountpoint, |
85 |
getattr=>\&e_getattr, |
getattr=>"main::e_getattr", |
86 |
getdir=>\&e_getdir, |
getdir =>"main::e_getdir", |
87 |
open=>\&e_open, |
open =>"main::e_open", |
88 |
statfs=>\&e_statfs, |
statfs =>"main::e_statfs", |
89 |
read=>\&e_read, |
read =>"main::e_read", |
90 |
#debug=>1, threaded=>0 |
threaded=>0 |
91 |
); |
); |