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

Timestamp:

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

Author:

sjboddie

Message:

Added maxdocs option

File:

• trunk/gsdl/perllib/plugins/ArcPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -1 @@
-# plugin which recurses through directories processing
-# each file it finds
+# plugin which recurses through an archives.inf file
+# (i.e. the file generated in the archives directory
+# when an import is done), processing each file it finds 
 
 package ArcPlug;
@@ -27 +28 @@
 }
 
-# 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 (@_);
-    ($pluginfo, $base_dir, $file, $metadata, $processor) = @_;
-#    my $count = 0;
+    ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+
+    my $count = 0;
 
     # see if this has a archives information file within it
@@ -39 +41 @@
 
     if (-e $archive_info_filename) {
+
+    # found an archives.inf file
+    print STDERR "ArcPlug: processing $archive_info_filename\n";
 
     # read in the archives information file
@@ -48 +53 @@
     # process each file
     foreach $subfile (@$file_list) {
-####        # note: metadata is not carried on to the next level - why ??? - I changed this
-        # so I could pass the classifytype from mgbuilder - Stefan.
+        last if (defined $maxdocs && $maxdocs =~ /\d/ && $count >= $maxdocs);
+
         my $tmp = &util::filename_cat ($file, $subfile->[0]);
         next if $tmp eq $file;
-        &plugin::read ($pluginfo, $base_dir, $tmp, $metadata, $processor);
-#       $count ++;
-#       last if $count > 200;
-    }
-    
-    # all books have been processed so need to output classifications
-    # to infodb - note that at present you have to import before building
-    if (defined $processor->{'mode'} && $processor->{'mode'} eq 'infodb') {
-        print STDERR "ArcPlug: Adding classifications to infodb\n";
-        $processor->process('classifications');
+        # note: metadata is not carried on to the next level
+        $count += &plugin::read ($pluginfo, $base_dir, $tmp, {}, $processor, $maxdocs);
     }
 
-    return 1;
+    return $count;
     }
 
     # wasn't an archives directory, someone else will have to process it
-    return 0;
+    return undef;
 }