Changeset 780 for trunk/gsdl

Timestamp:

1999-11-12T15:31:02+13:00 (25 years ago)

Author:

sjboddie

Message:

added dontgdbm configuration option

Location:

trunk/gsdl/perllib

Files:

• colcfg.pm (modified) (2 diffs)
• mgbuilder.pm (modified) (2 diffs)
• mgbuildproc.pm (modified) (3 diffs)

trunk/gsdl/perllib/colcfg.pm

@@ -51 +51 @@
             '^(creator|public|beta|key|defaultindex|importdir|' .
                     'archivedir|cachedir|builddir|textindex|removeold)$',
-            '^(maintainer|languages|indexsubcollections|indexes|plugins|dontbuild)$',
+            '^(maintainer|languages|indexsubcollections|indexes|plugins|dontbuild|dontgdbm)$',
             '^(subcollection|collectionmeta)$');
 }
@@ -61 +61 @@
             '^(creator|public|beta|key|defaultindex|importdir|' .
                     'archivedir|cachedir|builddir|textindex|removeold)$',
-            '^(maintainer|languages|indexsubcollections|indexes|plugins|dontbuild)$',
+            '^(maintainer|languages|indexsubcollections|indexes|plugins|dontbuild|dontgdbm)$',
             '^(subcollection|collectionmeta)$');
 }

trunk/gsdl/perllib/mgbuilder.pm

@@ -123 +123 @@
     }
 
+    # load up any dontgdbm fields
+    $self->{'dontgdbm'} = {};
+    if (defined ($self->{'collect_cfg'}->{'dontgdbm'})) {
+    foreach $dg (@{$self->{'collect_cfg'}->{'dontgdbm'}}) {
+        $self->{'dontgdbm'}->{$dg} = 1;
+    }
+    }
+
     # load up the document processor for building
     # if a buildproc class has been created for this collection, use it
@@ -535 +543 @@
     $self->{'buildproc'}->set_output_handle ('mgbuilder::PIPEOUT');
     $self->{'buildproc'}->set_mode ('infodb');
+    $self->{'buildproc'}->set_dontgdbm ($self->{'dontgdbm'});
     $self->{'buildproc'}->set_classifiers ($self->{'classifiers'});
     $self->{'buildproc'}->set_indexing_text (0);

trunk/gsdl/perllib/mgbuildproc.pm

@@ -51 +51 @@
     $self->{'classifiers'} = [];
     $self->{'mode'} = "text";
+    $self->{'dontgdbm'} = {};
     $self->{'index'} = "section:text";
     $self->{'indexexparr'} = [];
@@ -101 +102 @@
 
     $self->{'mode'} = $mode;
+}
+
+sub set_dontgdbm {
+    my $self = shift (@_);
+    my ($dontgdbm) = @_;
+
+    $self->{'dontgdbm'} = $dontgdbm;
 }
 
@@ -214 +222 @@
 
         if ($field ne "Identifier" && $field !~ /^gsdl/ && 
-        defined $value && $value ne "") {
+        defined $value && $value ne "" && 
+        !defined $self->{'dontgdbm'}->{$field}) {
         # escape problematic stuff
         $value =~ s/\\/\\\\/g;