Changeset 19409 for gsdl/trunk/bin/script/full-import.pl

Timestamp:

2009-05-12T17:29:56+12:00 (15 years ago)

Author:

ak19

Message:

Getting the incremental build scripts to work on Windows (it already works on the Vista here, but only because .pl files were associated with Perl).

File:

• gsdl/trunk/bin/script/full-import.pl (modified) (1 diff)

gsdl/trunk/bin/script/full-import.pl

@@ -31 +31 @@
 
 
+BEGIN {
+    die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
+    # for windows, need PERLPATH in order to launch Perl
+    if($ENV{'GSDLOS'} =~ m/windows/) {
+    die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'};
+    }
+}
+
 use strict;
 
 my $quoted_argv = join(" ", map { "\"$_\"" } @ARGV);
 
-
 my $import_cmd = "import.pl -removeold $quoted_argv";
+if($ENV{'GSDLOS'} =~ m/windows/) {
+    $import_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $import_cmd";
+    #$import_cmd = "perl -S $import_cmd";
+}
 
 my $import_status = system($import_cmd)/256;