Changeset 20771 for gsdl/trunk/perllib/plugins/MetadataCSVPlugin.pm

Timestamp:

2009-10-05T14:14:20+13:00 (15 years ago)

Author:

kjdon

Message:

set some things to help with incremental building - block_hash->metadata_files, so we know it a metadata file, and extrametafile so we know which file the metadata came from

File:

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

gsdl/trunk/perllib/plugins/MetadataCSVPlugin.pm

@@ -74 +74 @@
 {
     return q^(?i)\.csv$^;
+}
+
+sub file_block_read {
+    my $self = shift (@_);
+    my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $gli) = @_;
+
+    my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file);
+
+    if (!-f $filename_full_path || !$self->can_process_this_file($filename_full_path)) {
+    return undef; # can't recognise
+    }
+
+    # set this so we know this is a metadata file - needed for incremental 
+    # build
+    # if this file changes, then we need to reimport everything
+    $block_hash->{'metadata_files'}->{$filename_full_path} = 1;
+
+    return 1;
 }
 
@@ -175 +193 @@
     $extrametadata->{$csv_line_filename} = \%csv_line_metadata;
     push(@$extrametakeys, $csv_line_filename);
+    # record which file the metadata came from
+    if (!defined $extrametafile->{$csv_line_filename}) {
+        $extrametafile->{$csv_line_filename} = {};
+    }
+    # maps the file to full path
+    $extrametafile->{$csv_line_filename}->{$file} = $filename;
     }
 }