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) { |
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 |
} |
} |
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"); |