Changeset 16031 for greenstone3
- Timestamp:
- 2008-06-16T17:26:41+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
greenstone3/trunk/web/WEB-INF/cgi/gsdlCGI4gs3.pm
r15960 r16031 232 232 } 233 233 234 sub get_perl_path { 235 my $self = shift @_; 236 237 if (defined $self->{'perlpath'}) { 238 return $self->{'perlpath'}; 239 } 240 241 my $perlpath = $self->get_config_info("perlpath"); 242 243 $perlpath =~ s/(\/|\\)$//; # remove trailing slash 244 245 return $perlpath; 246 } 247 234 248 sub get_gsdl_os { 235 249 my $self = shift @_; … … 276 290 my $gsdl_perl_bin_directory = &util::filename_cat($gsdlhome, "bin", "windows", "perl", "bin"); 277 291 &util::envvar_append("PATH", $gsdl_perl_bin_directory); 292 } 293 else { # it's on linux now 294 my $perlpath = $self->get_perl_path(); 295 &util::envvar_append("PATH", $perlpath); 278 296 } 279 297 }
Note:
See TracChangeset
for help on using the changeset viewer.