Changeset 24362 for main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

Timestamp:

2011-08-03T21:17:30+12:00 (13 years ago)

Author:

ak19

Message:

The method of locating perl has changed once more: util now defines the fuction get_perl_exec which is used by other scripts to obtain the path to the perl executable they should use.

File:

• main/trunk/greenstone2/perllib/cgiactions/baseaction.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

@@ -28 +28 @@
 
 use strict;
-
+use util;
 use inexport;
-use Config; # for getting the perlpath in the recommended way
 
 our $authenication_enabled = 0;
@@ -434 +433 @@
     my $gsdl_cgi = $self->{'gsdl_cgi'};
 
-    my $sendmail_command = "\"$Config{perlpath}\" -S sendmail.pl";
+    my $sendmail_command = "\"".&util::get_perl_exec()."\" -S sendmail.pl";
     $sendmail_command .= " -to \"" . $mail_to_address . "\"";
     $sendmail_command .= " -from \"" . $mail_from_address . "\"";
@@ -463 +462 @@
     $perl_args = "-collectdir \"$collect_dir\" " . $perl_args;
 
-    my $perl_command = "\"$Config{perlpath}\" -S $script $perl_args";
+    my $perl_command = "\"".&util::get_perl_exec()."\" -S $script $perl_args";