#!/usr/bin/perl
-package BackupPC::SearchLib;
+package BackupPC::Search;
use strict;
use BackupPC::CGI::Lib qw(:all);
use Time::HiRes qw/time/;
use XML::Writer;
use IO::File;
-use BackupPC::Search::Estraier;
+use Data::Dump qw(dump);
my $on_page = 100;
my $pager_pages = 10;
my $dsn = $Conf{SearchDSN};
my $db_user = $Conf{SearchUser} || '';
-my $hest_node_url = $Conf{HyperEstraierIndex};
+our $search_module;
-my $dbh;
+sub search_module {
+
+ $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";
+ }
+ my $bpc = BackupPC::Lib->new || die;
+ my %Conf = $bpc->Conf();
+ return $search_module->new( %Conf );
+}
+
+my $dbh;
sub get_dbh {
$dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
my $shareid = $param->{'search_share'};
my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
- return BackupPC::Search::Estraier->new( $hest_node_url )->search(
+ return search_module->search(
$offset, $on_page, $param->{sort},
$q, $shareid, $backup_from, $backup_to, $files_from, $files_to
);