Changeset 16392 for gsdl/trunk/perllib/plugins/ReadTextFile.pm

Timestamp:

2008-07-14T14:57:38+12:00 (16 years ago)

Author:

kjdon

Message:

global block pass: read_block is no more, use can_process_this_file to see whether a file is for us or not. extra arg (block_hash) to read, read_into_doc_obj, metadata_read etc

File:

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

gsdl/trunk/perllib/plugins/ReadTextFile.pm

@@ -122 +122 @@
 sub read_into_doc_obj {
     my $self = shift (@_);  
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $total_count, $gli) = @_;
+    my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $processor, $maxdocs, $total_count, $gli) = @_;
 
     my $outhandle = $self->{'outhandle'};
-
     # should we move this to read? What about secondary plugins?
     print STDERR "<Processing n='$file' p='$self->{'plugin_type'}'>\n" if ($gli);
@@ -131 +130 @@
         if $self->{'verbosity'} > 1;
 
-    my ($filename_full_path, $filename_no_path) =  $self->get_full_filenames($base_dir, $file);
+    my ($filename_full_path, $filename_no_path) =  &util::get_full_filenames($base_dir, $file);
+
     # Do encoding stuff
     my ($language, $encoding) = $self->textcat_get_language_encoding ($filename_full_path);