added HyperEstraierIndex configuration option

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/BackupPC/trunk@82 8392b6e1-25fa-0310-8288-cc32f8e212ea

diff --git a/bin/BackupPC_updatedb b/bin/BackupPC_updatedb
index 13a91c4..9b95214 100755 (executable)
--- a/bin/BackupPC_updatedb
+++ b/bin/BackupPC_updatedb
@@ -40,6 +40,7 @@ my $beenThere = {};
 
 my $dsn = $Conf{SearchDSN} || die "Need SearchDSN in config.pl\n";
 my $user = $Conf{SearchUser} || '';
+my $index_path = $Conf{HyperEstraierIndex};
 
 my $dbh = DBI->connect($dsn, $user, "", { RaiseError => 1, AutoCommit => 0 });
 
@@ -67,14 +68,8 @@ if ($opt{v}) {
 ## update index ##
 if ($opt{i}) {
 
-       my $index_dir = '/var/tmp/casket';
-
-       print "updating HyperEstraier index $index_dir...";
-
-       use HyperEstraier;
-       my $db = HyperEstraier::Database->new();
-       $db->open($index_dir, $HyperEstraier::Database::DBWRITER | $HyperEstraier::Database::DBCREAT);
-
+       print "updating HyperEstraier files ";
+       
        my $sth = $dbh->prepare(qq{
                SELECT
                        files.id                        AS fid,
@@ -110,6 +105,15 @@ if ($opt{i}) {
        my $i = 0;
        my $max = int($sth->rows / $dot);
 
+       $index_path = $TopDir . '/' . $index_path;
+       $index_path =~ s#//#/#g;
+
+       print "index $index_path...";
+       use HyperEstraier;
+       my $db = HyperEstraier::Database->new();
+       $db->open($index_path, $HyperEstraier::Database::DBWRITER | $HyperEstraier::Database::DBCREAT);
+
+
        while (my $row = $sth->fetchrow_hashref()) {
 
                # create a document object 

diff --git a/conf/config.pl b/conf/config.pl
index ea7a4f2..454118d 100644 (file)
--- a/conf/config.pl
+++ b/conf/config.pl
@@ -1748,4 +1748,9 @@ $Conf{CgiCSSFile} = 'BackupPC_stnd.css';
 #$Conf{SearchDSN} = 'dbi:SQLite:dbname=$TopDir/search.db';
 $Conf{SearchDSN} = 'dbi:Pg:dbname=backuppc';
 $Conf{SearchUser} = 'dpavlin';
+#
+# if you want to use experimental HyperEstraier support (which require
+# installation of HyperEstraier and swig binding for perl) select
+# path to index (relative to $TopDir)
+$Conf{HyperEstraierIndex} = '/casket/';