Changeset 21307 for main/trunk/greenstone2

Timestamp:

2009-12-09T13:19:28+13:00 (14 years ago)

Author:

kjdon

Message:

removeold renamed to remove_all, added remove_some - a list of files to be deleted(or reindexed)

File:

• main/trunk/greenstone2/perllib/plugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugin.pm

@@ -25 +25 @@
 
 package plugin;
+
+use inexport;
 
 use strict; # to pick up typos and undeclared variables...
@@ -213 +215 @@
 }
 
- sub removeold {
+ sub remove_all {
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
     
-    map { $_->removeold($pluginfo, $base_dir, $processor, $maxdocs); } @$pluginfo;
+    map { $_->remove_all($pluginfo, $base_dir, $processor, $maxdocs); } @$pluginfo;
 }
   
-
+sub remove_some {
+    my ($pluginfo, $archivedir, $deleted_files) = @_;
+    print STDERR "in remove some\n";
+    return if (scalar(@$deleted_files)==0);
+    my $arcinfo_src_filename = &inexport::src_db_file($archivedir);
+
+    foreach my $file (@$deleted_files) {
+    # use 'archiveinf-src' GDBM file to look up all the OIDs
+    # that this file is used in (note in most cases, it's just one OID)
+    
+    my $src_rec = GDBMUtils::gdbmRecordToHash($arcinfo_src_filename,$file);
+    my $oids = $src_rec->{'oid'};
+    map {$_->remove_one($file, $oids); } @$pluginfo;
+    }
+
+}
 sub file_block_read {
     my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $gli) = @_;