Changeset 461 for trunk/gsdl/perllib

Timestamp:

1999-08-13T16:21:40+12:00 (25 years ago)

Author:

sjboddie

Message:

added ability to add collection-level metadata with collectionmeta
field in collect.cfg

Location:

trunk/gsdl/perllib

Files:

• colcfg.pm (modified) (2 diffs)
• mgbuilder.pm (modified) (1 diff)

trunk/gsdl/perllib/colcfg.pm

@@ -27 +27 @@
                     'archivedir|cachedir|builddir|textindex|removeold)$',
             '^(maintainer|languages|indexsubcollections|indexes|plugins)$',
-            '^(subcollection)$');
+            '^(subcollection|collectionmeta)$');
 }
 
@@ -37 +37 @@
                     'archivedir|cachedir|builddir|textindex|removeold)$',
             '^(maintainer|languages|indexsubcollections|indexes|plugins)$',
-            '^(subcollection)$');
+            '^(subcollection|collectionmeta)$');
 }
 

trunk/gsdl/perllib/mgbuilder.pm

@@ -504 +504 @@
     $self->{'buildproc'}->reset();
 
+    if (defined $self->{'collect_cfg'}->{'collectionmeta'}) {
+
+    if (!defined $self->{'index_mapping'}) {
+        $self->{'index_mapping'} = 
+        $self->create_index_mapping ($self->{'collect_cfg'}->{'indexes'});
+    }
+
+    print PIPEOUT "[collection]\n";
+
+    foreach $cmeta (keys (%{$self->{'collect_cfg'}->{'collectionmeta'}})) {
+        if ($cmeta =~ s/^\.//) {
+        if (defined $self->{'index_mapping'}->{$cmeta}) {
+            print PIPEOUT "<$self->{'index_mapping'}->{$cmeta}>" .
+            $self->{'collect_cfg'}->{'collectionmeta'}->{".$cmeta"} . "\n";
+        } else {
+            print STDERR "mgbuilder: warning bad collectionmeta option '$cmeta' - ignored\n";
+        }
+        } else {
+        print PIPEOUT "<$cmeta>$self->{'collect_cfg'}->{'collectionmeta'}->{$cmeta}\n";
+        }
+    }
+    print PIPEOUT "\n" . ('-' x 70) . "\n";
+
+    }
+    
+
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
            "", {}, $self->{'buildproc'}, $self->{'maxdocs'});