diff options
| author | Mark Glines <mark@glines.org> | 2002-01-07 16:32:02 +0000 |
|---|---|---|
| committer | Mark Glines <mark@glines.org> | 2002-01-07 16:32:02 +0000 |
| commit | d84b39ac42882a2cc2e7f85ed5f02ada03744d9e (patch) | |
| tree | 2af8738e204bdd4f3057fbaf0946ab56447068ff /perl/Fuse.pm | |
| parent | 6ebe234cc8160d7540add80a75cc7772e08236f5 (diff) | |
| download | libfuse-d84b39ac42882a2cc2e7f85ed5f02ada03744d9e.tar.gz | |
Added statfs support to kernel, lib, examples, and perl
other minor perl fixes (still unstable)
Diffstat (limited to 'perl/Fuse.pm')
| -rw-r--r-- | perl/Fuse.pm | 27 |
1 files changed, 21 insertions, 6 deletions
diff --git a/perl/Fuse.pm b/perl/Fuse.pm index 93acfb6..3a20fd9 100644 --- a/perl/Fuse.pm +++ b/perl/Fuse.pm @@ -65,8 +65,8 @@ sub AUTOLOAD { bootstrap Fuse $VERSION; sub main { - my (@subs) = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); - my (@names) = qw(getattr readlink getdir mknod mkdir unlink rmdir symlink rename link chmod chown truncate utime open read write); + my (@subs) = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); + my (@names) = qw(getattr readlink getdir mknod mkdir unlink rmdir symlink rename link chmod chown truncate utime open read write statfs); my ($tmp) = 0; my (%mapping) = map { $_ => $tmp++ } (@names); my (%otherargs) = (debug=>0, threaded=>1, mountpoint=>""); @@ -121,6 +121,14 @@ Every constant you need (file types, open() flags, error values, etc) can be imported either from POSIX or from Fcntl, often both. See their respective documentations, for more information. +=head2 EXPORT + +None by default. + +=head2 EXPORTABLE CONSTANTS + +None. + =head2 FUNCTIONS YOUR FILESYSTEM MAY IMPLEMENT =head3 getattr @@ -278,13 +286,20 @@ Returns an errno. Called in an attempt to write (or overwrite) a portion of the file. Be prepared because $buffer could contain random binary data with NULLs and all sorts of other wonderful stuff. -=head2 EXPORT +=head3 statfs -None by default. +Arguments: none +Returns any of the following: -=head2 Exportable constants +-ENOANO() -None. +or + +$namelen, $files, $files_free, $blocks, $blocks_avail, $blocksize + +or + +-ENOANO(), $namelen, $files, $files_free, $blocks, $blocks_avail, $blocksize =head1 AUTHOR |