9 

     9 use POSIX qw(setpgid);

    10 my $opt_debug = 0;

    10 use Pod::Usage;

    11 

    11 use Hash::Util qw(lock_keys);

    12 GetOptions("debug!" => \$opt_debug)

    12 use File::Basename;

    13 	and @ARGV == 2

    13 

    14 	or die "Bad Usage\n";

    14 my %o = (

    15 

    15     debug => undef,

    16 my $src = shift;

    16     detach => 1,

    17 my $mp = shift;

    17 ); lock_keys %o;

    18 

    18 

    19 $fs::DATA = "$src/data";

    19 use constant ME => basename $0;

    20 $fs::IDX = "$src/idx";

    20 

    21 

    21 MAIN: {

    22 Fuse::main(mountpoint => $mp,

    22 

    23     debug => $opt_debug,

    23     GetOptions(

    24     getattr => "fs::getattr",

    24 	"d|debug!" => \$o{debug},

    25     getdir => "fs::getdir",

    25 	"detach!" => \$o{detach},

    26     open => "fs::openfile",

    26 	"h|help" => sub { pod2usage(-verbose => 1, -exit => 0) },

    27     read => "fs::readbuffer",

    27 	"m|man" =>  sub { pod2usage(-verbose => 2, -exit => 0,

    28     write => "fs::writebuffer",

    28 		-noperlpod => system("perldoc -V 1>/dev/null 2>&1")) },

    29     );

    29 	) and @ARGV == 2 or pod2usage;

    30 

    30 

    31     my ($src, $mp) = @ARGV;

    32 

    33     $fs::DATA = "$src/data";

    34     $fs::IDX = "$src/idx";

    35 

    36     die ME.": $fs::DATA: $!" if not -d $fs::DATA;

    37     die ME.": $fs::IDX: $!" if not -d $fs::IDX;

    38 

    39     if (!$o{debug} and $o{detach}) {

    40 	fork() and exit;

    41 	$0 = "FUSE $src $mp";

    42 	open(STDOUT => ">/dev/null");

    43 	open(STDIN => "/dev/null");

    44 

    45 	setpgid($$ => $$);

    46     }

    47 

    48 

    49     Fuse::main(mountpoint => $mp,

    50 	debug => $o{debug} // 0,

    51 	getattr => "fs::getattr",

    52 	getdir => "fs::getdir",

    53 	open => "fs::openfile",

    54 	read => "fs::readbuffer",

    55 	write => "fs::writebuffer",

    56 	);

    57 

    58 }