/[fuse.before_github]/perl/trunk/examples/example.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /perl/trunk/examples/example.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 18 by mszeredi, Thu Nov 11 14:44:15 2004 UTC revision 19 by dpavlin, Tue Dec 27 12:47:00 2005 UTC
# Line 1  Line 1 
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);
# Line 81  my ($mountpoint) = ""; Line 82  my ($mountpoint) = "";
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  );  );
Legend:
Removed from v.18  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26