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

Timestamp:

2005-08-10T16:19:17+12:00 (19 years ago)

Author:

kjdon

Message:

made a base builder class, adn moved lots of the code to it. hoe I haven't stuffed anything up :-)

File:

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

trunk/gsdl/perllib/lucenebuilder.pm

@@ -44 +44 @@
     $self = bless $self, $class;
 
-    # load up the document processor for building
-    # if a buildproc class has been created for this collection, use it
-    # otherwise, use the lucene buildproc
-    my ($buildprocdir, $buildproctype);
-    if (-e "$ENV{'GSDLCOLLECTDIR'}/perllib/${collection}buildproc.pm") {
-    $buildprocdir = "$ENV{'GSDLCOLLECTDIR'}/perllib";
-    $buildproctype = "${collection}buildproc";
-    } else {
-    $buildprocdir = "$ENV{'GSDLHOME'}/perllib";
-    $buildproctype = "lucenebuildproc";
-    }
-    require "$buildprocdir/$buildproctype.pm";
-
-    eval("\$self->{'buildproc'} = new $buildproctype(\$collection, " .
-     "\$source_dir, \$build_dir, \$keepold, \$verbosity, \$outhandle)");
-    die "$@" if $@;
-
     $self->{'buildtype'} = "lucene";
 
     return $self;
+}
+
+sub default_buildproc {
+    my $self  = shift (@_);
+
+    return "lucenebuildproc";
 }
 
@@ -188 +177 @@
 }
 
-
-
-
-
 sub build_index {
     my $self = shift (@_);