/[fuse.before_github]/perl-llin/Fuse.pm
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-llin/Fuse.pm

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

revision 14 by richdawe, Sun Apr 10 13:30:11 2005 UTC revision 16 by dpavlin, Wed Jun 22 16:15:17 2005 UTC
# Line 81  sub main { Line 81  sub main {
81          my (@names) = qw(getattr readlink getdir mknod mkdir unlink rmdir symlink          my (@names) = qw(getattr readlink getdir mknod mkdir unlink rmdir symlink
82                           rename link chmod chown truncate utime open read write statfs                           rename link chmod chown truncate utime open read write statfs
83                           flush release fsync setxattr getxattr listxattr removexattr);                           flush release fsync setxattr getxattr listxattr removexattr);
84            my (@validOpts) = qw(allow_other);
85          my ($tmp) = 0;          my ($tmp) = 0;
86          my (%mapping) = map { $_ => $tmp++ } (@names);          my (%mapping) = map { $_ => $tmp++ } (@names);
87          my (%otherargs) = (debug=>0, mountpoint=>"");          my (%optmap) = map { $_ => 1 } (@validOpts);
88            my (%otherargs) = (debug=>0, mountpoint=>"", mountopts=>"");
89          while(my $name = shift) {          while(my $name = shift) {
90                  my ($subref) = shift;                  my ($subref) = shift;
91                  if(exists($otherargs{$name})) {                  if(exists($otherargs{$name})) {
# Line 96  sub main { Line 98  sub main {
98                          $subs[$mapping{$name}] = $subref;                          $subs[$mapping{$name}] = $subref;
99                  }                  }
100          }          }
101          perl_fuse_main($otherargs{debug},$otherargs{mountpoint},@subs);          foreach my $opt ( split(/,/,$otherargs{mountopts}) ) {
102              if ( ! exists($optmap{$opt}) ) {
103                croak "Use of an invalid mountopt argument";
104              }
105            }
106            perl_fuse_main($otherargs{debug},$otherargs{mountpoint},$otherargs{mountopts},@subs);
107  }  }
108    
109  # Autoload methods go after =cut, and are processed by the autosplit program.  # Autoload methods go after =cut, and are processed by the autosplit program.
# Line 174  specify this.  An example would be '/mnt Line 181  specify this.  An example would be '/mnt
181    
182  =back  =back
183    
184    mountopts => string
185    
186    =over 1
187    
188    This is a comma seperated list of mount options to pass to the FUSE kernel
189    module.
190    
191    At present, it allows the specification of the allow_other
192    argument when mounting the new FUSE filesystem. To use this, you will also
193    need 'user_allow_other' in /etc/fuse.conf as per the FUSE documention
194    
195      mountopts => "allow_other" or
196      mountopts => ""
197    
198    =back
199    
200  unthreaded => boolean  unthreaded => boolean
201    
202  =over 1  =over 1

Legend:
Removed from v.14  
changed lines
  Added in v.16

  ViewVC Help
Powered by ViewVC 1.1.26