Changeset 18528 for gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

Timestamp:

2009-02-17T15:36:44+13:00 (15 years ago)

Author:

davidb

Message:

OIDmetadata wasn't supported in collect.cfg, but OIDtype was. Now rectified. Also introduced OIDcount as a file saved in the archives folder to help doc.pm use the correct value when working incrementally

File:

• gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

@@ -32 +32 @@
 
 use util;
+use doc;
 use PrintInfo;
 use plugin;
@@ -173 +174 @@
 }
 
-# we don't do any file blocking
 sub file_block_read {
 
     my $self = shift (@_);  
     my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $gli) = @_;
+
+    if ($file eq "OIDcount") {
+    my ($filename_full_path, $filename_no_path) 
+        = &util::get_full_filenames($base_dir, $file);
+    $block_hash->{'file_blocks'}->{$filename_full_path} = 1;
+    return 1;
+    }
+
+    # otherwise, we don't do any file blocking
 
     return undef;
@@ -287 +296 @@
     }
 
+
     # wasn't an archives directory, someone else will have to process it
     return undef;