Changeset 18441 for gsdl/trunk/perllib/plugins/DirectoryPlugin.pm

Timestamp:

2009-02-01T14:36:22+13:00 (15 years ago)

Author:

davidb

Message:

Modifications for incremental building to support files that need to be deleted

File:

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

gsdl/trunk/perllib/plugins/DirectoryPlugin.pm

@@ -131 +131 @@
 
     my $output_dir = $processor->getoutputdir();
-    my $archives_inf = &util::filename_cat($output_dir,"archives.inf");
-    
+##  my $archives_inf = &util::filename_cat($output_dir,"archives.inf");
+    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
+    my $doc_db = "archiveinf-doc$db_ext";
+        my $archives_inf = &util::filename_cat($output_dir,$doc_db);
+
     if ( -e $archives_inf ) {
         $self->{'inf_timestamp'} = -M $archives_inf;
@@ -278 +281 @@
     return $directory_ok unless (defined $directory_ok && $directory_ok == 1);
 
+    $block_hash->{'all_files'} = {} unless defined $block_hash->{'all_files'};
+
     $block_hash->{'file_blocks'} = {} unless defined $block_hash->{'file_blocks'};
     $block_hash->{'shared_fileroot'} = {} unless defined $block_hash->{'shared_fileroot'};
@@ -576 +581 @@
         if ($filename_timestamp > $inf_timestamp) {
             # filename has been around for longer than inf
-#####           print $outhandle "**** Skipping $subfile\n";
+            print $outhandle "**** Skipping $subfile\n" if ($verbosity >3);
             next;
         }