Changeset 24125 for main/trunk/greenstone2/bin/script/mirror.pl

Timestamp:

2011-06-08T16:24:39+12:00 (13 years ago)

Author:

ak19

Message:

Sam and I fixed all calls to perl specifying a perlpath that was not embedded in quotes so that the perlpath is now nested in quotes (so that we don't have problems launching perl from within another perl script when there are spaces in the filepath).

File:

• main/trunk/greenstone2/bin/script/mirror.pl (modified) (2 diffs)

main/trunk/greenstone2/bin/script/mirror.pl

@@ -117 +117 @@
     my  $cmd = "cd $importdir; ";
     #$^X is a special variable containing the full path to the current perl executable we are in
-    $cmd .= "$^X -S gsw3mir.pl -cfgfile $etcdir/w3mir.cfg";
+    $cmd .= "\"$^X\" -S gsw3mir.pl -cfgfile $etcdir/w3mir.cfg";
     # print "\n$cmd\n";
     `$cmd`;
@@ -127 +127 @@
     elsif ((-e "$etcdir/wget.cfg") && (-e "$etcdir/wget.url")) {
     $ENV{WGETRC} = "$etcdir/wget.cfg";
-    my $cmd = "$^X -S gsWget.pl --input-file=$etcdir/wget.url --directory-prefix=$importdir";
+    my $cmd = "\"$^X\" -S gsWget.pl --input-file=$etcdir/wget.url --directory-prefix=$importdir";
     system($cmd);
     }