Changeset 315 for trunk/gsdl/perllib/plugin.pm

Timestamp:

1999-06-30T15:35:07+12:00 (25 years ago)

Author:

sjboddie

Message:

• removed old infodb stuff
• changed the way classifiers work
• added maxdocs and allclassifications options
• no longer get doctype from collect.cfg but instead set it directly in plugins that don't use the default

File:

• trunk/gsdl/perllib/plugin.pm (modified) (1 diff)

trunk/gsdl/perllib/plugin.pm

@@ -32 +32 @@
 
 sub read {
-    my ($pluginfo, $base_dir, $file, $metadata, $processor) = @_;
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+
+    my $rv = 0;
 
     # pass this file by each of the plugins in turn until one
     # is found which will process it
     foreach $plugobj (@$pluginfo) {
-    if ($plugobj->read($pluginfo, $base_dir, $file, 
-               $metadata, $processor)) {
-        return;
-    }
+    $rv = $plugobj->read($pluginfo, $base_dir, $file, 
+                 $metadata, $processor, $maxdocs);
+    return $rv if defined $rv;
     }
-
+    
     if ($processor->{'verbosity'} >= 2) {
     print STDERR "WARNING - no plugin could process " . 
         &util::filename_cat($base_dir,$file) . "\n";
     }
+    return 0;
 }