/[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 51 by dpavlin, Sat Nov 27 14:02:18 2004 UTC revision 52 by dpavlin, Sat Nov 27 15:08:10 2004 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.07';  our $VERSION = '0.07';
16    
17    # block size for this filesystem
18    use constant BLOCK => 1024;
19    
20  =head1 NAME  =head1 NAME
21    
22  Fuse::DBI - mount your database as filesystem and use it  Fuse::DBI - mount your database as filesystem and use it
# Line 247  sub umount { Line 249  sub umount {
249          my $self = shift;          my $self = shift;
250    
251          if ($self->{'mount'} && $self->is_mounted) {          if ($self->{'mount'} && $self->is_mounted) {
252                  system "fusermount -u ".$self->{'mount'}." 2>&1 >/dev/null" ||                  system "( fusermount -u ".$self->{'mount'}." 2>&1 ) >/dev/null" ||
253                          system "sudo umount ".$self->{'mount'} ||                          system "sudo umount ".$self->{'mount'} ||
254                          return 0;                          return 0;
255                  return 1;                  return 1;
# Line 369  sub e_getattr { Line 371  sub e_getattr {
371          $file =~ s,^/,,;          $file =~ s,^/,,;
372          $file = '.' unless length($file);          $file = '.' unless length($file);
373          return -ENOENT() unless exists($files{$file});          return -ENOENT() unless exists($files{$file});
374          my ($size) = $files{$file}{size} || 1024;          my ($size) = $files{$file}{size} || BLOCK;
375          my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,int(($size+1023)/1024),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);
376          my ($atime, $ctime, $mtime);          my ($atime, $ctime, $mtime);
377          $atime = $ctime = $mtime = $files{$file}{ctime} || $ctime_start;          $atime = $ctime = $mtime = $files{$file}{ctime} || $ctime_start;
378    
# Line 556  sub e_statfs { Line 558  sub e_statfs {
558                  print "$inodes: $f [$size]\n";                  print "$inodes: $f [$size]\n";
559          }          }
560    
561          $size = int(($size+1023)/1024);          $size = int(($size+BLOCK-1)/BLOCK);
562    
563          my @ret = (255, $inodes+1000, $inodes, $size, $size-10, 1024);          my @ret = (255, $inodes, 1, $size, $size-1, BLOCK);
564    
565          print "statfs: ",join(",",@ret),"\n";          print "statfs: ",join(",",@ret),"\n";
566    

Legend:
Removed from v.51  
changed lines
  Added in v.52

  ViewVC Help
Powered by ViewVC 1.1.26