/[fuse_dbi]/fuse-couchdb/DBI.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 /fuse-couchdb/DBI.pm

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

revision 36 by dpavlin, Tue Nov 16 15:34:25 2004 UTC revision 61 by dpavlin, Tue Jan 3 14:56:35 2006 UTC
# Line 12  use DBI; Line 12  use DBI;
12  use Carp;  use Carp;
13  use Data::Dumper;  use Data::Dumper;
14    
15    our $VERSION = '0.09_1';
16    
17  our $VERSION = '0.05';  # block size for this filesystem
18    use constant BLOCK => 1024;
19    
20  =head1 NAME  =head1 NAME
21    
# Line 132  sub mount { Line 134  sub mount {
134    
135          print Dumper($arg);          print Dumper($arg);
136    
137            unless ($self->fuse_module_loaded) {
138                    print STDERR "no fuse module loaded. Trying sudo modprobe fuse!\n";
139                    system "sudo modprobe fuse" || die "can't modprobe fuse using sudo!\n";
140            }
141    
142          carp "mount needs 'dsn' to connect to (e.g. dsn => 'DBI:Pg:dbname=test')" unless ($arg->{'dsn'});          carp "mount needs 'dsn' to connect to (e.g. dsn => 'DBI:Pg:dbname=test')" unless ($arg->{'dsn'});
143          carp "mount needs 'mount' as mountpoint" unless ($arg->{'mount'});          carp "mount needs 'mount' as mountpoint" unless ($arg->{'mount'});
144    
# Line 148  sub mount { Line 155  sub mount {
155    
156          my $pid;          my $pid;
157          if ($arg->{'fork'}) {          if ($arg->{'fork'}) {
                 $self->{'mounted'} = 1;  
158                  $pid = fork();                  $pid = fork();
159                  die "fork() failed: $!" unless defined $pid;                  die "fork() failed: $!" unless defined $pid;
160                  # child will return to caller                  # child will return to caller
161                  if ($pid) {                  if ($pid) {
162                          return $self;                          my $counter = 4;
163                            while ($counter && ! $self->is_mounted) {
164                                    select(undef, undef, undef, 0.5);
165                                    $counter--;
166                            }
167                            if ($self->is_mounted) {
168                                    return $self;
169                            } else {
170                                    return undef;
171                            }
172                  }                  }
173          }          }
174    
# Line 170  sub mount { Line 185  sub mount {
185          $self->{'read_filenames'} = sub { $self->read_filenames };          $self->{'read_filenames'} = sub { $self->read_filenames };
186          $self->read_filenames;          $self->read_filenames;
187    
         $self->{'mounted'} = 1 unless ($arg->{'fork'});  
   
188          $fuse_self = \$self;          $fuse_self = \$self;
189    
190          Fuse::main(          Fuse::main(
# Line 189  sub mount { Line 202  sub mount {
202                  debug=>0,                  debug=>0,
203          );          );
204                    
         $self->{'mounted'} = 0;  
   
205          exit(0) if ($arg->{'fork'});          exit(0) if ($arg->{'fork'});
206    
207          return 1;          return 1;
208    
209  };  };
210    
211    =head2 is_mounted
212    
213    Check if fuse filesystem is mounted
214    
215      if ($mnt->is_mounted) { ... }
216    
217    =cut
218    
219    sub is_mounted {
220            my $self = shift;
221    
222            my $mounted = 0;
223            my $mount = $self->{'mount'} || confess "can't find mount point!";
224            if (open(MTAB, "/etc/mtab")) {
225                    while(<MTAB>) {
226                            $mounted = 1 if (/ $mount fuse /i);
227                    }
228                    close(MTAB);
229            } else {
230                    warn "can't open /etc/mtab: $!";
231            }
232    
233            return $mounted;
234    }
235    
236    
237  =head2 umount  =head2 umount
238    
239  Unmount your database as filesystem.  Unmount your database as filesystem.
# Line 211  database to filesystem. Line 248  database to filesystem.
248  sub umount {  sub umount {
249          my $self = shift;          my $self = shift;
250    
251          if ($self->{'mounted'}) {          if ($self->{'mount'} && $self->is_mounted) {
252                  system "fusermount -u ".$self->{'mount'} || warn "umount error: $!" && return 0;                  system "( fusermount -u ".$self->{'mount'}." 2>&1 ) >/dev/null";
253                    if ($self->is_mounted) {
254                            system "sudo umount ".$self->{'mount'} ||
255                            return 0;
256                    }
257                    return 1;
258          }          }
259    
260          return 1;          return 0;
261  }  }
262    
263  $SIG{'INT'} = sub {  $SIG{'INT'} = sub {
264          print STDERR "umount called by SIG INT\n";          if ($fuse_self && $$fuse_self->umount) {
265          umount;                  print STDERR "umount called by SIG INT\n";
266            }
267    };
268    
269    $SIG{'QUIT'} = sub {
270            if ($fuse_self && $$fuse_self->umount) {
271                    print STDERR "umount called by SIG QUIT\n";
272            }
273  };  };
274    
275  sub DESTROY {  sub DESTROY {
276          my $self = shift;          my $self = shift;
277          return if (! $self->{'mounted'});          if ($self->umount) {
278          print STDERR "umount called by DESTROY\n";                  print STDERR "umount called by DESTROY\n";
279          $self->umount;          }
280  }  }
281    
282  =head2 fuse_module_loaded  =head2 fuse_module_loaded
# Line 251  sub fuse_module_loaded { Line 300  sub fuse_module_loaded {
300          }          }
301  }  }
302    
303  my %files;  my $files;
 my %dirs;  
304    
305  sub read_filenames {  sub read_filenames {
306          my $self = shift;          my $self = shift;
# Line 260  sub read_filenames { Line 308  sub read_filenames {
308          my $sth = $self->{'sth'} || die "no sth argument";          my $sth = $self->{'sth'} || die "no sth argument";
309    
310          # create empty filesystem          # create empty filesystem
311          (%files) = (          $files = {
312                  '.' => {                  '.' => {
313                          type => 0040,                          type => 0040,
314                          mode => 0755,                          mode => 0755,
315                  },                  },
316                    '..' => {
317                            type => 0040,
318                            mode => 0755,
319                    },
320          #       a => {          #       a => {
321          #               cont => "File 'a'.\n",          #               cont => "File 'a'.\n",
322          #               type => 0100,          #               type => 0100,
323          #               ctime => time()-2000          #               ctime => time()-2000
324          #       },          #       },
325          );          };
326    
327          # fetch new filename list from database          # fetch new filename list from database
328          $sth->{'filenames'}->execute() || die $sth->{'filenames'}->errstr();          $sth->{'filenames'}->execute() || die $sth->{'filenames'}->errstr();
329    
330          # read them in with sesible defaults          # read them in with sesible defaults
331          while (my $row = $sth->{'filenames'}->fetchrow_hashref() ) {          while (my $row = $sth->{'filenames'}->fetchrow_hashref() ) {
332                  $files{$row->{'filename'}} = {                  $row->{'filename'} ||= 'NULL-'.$row->{'id'};
333                    $files->{$row->{'filename'}} = {
334                          size => $row->{'size'},                          size => $row->{'size'},
335                          mode => $row->{'writable'} ? 0644 : 0444,                          mode => $row->{'writable'} ? 0644 : 0444,
336                          id => $row->{'id'} || 99,                          id => $row->{'id'} || 99,
337                  };                  };
338    
339    
340                  my $d;                  my $d;
341                  foreach (split(m!/!, $row->{'filename'})) {                  foreach (split(m!/!, $row->{'filename'})) {
342                          # first, entry is assumed to be file                          # first, entry is assumed to be file
343                          if ($d) {                          if ($d) {
344                                  $files{$d} = {                                  $files->{$d} = {
                                                 size => $dirs{$d}++,  
345                                                  mode => 0755,                                                  mode => 0755,
346                                                  type => 0040                                                  type => 0040
347                                  };                                  };
348                                  $files{$d.'/.'} = {                                  $files->{$d.'/.'} = {
349                                                  mode => 0755,                                                  mode => 0755,
350                                                  type => 0040                                                  type => 0040
351                                  };                                  };
352                                  $files{$d.'/..'} = {                                  $files->{$d.'/..'} = {
353                                                  mode => 0755,                                                  mode => 0755,
354                                                  type => 0040                                                  type => 0040
355                                  };                                  };
# Line 306  sub read_filenames { Line 359  sub read_filenames {
359                  }                  }
360          }          }
361    
362          print "found ",scalar(keys %files)-scalar(keys %dirs)," files, ",scalar(keys %dirs), " dirs\n";          print "found ",scalar(keys %{$files})," files\n";
363  }  }
364    
365    
# Line 321  sub e_getattr { Line 374  sub e_getattr {
374          my ($file) = filename_fixup(shift);          my ($file) = filename_fixup(shift);
375          $file =~ s,^/,,;          $file =~ s,^/,,;
376          $file = '.' unless length($file);          $file = '.' unless length($file);
377          return -ENOENT() unless exists($files{$file});          return -ENOENT() unless exists($files->{$file});
378          my ($size) = $files{$file}{size} || 1;          my ($size) = $files->{$file}->{size} || 0;
379          my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,1,0,0,1,1024);          my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,int(($size+BLOCK-1)/BLOCK),0,0,1,BLOCK);
380          my ($atime, $ctime, $mtime);          my ($atime, $ctime, $mtime);
381          $atime = $ctime = $mtime = $files{$file}{ctime} || $ctime_start;          $atime = $ctime = $mtime = $files->{$file}->{ctime} || $ctime_start;
382    
383          my ($modes) = (($files{$file}{type} || 0100)<<9) + $files{$file}{mode};          my ($modes) = (($files->{$file}->{type} || 0100)<<9) + $files->{$file}->{mode};
384    
385          # 2 possible types of return values:          # 2 possible types of return values:
386          #return -ENOENT(); # or any other error you care to          #return -ENOENT(); # or any other error you care to
387          #print(join(",",($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)),"\n");          #print "getattr($file) ",join(",",($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)),"\n";
388          return ($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks);          return ($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks);
389  }  }
390    
# Line 339  sub e_getdir { Line 392  sub e_getdir {
392          my ($dirname) = shift;          my ($dirname) = shift;
393          $dirname =~ s!^/!!;          $dirname =~ s!^/!!;
394          # return as many text filenames as you like, followed by the retval.          # return as many text filenames as you like, followed by the retval.
395          print((scalar keys %files)." files total\n");          print((scalar keys %{$files})." files total\n");
396          my %out;          my %out;
397          foreach my $f (sort keys %files) {          foreach my $f (sort keys %{$files}) {
398                  if ($dirname) {                  if ($dirname) {
399                          if ($f =~ s/^\Q$dirname\E\///) {                          if ($f =~ s/^\Q$dirname\E\///) {
400                                  $out{$f}++ if ($f =~ /^[^\/]+$/);                                  $out{$f}++ if ($f =~ /^[^\/]+$/);
# Line 364  sub read_content { Line 417  sub read_content {
417          die "read_content needs file and id" unless ($file && $id);          die "read_content needs file and id" unless ($file && $id);
418    
419          $sth->{'read'}->execute($id) || die $sth->{'read'}->errstr;          $sth->{'read'}->execute($id) || die $sth->{'read'}->errstr;
420          $files{$file}{cont} = $sth->{'read'}->fetchrow_array;          $files->{$file}->{cont} = $sth->{'read'}->fetchrow_array;
421          # I should modify ctime only if content in database changed          # I should modify ctime only if content in database changed
422          #$files{$file}{ctime} = time() unless ($files{$file}{ctime});          #$files->{$file}->{ctime} = time() unless ($files->{$file}->{ctime});
423          print "file '$file' content [",length($files{$file}{cont})," bytes] read in cache\n";          print "file '$file' content [",length($files->{$file}->{cont})," bytes] read in cache\n";
424  }  }
425    
426    
# Line 376  sub e_open { Line 429  sub e_open {
429          my $file = filename_fixup(shift);          my $file = filename_fixup(shift);
430          my $flags = shift;          my $flags = shift;
431    
432          return -ENOENT() unless exists($files{$file});          return -ENOENT() unless exists($files->{$file});
433          return -EISDIR() unless exists($files{$file}{id});          return -EISDIR() unless exists($files->{$file}->{id});
434    
435          read_content($file,$files{$file}{id}) unless exists($files{$file}{cont});          read_content($file,$files->{$file}->{id}) unless exists($files->{$file}->{cont});
436    
437          print "open '$file' ",length($files{$file}{cont})," bytes\n";          $files->{$file}->{cont} ||= '';
438            print "open '$file' ",length($files->{$file}->{cont})," bytes\n";
439          return 0;          return 0;
440  }  }
441    
# Line 392  sub e_read { Line 446  sub e_read {
446          my ($file) = filename_fixup(shift);          my ($file) = filename_fixup(shift);
447          my ($buf_len,$off) = @_;          my ($buf_len,$off) = @_;
448    
449          return -ENOENT() unless exists($files{$file});          return -ENOENT() unless exists($files->{$file});
450    
451          my $len = length($files{$file}{cont});          my $len = length($files->{$file}->{cont});
452    
453          print "read '$file' [$len bytes] offset $off length $buf_len\n";          print "read '$file' [$len bytes] offset $off length $buf_len\n";
454    
# Line 403  sub e_read { Line 457  sub e_read {
457    
458          $buf_len = $len-$off if ($len - $off < $buf_len);          $buf_len = $len-$off if ($len - $off < $buf_len);
459    
460          return substr($files{$file}{cont},$off,$buf_len);          return substr($files->{$file}->{cont},$off,$buf_len);
461  }  }
462    
463  sub clear_cont {  sub clear_cont {
464          print "transaction rollback\n";          print "transaction rollback\n";
465          $dbh->rollback || die $dbh->errstr;          $dbh->rollback || die $dbh->errstr;
466          print "invalidate all cached content\n";          print "invalidate all cached content\n";
467          foreach my $f (keys %files) {          foreach my $f (keys %{$files}) {
468                  delete $files{$f}{cont};                  delete $files->{$f}->{cont};
469                  delete $files{$f}{ctime};                  delete $files->{$f}->{ctime};
470          }          }
471          print "begin new transaction\n";          print "begin new transaction\n";
472          #$dbh->begin_work || die $dbh->errstr;          #$dbh->begin_work || die $dbh->errstr;
# Line 422  sub clear_cont { Line 476  sub clear_cont {
476  sub update_db {  sub update_db {
477          my $file = shift || die;          my $file = shift || die;
478    
479          $files{$file}{ctime} = time();          $files->{$file}->{ctime} = time();
480    
481          my ($cont,$id) = (          my ($cont,$id) = (
482                  $files{$file}{cont},                  $files->{$file}->{cont},
483                  $files{$file}{id}                  $files->{$file}->{id}
484          );          );
485    
486          if (!$sth->{'update'}->execute($cont,$id)) {          if (!$sth->{'update'}->execute($cont,$id)) {
# Line 439  sub update_db { Line 493  sub update_db {
493                          clear_cont;                          clear_cont;
494                          return 0;                          return 0;
495                  }                  }
496                  print "updated '$file' [",$files{$file}{id},"]\n";                  print "updated '$file' [",$files->{$file}->{id},"]\n";
497    
498                  $$fuse_self->{'invalidate'}->() if (ref $$fuse_self->{'invalidate'});                  $$fuse_self->{'invalidate'}->() if (ref $$fuse_self->{'invalidate'});
499          }          }
# Line 450  sub e_write { Line 504  sub e_write {
504          my $file = filename_fixup(shift);          my $file = filename_fixup(shift);
505          my ($buffer,$off) = @_;          my ($buffer,$off) = @_;
506    
507          return -ENOENT() unless exists($files{$file});          return -ENOENT() unless exists($files->{$file});
508    
509          my $cont = $files{$file}{cont};          my $cont = $files->{$file}->{cont};
510          my $len = length($cont);          my $len = length($cont);
511    
512          print "write '$file' [$len bytes] offset $off length ",length($buffer),"\n";          print "write '$file' [$len bytes] offset $off length ",length($buffer),"\n";
513    
514          $files{$file}{cont} = "";          $files->{$file}->{cont} = "";
515    
516          $files{$file}{cont} .= substr($cont,0,$off) if ($off > 0);          $files->{$file}->{cont} .= substr($cont,0,$off) if ($off > 0);
517          $files{$file}{cont} .= $buffer;          $files->{$file}->{cont} .= $buffer;
518          $files{$file}{cont} .= substr($cont,$off+length($buffer),$len-$off-length($buffer)) if ($off+length($buffer) < $len);          $files->{$file}->{cont} .= substr($cont,$off+length($buffer),$len-$off-length($buffer)) if ($off+length($buffer) < $len);
519    
520          $files{$file}{size} = length($files{$file}{cont});          $files->{$file}->{size} = length($files->{$file}->{cont});
521    
522          if (! update_db($file)) {          if (! update_db($file)) {
523                  return -ENOSYS();                  return -ENOSYS();
# Line 478  sub e_truncate { Line 532  sub e_truncate {
532    
533          print "truncate to $size\n";          print "truncate to $size\n";
534    
535          $files{$file}{cont} = substr($files{$file}{cont},0,$size);          $files->{$file}->{cont} = substr($files->{$file}->{cont},0,$size);
536          $files{$file}{size} = $size;          $files->{$file}->{size} = $size;
537          return 0          return 0
538  };  };
539    
# Line 488  sub e_utime { Line 542  sub e_utime {
542          my ($atime,$mtime,$file) = @_;          my ($atime,$mtime,$file) = @_;
543          $file = filename_fixup($file);          $file = filename_fixup($file);
544    
545          return -ENOENT() unless exists($files{$file});          return -ENOENT() unless exists($files->{$file});
546    
547          print "utime '$file' $atime $mtime\n";          print "utime '$file' $atime $mtime\n";
548    
549          $files{$file}{time} = $mtime;          $files->{$file}->{time} = $mtime;
550          return 0;          return 0;
551  }  }
552    
553  sub e_statfs { return 255, 1, 1, 1, 1, 2 }  sub e_statfs {
554    
555            my $size = 0;
556            my $inodes = 0;
557    
558            foreach my $f (keys %{$files}) {
559                    if ($f !~ /(^|\/)\.\.?$/) {
560                            $size += $files->{$f}->{size} || 0;
561                            $inodes++;
562                    }
563                    print "$inodes: $f [$size]\n";
564            }
565    
566            $size = int(($size+BLOCK-1)/BLOCK);
567    
568            my @ret = (255, $inodes, 1, $size, $size-1, BLOCK);
569    
570            #print "statfs: ",join(",",@ret),"\n";
571    
572            return @ret;
573    }
574    
575  sub e_unlink {  sub e_unlink {
576          my $file = filename_fixup(shift);          my $file = filename_fixup(shift);
577    
578          if (exists( $dirs{$file} )) {  #       if (exists( $dirs{$file} )) {
579                  print "unlink '$file' will re-read template names\n";  #               print "unlink '$file' will re-read template names\n";
580                  print Dumper($fuse_self);  #               print Dumper($fuse_self);
581                  $$fuse_self->{'read_filenames'}->();  #               $$fuse_self->{'read_filenames'}->();
582                  return 0;  #               return 0;
583          } elsif (exists( $files{$file} )) {          if (exists( $files->{$file} )) {
584                  print "unlink '$file' will invalidate cache\n";                  print "unlink '$file' will invalidate cache\n";
585                  read_content($file,$files{$file}{id});                  read_content($file,$files->{$file}->{id});
586                  return 0;                  return 0;
587          }          }
588    
# Line 521  __END__ Line 595  __END__
595    
596  Nothing.  Nothing.
597    
598    =head1 BUGS
599    
600    Size information (C<ls -s>) is wrong. It's a problem in upstream Fuse module
601    (for which I'm to blame lately), so when it gets fixes, C<Fuse::DBI> will
602    automagically pick it up.
603    
604  =head1 SEE ALSO  =head1 SEE ALSO
605    
606  C<FUSE (Filesystem in USErspace)> website  C<FUSE (Filesystem in USErspace)> website
Legend:
Removed from v.36  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.26