Changeset 810 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1999-12-07T10:45:27+13:00 (24 years ago)

Author:

sjboddie

Message:

plugins now take options, files are associated at build time as
well as import time

File:

• trunk/gsdl/perllib/mgbuildproc.pm (modified) (8 diffs)

trunk/gsdl/perllib/mgbuildproc.pm

@@ -51 +51 @@
     $self->{'classifiers'} = [];
     $self->{'mode'} = "text";
+    $self->{'assocdir'} = $build_dir;
     $self->{'dontgdbm'} = {};
     $self->{'index'} = "section:text";
@@ -102 +103 @@
 
     $self->{'mode'} = $mode;
+}
+
+sub set_assocdir {
+    my $self = shift (@_);
+    my ($assocdir) = @_;
+
+    $self->{'assocdir'} = $assocdir;
 }
 
@@ -177 +185 @@
 }
 
+sub assoc_files {
+    my $self = shift (@_);
+    my ($doc_obj) = @_;
+    
+    foreach $assoc_file (@{$doc_obj->get_assoc_files()}) {
+    $afile = &util::filename_cat($self->{'assocdir'}, $assoc_file->[1]);
+    &util::hard_link ($assoc_file->[0], $afile);
+    }
+}
+
 sub infodb {
     my $self = shift (@_);
@@ -183 +201 @@
 #    $handle = "main::STDOUT";
 
+    $self->assoc_files ($doc_obj);
+
     my $doctype = $doc_obj->get_doc_type();
 
@@ -197 +217 @@
     my $doc_OID = $doc_obj->get_OID();
     my $first = 1;
+    my $url = "";
     while (defined $section) {
     # update a few statistics
@@ -222 +243 @@
 
         if ($field ne "Identifier" && $field !~ /^gsdl/ && 
-        defined $value && $value ne "" && 
-        !defined $self->{'dontgdbm'}->{$field}) {
+        defined $value && $value ne "") {
+
         # escape problematic stuff
         $value =~ s/\\/\\\\/g;
         $value =~ s/\n/\\n/g;
         $value =~ s/\r/\\r/g;
-        
-        print $handle "<$field>$value\n";
-        }
-    }
-
+
+        # special case for URL metadata
+        if ($field =~ /^URL$/i) {
+                    $url .= "[$value]\n";
+                    if ($section eq "") {$url .= "<section>$doc_OID\n";}
+                    else {$url .= "<section>$doc_OID.$section\n";}
+                    $url .= '-' x 70 . "\n";
+        }
+
+        if (!defined $self->{'dontgdbm'}->{$field}) {
+            print $handle "<$field>$value\n";
+        }
+        }
+    }
+    
     # output archivedir if at top level
     if ($section eq $doc_obj->get_top_section()) {
@@ -242 +273 @@
         print $handle "<archivedir>$archivedir\n";
     }
-
+    
     # output document display type
     if ($first) {
@@ -280 +311 @@
     else { print $handle "<section>$doc_OID.$section\n"; }
     print $handle '-' x 70, "\n";
+    
+        # output entry for url
+        if ($url ne "") {
+            print $handle $url;
+        }
 
     $first = 0;