Changeset 21290

Show
Ignore:
Timestamp:
07.12.2009 14:39:45 (11 years ago)
Author:
kjdon
Message:

extension handling extended to include gs3 extensions, added removeold method

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugin.pm

    r20613 r21290  
    7474    return $valid_name; 
    7575} 
     76 
    7677sub load_plugin_require 
    7778{ 
     
    102103 
    103104    my @extensions = split(/:/,$ENV{'GSDLEXTS'}); 
     105    foreach my $e (@extensions) { 
     106        my $extplugname = &util::filename_cat($ext_prefix, $e, $pp_plugname); 
     107        push(@check_list,$extplugname); 
     108 
     109    } 
     110    } 
     111    if (defined $ENV{'GSDL3EXTS'}) { 
     112 
     113    my $ext_prefix = &util::filename_cat($ENV{'GSDL3SRCHOME'}, "ext"); 
     114 
     115    my @extensions = split(/:/,$ENV{'GSDL3EXTS'}); 
    104116    foreach my $e (@extensions) { 
    105117        my $extplugname = &util::filename_cat($ext_prefix, $e, $pp_plugname); 
     
    201213} 
    202214 
     215 sub removeold { 
     216    my ($pluginfo, $base_dir, $processor, $maxdocs) = @_; 
     217     
     218    map { $_->removeold($pluginfo, $base_dir, $processor, $maxdocs); } @$pluginfo; 
     219} 
     220   
     221 
    203222sub file_block_read { 
    204223    my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $gli) = @_;