Changeset 16392 for gsdl/trunk/perllib/plugins/GMLPlugin.pm
- Timestamp:
- 2008-07-14T14:57:38+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/GMLPlugin.pm
r15872 r16392 79 79 sub read { 80 80 my $self = shift (@_); 81 my ($pluginfo, $base_dir, $file, $ metadata, $processor, $maxdocs, $total_count, $gli) = @_;81 my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $processor, $maxdocs, $total_count, $gli) = @_; 82 82 my $outhandle = $self->{'outhandle'}; 83 83 84 # check process and block exps, smart block, etc85 my ($ block_status,$filename) = $self->read_block(@_);86 return $block_status if ((!defined $block_status) || ($block_status==0));84 # can we process this file?? 85 my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file); 86 return undef unless $self->can_process_this_file($filename_full_path); 87 87 88 88 $file =~ s/^[\/\\]+//; # $file often begins with / so we'll tidy it up … … 95 95 $parent_dir = &util::filename_cat ($base_dir, $parent_dir); 96 96 97 if (!open (INFILE, $filename )) {97 if (!open (INFILE, $filename_full_path)) { 98 98 if ($gli) { 99 print STDERR "<ProcessingError n='$file' r='Could not read $filename '>\n";99 print STDERR "<ProcessingError n='$file' r='Could not read $filename_full_path'>\n"; 100 100 } 101 print $outhandle "GMLPlugin::read - couldn't read $filename \n";101 print $outhandle "GMLPlugin::read - couldn't read $filename_full_path\n"; 102 102 return -1; 103 103 } … … 133 133 134 134 } else { 135 print $outhandle "GMLPlugin::read - error in file $filename \n";135 print $outhandle "GMLPlugin::read - error in file $filename_full_path\n"; 136 136 print $outhandle "text: \"$gml\"\n"; 137 137 last;
Note:
See TracChangeset
for help on using the changeset viewer.