Changeset 15688 for gsdl/trunk/perllib/basebuildproc.pm

Timestamp:

2008-05-23T16:14:50+12:00 (16 years ago)

Author:

mdewsnip

Message:

Changed "dontgdbm" to "dontdb" internally (the collect.cfg file still uses "dontgdbm").

File:

• gsdl/trunk/perllib/basebuildproc.pm (modified) (9 diffs)

gsdl/trunk/perllib/basebuildproc.pm

@@ -25 +25 @@
 
 # This document processor outputs a document for indexing (should be 
-# implemented by subclass) and storing in gdbm database
+# implemented by subclass) and storing in the database
 
 package basebuildproc;
@@ -47 +47 @@
     # outhandle is where all the debugging info goes
     # output_handle is where the output of the plugins is piped
-    # to (i.e. mg, gdbm etc.)
+    # to (i.e. mg, database etc.)
     $outhandle = STDERR unless defined $outhandle;
 
@@ -60 +60 @@
     $self->{'mode'} = "text";
     $self->{'assocdir'} = $build_dir;
-    $self->{'dontgdbm'} = {};
+    $self->{'dontdb'} = {};
 
     $self->{'index'} = "section:text";
@@ -216 +216 @@
 }
 
-sub set_dontgdbm {
-    my $self = shift (@_);
-    my ($dontgdbm) = @_;
-
-    $self->{'dontgdbm'} = $dontgdbm;
+sub set_dontdb {
+    my $self = shift (@_);
+    my ($dontdb) = @_;
+
+    $self->{'dontdb'} = $dontdb;
 }
 
@@ -334 +334 @@
     my $doctype = $doc_obj->get_doc_type();
 
-    # only output this document if it is a "indexed_doc" or "info_doc" (GDBM database only) document
+    # only output this document if it is a "indexed_doc" or "info_doc" (database only) document
     return if ($doctype ne "indexed_doc" && $doctype ne "info_doc");
 
@@ -356 +356 @@
     else
     {
-    # doc_obj reconstructed from GDBM (has metadata, doc structure but no text)
+    # doc_obj reconstructed from database (has metadata, doc structure but no text)
     my $top_section = $doc_obj->get_top_section();
     $archivedir = $doc_obj->get_metadata_element($top_section,"archivedir");
@@ -402 +402 @@
     # Output whether this node contains text
     #
-    # If doc_obj reconstructed from GDBM file then no need to 
+    # If doc_obj reconstructed from database file then no need to 
     # explicitly add <hastxt> as this is preserved as metadata when
-    # the GDBM file is loaded in
+    # the database file is loaded in
 
     if (defined $filename)
@@ -443 +443 @@
         }
 
-        if (!defined $self->{'dontgdbm'}->{$field}) {
+        if (!defined $self->{'dontdb'}->{$field}) {
             print $handle "<$field>$value\n";
 
@@ -473 +473 @@
     }
 
-    # If doc_obj reconstructed from GDBM file then no need to 
+    # If doc_obj reconstructed from database file then no need to 
     # explicitly add <archivedir> as this is preserved as metadata when
-    # the GDBM file is loaded in
+    # the database file is loaded in
 
     if (defined $filename)