Changeset 2472 for trunk

Timestamp:

2001-05-25T14:34:44+12:00 (23 years ago)

Author:

paynter

Message:

execute perl scripts with perl -S.

File:

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

trunk/gsdl/bin/script/mirror.pl

@@ -119 +119 @@
     # run the mirror program from the import directory
     my  $cmd = "cd $importdir; ";
-    $cmd .= "gsw3mir.pl -cfgfile $etcdir/w3mir.cfg";
+    $cmd .= "perl -S gsw3mir.pl -cfgfile $etcdir/w3mir.cfg";
     # print "\n$cmd\n";
     `$cmd`;
@@ -129 +129 @@
     elsif ((-e "$etcdir/wget.cfg") && (-e "$etcdir/wget.url")) {
     $ENV{WGETRC} = "$etcdir/wget.cfg";
-    my $cmd = "gsWget.pl --input-file=$etcdir/wget.url --directory-prefix=$importdir";
+    my $cmd = "perl -S gsWget.pl --input-file=$etcdir/wget.url --directory-prefix=$importdir";
     system($cmd);
     }