Changeset 21292
- Timestamp:
- 2009-12-07T14:41:25+13:00 (14 years ago)
- Location:
- main/trunk/greenstone2/bin/script
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/buildcol.pl
r20644 r21292 44 44 unshift (@INC, "$ext_prefix/perllib/cpan"); 45 45 unshift (@INC, "$ext_prefix/perllib/plugins"); 46 unshift (@INC, "$ext_prefix/perllib/plugouts");47 46 unshift (@INC, "$ext_prefix/perllib/classify"); 48 47 } 49 48 } 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 50 61 } 51 62 -
main/trunk/greenstone2/bin/script/classinfo.pl
r16787 r21292 44 44 unshift (@INC, "$ext_prefix/perllib"); 45 45 unshift (@INC, "$ext_prefix/perllib/cpan"); 46 unshift (@INC, "$ext_prefix/perllib/plugins");47 unshift (@INC, "$ext_prefix/perllib/plugouts");48 46 unshift (@INC, "$ext_prefix/perllib/classify"); 49 47 } 50 48 } 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 51 61 } 52 62 -
main/trunk/greenstone2/bin/script/csv-usernames-to-db.pl
r20729 r21292 39 39 unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/perl-5.8"); 40 40 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 }50 41 } 51 42 -
main/trunk/greenstone2/bin/script/export.pl
r20690 r21292 51 51 } 52 52 } 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 53 65 } 54 66 -
main/trunk/greenstone2/bin/script/pluginfo.pl
r20571 r21292 47 47 unshift (@INC, "$ext_prefix/perllib/cpan"); 48 48 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 53 62 } 54 63 … … 197 206 } 198 207 } 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 } 199 223 200 224 print STDERR "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"; -
main/trunk/greenstone2/bin/script/schedule.pl
r18590 r21292 46 46 } 47 47 } 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 48 58 } 49 59
Note:
See TracChangeset
for help on using the changeset viewer.