/[webpac2]/trunk/lib/WebPAC/Output/EstraierNative.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 /trunk/lib/WebPAC/Output/EstraierNative.pm

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

revision 673 by dpavlin, Mon Sep 11 20:49:37 2006 UTC revision 782 by dpavlin, Sun Nov 5 16:51:49 2006 UTC
# Line 95  sub new { Line 95  sub new {
95          my $path = 'casket';          my $path = 'casket';
96          $path =~ s!/+$!!;          $path =~ s!/+$!!;
97    
98          $self->{_casket_path} = $path;          $path .= '/' . $self->{database};
99    
100            $self->{path} = $path;
101    
102          $path .= '.tmp';          $path .= '.tmp';
103          if (-e $path) {          if (-e $path) {
# Line 199  sub add { Line 201  sub add {
201          }          }
202    
203          $log->debug("adding ", sub { $doc->dump_draft } );          $log->debug("adding ", sub { $doc->dump_draft } );
204          $self->{'db'}->put_doc($doc, Database::PDCLEAN) || $log->warn("can't add document $uri with draft " . $doc->dump_draft . " to node " . $self->{path} . " status: " . $self->{db}->status());          $self->{'db'}->put_doc($doc, Database::PDCLEAN) || $log->warn("can't add document $uri with draft " . $doc->dump_draft . " to node " . $self->{path} . " status: " . $self->{db}->error());
205    
206          return 1;          return 1;
207  }  }
# Line 267  sub finish { Line 269  sub finish {
269    
270          $self->{db}->close || $log->logdie("can't close index");          $self->{db}->close || $log->logdie("can't close index");
271    
272          my $path = $self->{_casket_path} || $log->logdie("no _casket_path?");          my $path = $self->{path} || $log->logdie("no path?");
273    
274          if (-e $path) {          if (-e $path) {
275                  $log->warn("removing old $path");                  $log->warn("removing old $path");
Legend:
Removed from v.673  
changed lines
  Added in v.782
  ViewVC Help
Powered by ViewVC 1.1.26