--- perl-llin/Fuse.pm 2006/05/23 14:45:53 89 +++ perl-llin/Fuse.pm 2008/03/16 13:40:44 120 @@ -21,14 +21,14 @@ # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. our %EXPORT_TAGS = ( - 'all' => [ qw(XATTR_CREATE XATTR_REPLACE) ], + 'all' => [ qw(XATTR_CREATE XATTR_REPLACE fuse_get_context) ], 'xattr' => [ qw(XATTR_CREATE XATTR_REPLACE) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = (); -our $VERSION = '0.07_3'; +our $VERSION = '0.09_2'; sub AUTOLOAD { # This AUTOLOAD is used to 'autoload' constants from the constant() @@ -79,7 +79,7 @@ rename link chmod chown truncate utime open read write statfs flush release fsync setxattr getxattr listxattr removexattr); my @subs = map {undef} @names; - my @validOpts = qw(ro allow_other default_permissions fsname use_ino); + my @validOpts = qw(ro allow_other default_permissions fsname use_ino nonempty); my $tmp = 0; my %mapping = map { $_ => $tmp++ } @names; my %optmap = map { $_ => 1 } @validOpts; @@ -234,6 +234,15 @@ =back +=head3 Fuse::fuse_get_context + + use Fuse "fuse_get_context"; + my $caller_uid = fuse_get_context()->{"uid"}; + my $caller_gid = fuse_get_context()->{"gid"}; + my $caller_pid = fuse_get_context()->{"pid"}; + +Access context information about the current Fuse operation. + =head2 FUNCTIONS YOUR FILESYSTEM MAY IMPLEMENT =head3 getattr