Ignore:
Timestamp:
2009-12-07T14:41:25+13:00 (14 years ago)
Author:
kjdon
Message:

extended extensions mechanism to include gs3 extensions

Location:
main/trunk/greenstone2/bin/script
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • main/trunk/greenstone2/bin/script/buildcol.pl

    r20644 r21292  
    4444        unshift (@INC, "$ext_prefix/perllib/cpan");
    4545        unshift (@INC, "$ext_prefix/perllib/plugins");
    46         unshift (@INC, "$ext_prefix/perllib/plugouts");
    4746        unshift (@INC, "$ext_prefix/perllib/classify");
    4847    }
    4948    }
     49    if (defined $ENV{'GSDL3EXTS'}) {
     50    my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
     51    foreach my $e (@extensions) {
     52        my $ext_prefix = "$ENV{'GSDL3SRCHOME'}/ext/$e";
     53
     54        unshift (@INC, "$ext_prefix/perllib");
     55        unshift (@INC, "$ext_prefix/perllib/cpan");
     56        unshift (@INC, "$ext_prefix/perllib/plugins");
     57        unshift (@INC, "$ext_prefix/perllib/classify");
     58    }
     59    }
     60
    5061}
    5162

  • main/trunk/greenstone2/bin/script/classinfo.pl

    r16787 r21292  
    4444        unshift (@INC, "$ext_prefix/perllib");
    4545        unshift (@INC, "$ext_prefix/perllib/cpan");
    46         unshift (@INC, "$ext_prefix/perllib/plugins");
    47         unshift (@INC, "$ext_prefix/perllib/plugouts");
    4846        unshift (@INC, "$ext_prefix/perllib/classify");
    4947    }
    5048    }
     49    if (defined $ENV{'GSDL3EXTS'}) {
     50    my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
     51    foreach my $e (@extensions) {
     52        my $ext_prefix = "$ENV{'GSDL3SRCHOME'}/ext/$e";
     53
     54        unshift (@INC, "$ext_prefix/perllib");
     55        unshift (@INC, "$ext_prefix/perllib/cpan");
     56        unshift (@INC, "$ext_prefix/perllib/classify");
     57
     58    }
     59    }
     60
    5161}
    5262

  • main/trunk/greenstone2/bin/script/csv-usernames-to-db.pl

    r20729 r21292  
    3939    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/perl-5.8");
    4040
    41     if (defined $ENV{'GSDLEXTS'}) {
    42     my @extensions = split(/:/,$ENV{'GSDLEXTS'});
    43     foreach my $e (@extensions) {
    44         my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e";
    45 
    46         unshift (@INC, "$ext_prefix/perllib");
    47         unshift (@INC, "$ext_prefix/perllib/cpan");
    48     }
    49     }
    5041}
    5142

  • main/trunk/greenstone2/bin/script/export.pl

    r20690 r21292  
    5151    }
    5252    }
     53    if (defined $ENV{'GSDL3EXTS'}) {
     54    my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
     55    foreach my $e (@extensions) {
     56        my $ext_prefix = "$ENV{'GSDL3SRCHOME'}/ext/$e";
     57
     58        unshift (@INC, "$ext_prefix/perllib");
     59        unshift (@INC, "$ext_prefix/perllib/cpan");
     60        unshift (@INC, "$ext_prefix/perllib/plugins");
     61        unshift (@INC, "$ext_prefix/perllib/plugouts");
     62    }
     63    }
     64
    5365}
    5466

  • main/trunk/greenstone2/bin/script/pluginfo.pl

    r20571 r21292  
    4747        unshift (@INC, "$ext_prefix/perllib/cpan");
    4848        unshift (@INC, "$ext_prefix/perllib/plugins");
    49         unshift (@INC, "$ext_prefix/perllib/plugouts");
    50         unshift (@INC, "$ext_prefix/perllib/classify");
    51     }
    52     }
     49    }
     50    }
     51    if (defined $ENV{'GSDL3EXTS'}) {
     52    my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
     53    foreach my $e (@extensions) {
     54        my $ext_prefix = "$ENV{'GSDL3SRCHOME'}/ext/$e";
     55
     56        unshift (@INC, "$ext_prefix/perllib");
     57        unshift (@INC, "$ext_prefix/perllib/cpan");
     58        unshift (@INC, "$ext_prefix/perllib/plugins");
     59    }
     60    }
     61
    5362}
    5463
    … …  
    197206        }
    198207    }
     208    if ((defined $ENV{'GSDL3EXTS'}) && ($collection eq "")) {
     209        my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
     210        foreach my $e (@extensions) {
     211        my $ext_prefix = &util::filename_cat($ENV{'GSDL3SRCHOME'},"ext",$e);
     212        my $ext_plugins_dir = &util::filename_cat($ext_prefix, "perllib", "plugins");
     213
     214        if (opendir (INDIR, $ext_plugins_dir)) {
     215            my @ext_plugin_list = grep (/Plugin\.pm$/, readdir (INDIR));
     216            closedir (INDIR);
     217
     218            push(@plugin_list,@ext_plugin_list);
     219        }
     220
     221        }
     222    }
    199223
    200224    print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";

  • main/trunk/greenstone2/bin/script/schedule.pl

    r18590 r21292  
    4646    }
    4747    }
     48    if (defined $ENV{'GSDL3EXTS'}) {
     49    my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
     50    foreach my $e (@extensions) {
     51        my $ext_prefix = "$ENV{'GSDL3SRCHOME'}/ext/$e";
     52
     53        unshift (@INC, "$ext_prefix/perllib");
     54        unshift (@INC, "$ext_prefix/perllib/cpan");
     55    }
     56    }
     57
    4858}
    4959
Note: See TracChangeset for help on using the changeset viewer.