Changeset 11090 for trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm
- Timestamp:
- 2006-01-24T10:29:34+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm
r10254 r11090 313 313 my $self = shift (@_); 314 314 my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $total_count, $gli) = @_; 315 # if ($self->is_recursive()) {316 # die "BasPlug::read function must be implemented in sub-class for recursive plugins\n";317 # }318 315 319 316 my $outhandle = $self->{'outhandle'}; 320 317 321 my $filename = $file; 322 $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/; 323 324 if ($self->{'block_exp'} ne "" && $filename =~ /$self->{'block_exp'}/) { 325 $self->{'num_blocked'} ++; 326 return 0; 327 } 328 if ($filename !~ /$self->{'process_exp'}/ || !-f $filename) { 329 return undef; 330 } 318 # check process_exp, block_exp, associate_ext etc 319 my ($block_status,$filename) = $self->read_block(@_); 320 return $block_status if ((!defined $block_status) || ($block_status==0)); 321 331 322 $file =~ s/^[\/\\]+//; # $file often begins with / so we'll tidy it up 332 323
Note:
See TracChangeset
for help on using the changeset viewer.