use Cwd qw/abs_path/;
use Data::Dump qw(dump);
-our $search_module;
-BEGIN {
- $search_module = "BackupPC::Search::Estraier";
- $search_module = "BackupPC::Search::KinoSearch" if $ENV{KINO};
- eval "use $search_module";
- if ( $@ ) {
- warn "ERROR: $search_module: $!";
- } else {
- warn "# using $search_module for full-text search";
- }
-}
-
use constant BPC_FTYPE_DIR => 5;
use constant EST_CHUNK => 4096;
my $offset = 0;
my $added = 0;
- my $search = $search_module->new( $index_node_url );
+ my $search = BackupPC::Search->search_module;
my $results = 0;
} while ($results == EST_CHUNK);
+ $search->commit;
+
my $dur = (time() - $t) || 1;
printf(" [%.2f/s dur: %s]\n",
( $added / $dur ),