Changeset 10158 for trunk/gsdl/perllib/lucenebuilder.pm

Timestamp:

2005-06-23T11:23:42+12:00 (19 years ago)

Author:

davidb

Message:

*builder.pm packages (principally lucenebuilder.pl which inherits from
mgppbuilder) upgraded to support incremental building.

File:

• trunk/gsdl/perllib/lucenebuilder.pm (modified) (3 diffs)

trunk/gsdl/perllib/lucenebuilder.pm

@@ -58 +58 @@
 
     eval("\$self->{'buildproc'} = new $buildproctype(\$collection, " .
-     "\$source_dir, \$build_dir, \$verbosity, \$outhandle)");
+     "\$source_dir, \$build_dir, \$keepold, \$verbosity, \$outhandle)");
     die "$@" if $@;
 
@@ -217 +217 @@
     my $lucene_passes_sections = $llevel;
 
+    my $opt_create_index = ($self->{'keepold'}) ? "" : "-create";
+
     my $osextra = "";
     if ($ENV{'GSDLOS'} =~ /^windows$/i) {
     $build_dir =~ s@/@\\@g;
     } else {
-    $osextra = " -d /";
     if ($outhandle ne "STDERR") {
         # so lucene_passes doesn't print to stderr if we redirect output
@@ -275 +276 @@
     } else {
     if (!-e "$lucene_passes_exe" || 
-        !open (PIPEOUT, "| $full_lucene_passes_exe index $lucene_passes_sections \"$build_dir\" \"$indexdir\"   $osextra")) {
+        !open (PIPEOUT, "| $full_lucene_passes_exe $opt_create_index index $lucene_passes_sections \"$build_dir\" \"$indexdir\"   $osextra")) {
         print STDERR "<FatalError name='NoRunLucenePasses'/>\n</Stage>\n" if $self->{'gli'};
         die "lucenebuilder::build_index - couldn't run $lucene_passes_exe\n";