Changeset 21290


Ignore:
Timestamp:
2009-12-07T14:39:45+13:00 (12 years ago)
Author:
kjdon
Message:

extension handling extended to include gs3 extensions, added removeold method

File:
1 edited

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) = @_;
Note: See TracChangeset for help on using the changeset viewer.