Changeset 14942

Show
Ignore:
Timestamp:
11.01.2008 20:53:41 (12 years ago)
Author:
davidb
Message:

Modification to support extensions. BEGIN block now adds perllib/ perllib/cpan to @INC for each extension.

Location:
gsdl/trunk/bin/script
Files:
4 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/bin/script/buildcol.pl

    r14925 r14942  
    3636    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugins"); 
    3737    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify"); 
     38 
     39    if (defined $ENV{'GSDLEXTS'}) { 
     40    my @extensions = split(/:/,$ENV{'GSDLEXTS'}); 
     41    foreach my $e (@extensions) { 
     42        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e"; 
     43 
     44        unshift (@INC, "$ext_prefix/perllib"); 
     45        unshift (@INC, "$ext_prefix/perllib/cpan"); 
     46    } 
     47    } 
    3848} 
    3949 
  • gsdl/trunk/bin/script/classinfo.pl

    r12640 r14942  
    3636    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan"); 
    3737    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify"); 
     38 
     39    if (defined $ENV{'GSDLEXTS'}) { 
     40    my @extensions = split(/:/,$ENV{'GSDLEXTS'}); 
     41    foreach my $e (@extensions) { 
     42        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e"; 
     43 
     44        unshift (@INC, "$ext_prefix/perllib"); 
     45        unshift (@INC, "$ext_prefix/perllib/cpan"); 
     46    } 
     47    } 
    3848} 
    3949 
  • gsdl/trunk/bin/script/export.pl

    r14935 r14942  
    4040    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugouts"); 
    4141    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/classify"); 
     42 
     43    if (defined $ENV{'GSDLEXTS'}) { 
     44    my @extensions = split(/:/,$ENV{'GSDLEXTS'}); 
     45    foreach my $e (@extensions) { 
     46        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e"; 
     47 
     48        unshift (@INC, "$ext_prefix/perllib"); 
     49        unshift (@INC, "$ext_prefix/perllib/cpan"); 
     50    } 
     51    } 
    4252} 
    4353 
  • gsdl/trunk/bin/script/pluginfo.pl

    r12640 r14942  
    3737    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan"); 
    3838    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/plugins"); 
     39 
     40    if (defined $ENV{'GSDLEXTS'}) { 
     41    my @extensions = split(/:/,$ENV{'GSDLEXTS'}); 
     42    foreach my $e (@extensions) { 
     43        my $ext_prefix = "$ENV{'GSDLHOME'}/ext/$e"; 
     44 
     45        unshift (@INC, "$ext_prefix/perllib"); 
     46        unshift (@INC, "$ext_prefix/perllib/cpan"); 
     47    } 
     48    } 
    3949} 
    4050