Changeset 21292

Show
Ignore:
Timestamp:
07.12.2009 14:41:25 (10 years ago)
Author:
kjdon
Message:

extended extensions mechanism to include gs3 extensions

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

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