Changeset 317 for trunk/gsdl/perllib/plugins/RecPlug.pm

Timestamp:

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

Author:

sjboddie

Message:

Added maxdocs option

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -27 +27 @@
 }
 
-# return 1 if processed, 0 if not processed
+
+# return number of files processed, undef if can't process
 # Note that $base_dir might be "" and that $file might 
 # include directories
 sub read {
     my $self = shift (@_);
-    my ($pluginfo, $base_dir, $file, $metadata, $processor) = @_;
-
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
 
     my (@dir, $subfile);
+
+    my $count = 0;
 
     # see if this is a directory
@@ -47 +49 @@
     closedir (DIR);
 
+    print STDERR "RecPlug: getting directory $dirname\n";
+
     # process each file
     foreach $subfile (@dir) {
+        last if (defined $maxdocs && $maxdocs =~ /\d/ && $count >= $maxdocs);
+
         if ($subfile !~ /^\.\.?$/) {
         # note: metadata is not carried on to the next level
-        &plugin::read ($pluginfo, $base_dir, &util::filename_cat($file, $subfile),
-                   {}, $processor);
+        $count += &plugin::read ($pluginfo, $base_dir, &util::filename_cat($file, $subfile),
+                     {}, $processor, $maxdocs);
         }
     }
-
-    return 1;
+    return $count;
     }
 
     # wasn't a directory, someone else will have to process it
-    return 0;
+    return undef;
 }