/[Sack]/trunk/bin/sack.pl
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 /trunk/bin/sack.pl

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

revision 31 by dpavlin, Wed Sep 23 18:51:32 2009 UTC revision 33 by dpavlin, Wed Sep 23 20:28:21 2009 UTC
# Line 50  sub BEGIN { Line 50  sub BEGIN {
50          $SIG{INT} = sub {          $SIG{INT} = sub {
51                  my $signame = shift;                  my $signame = shift;
52                  send_nodes 'exit';                  send_nodes 'exit';
53                    #clean if $clean;       # FIXME
54                  die "SIG$signame";                  die "SIG$signame";
55          };          };
56  }  }
57    
58    use lib "$prefix/srv/Sack/lib/";
59  # digest experiment  use Sack::Digest;
60  use BerkeleyDB;  Sack::Digest->open( $port );
61    sub digest { Sack::Digest->digest($_[0]) }
 our $seq = 0;  
 our $btree;  
 my $db_file = "/dev/shm/sack.digest.$port.$offset-$limit";  
 sub digest {  
         my $nr;  
         if ( ! $btree ) {  
                 if ( -e $db_file ) {  
                         warn "[$port] CLEAN removed $db_file ", -s $db_file, " bytes\n";  
                         unlink $db_file;  
                 }  
   
                 our $btree = BerkeleyDB::Btree->new(  
                         -Filename  => $db_file,  
                         -Cachesize => 700_000_000,  
                         -Flags     => DB_CREATE,  
                 ) || die "$db_file: $!";  
   
                 warn "[$port] BDB created $db_file\n";  
         }  
         $btree->db_get( $_[0] => $nr    ) == 0 && return $nr;  
         $btree->db_put( $_[0] => ++$seq ) == 0 || die "$_[0] [$seq] $!";  
         $btree->db_put(  $seq => $_[0]  ) == 0 || die "[$seq] $_[0] $!";  
         return $seq;  
 }  
   
62    
63  use lib "$prefix/srv/webpac2/lib/";  use lib "$prefix/srv/webpac2/lib/";
64  use WebPAC::Input::ISI;  use WebPAC::Input::ISI;
# Line 350  Sacks Lorry v$VERSION - path: $path offs Line 326  Sacks Lorry v$VERSION - path: $path offs
326    
327  __HELP__  __HELP__
328          } elsif ( $cmd =~ m{^(vi|\\e|o)}i ) {          } elsif ( $cmd =~ m{^(vi|\\e|o)}i ) {
329                  system "vi out/*";                  #system "vi out/*";
330                    system "bin/storableedit.pl", (glob('out/*.storable'))[0];
331          } elsif ( $cmd =~ m{^i(?:nfo)?\s?(.+)?$}i ) {          } elsif ( $cmd =~ m{^i(?:nfo)?\s?(.+)?$}i ) {
332                  info;                  info;
333          } elsif ( $cmd =~ m{^(q|e|x)}i ) {          } elsif ( $cmd =~ m{^(q|e|x)}i ) {
Legend:
Removed from v.31  
changed lines
  Added in v.33
  ViewVC Help
Powered by ViewVC 1.1.26