/[fuse.before_github]/perl/trunk/examples/loopback.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/loopback.pl

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

revision 10 by dpavlin, Sun Mar 20 00:36:05 2005 UTC revision 18 by dpavlin, Wed Dec 21 15:33:37 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl -w
2    
3  use strict;  use strict;
4  use Fuse;  use Fuse;
# Line 63  sub x_write { Line 63  sub x_write {
63    
64  sub err { return (-shift || -$!) }  sub err { return (-shift || -$!) }
65    
66  sub x_readlink { return readlink(fixup(shift)                 ); }  sub x_readlink { return readlink(fixup(shift));         }
67  sub x_unlink { return unlink(fixup(shift)) ? 0 : -$!;          }  sub x_unlink   { return unlink(fixup(shift)) ? 0 : -$!; }
 sub x_rmdir { return err(rmdir(fixup(shift))               ); }  
68    
69  sub x_symlink { print "symlink\n"; return symlink(shift,fixup(shift)) ? 0 : -$!; }  sub x_symlink { print "symlink\n"; return symlink(shift,fixup(shift)) ? 0 : -$!; }
70    
# Line 115  my ($mountpoint) = ""; Line 114  my ($mountpoint) = "";
114  $mountpoint = shift(@ARGV) if @ARGV;  $mountpoint = shift(@ARGV) if @ARGV;
115  Fuse::main(  Fuse::main(
116          mountpoint=>$mountpoint,          mountpoint=>$mountpoint,
117          getattr=>\&x_getattr,          getattr =>"main::x_getattr",
118          readlink=>\&x_readlink,          readlink=>"main::x_readlink",
119          getdir=>\&x_getdir,          getdir  =>"main::x_getdir",
120          mknod=>\&x_mknod,          mknod   =>"main::x_mknod",
121          mkdir=>\&x_mkdir,          mkdir   =>"main::x_mkdir",
122          unlink=>\&x_unlink,          unlink  =>"main::x_unlink",
123          rmdir=>\&x_rmdir,          rmdir   =>"main::x_rmdir",
124          symlink=>\&x_symlink,          symlink =>"main::x_symlink",
125          rename=>\&x_rename,          rename  =>"main::x_rename",
126          link=>\&x_link,          link    =>"main::x_link",
127          chmod=>\&x_chmod,          chmod   =>"main::x_chmod",
128          chown=>\&x_chown,          chown   =>"main::x_chown",
129          truncate=>\&x_truncate,          truncate=>"main::x_truncate",
130          utime=>\&x_utime,          utime   =>"main::x_utime",
131          open=>\&x_open,          open    =>"main::x_open",
132          read=>\&x_read,          read    =>"main::x_read",
133          write=>\&x_write,          write   =>"main::x_write",
134          statfs=>\&x_statfs,          statfs  =>"main::x_statfs",
135            threaded=>0,
136  );  );

Legend:
Removed from v.10  
changed lines
  Added in v.18

  ViewVC Help
Powered by ViewVC 1.1.26