Changeset 23184
- Timestamp:
- 2010-10-20T13:32:50+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/cgi-bin/gsdlCGI.pm
r23088 r23184 477 477 478 478 my $gsdl_bin_script = &util::filename_cat($gsdlhome,"bin","script"); 479 &util::envvar_ append("PATH",$gsdl_bin_script);479 &util::envvar_prepend("PATH",$gsdl_bin_script); 480 480 481 481 my $gsdl_bin_os = &util::filename_cat($gsdlhome,"bin",$gsdlos); 482 &util::envvar_ append("PATH",$gsdl_bin_os);482 &util::envvar_prepend("PATH",$gsdl_bin_os); 483 483 484 484 # If the "perlpath" property is set in the gsdl(3)site.cfg config file, it is … … 517 517 if(defined $java_home) { 518 518 $ENV{'JAVA_HOME'} = $java_home; 519 } 520 521 # Process any extension setup.pl files 522 my $ext_home = &util::filename_cat($gsdlhome,"ext"); 523 524 if (opendir(EXTDIR,$ext_home) ) { 525 my @pot_ext_dir = grep { $_ !~ m/^\./ } readdir(EXTDIR); 526 527 closedir(EXTXDIR); 528 529 foreach my $ed (@pot_ext_dir) { 530 my $full_ext_dir = &util::filename_cat($ext_home,$ed); 531 if (-d $full_ext_dir) { 532 my $full_inc_file = &util::filename_cat($full_ext_dir, 533 "$ed-setup.pl"); 534 if (-f $full_inc_file) { 535 536 my $store_cwd = Cwd::cwd(); 537 538 chdir($full_ext_dir); 539 require "./$ed-setup.pl"; 540 chdir($store_cwd); 541 } 542 } 543 } 519 544 } 520 545
Note:
See TracChangeset
for help on using the changeset viewer.