Changeset 19409 for gsdl/trunk/bin/script/full-rebuild.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-rebuild.pl (modified) (4 diffs)

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

@@ -37 +37 @@
     die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
+
+    # 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'};
+    }
 }
 
@@ -102 +107 @@
     
     my $final_status = 0;
+
+    my $launch_cmd = "";
+    $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S " if($ENV{'GSDLOS'} =~ m/windows/);
     
     print "\n";
@@ -107 +115 @@
     print "* Running  Import  Stage\n";
     print "************************\n";
-    
-    my $import_cmd = "full-import.pl $quoted_argv \"$collect\"";
-    
+
+    my $import_cmd = $launch_cmd . "full-import.pl $quoted_argv \"$collect\"";
+
     my $import_status = system($import_cmd)/256;
     
@@ -118 +126 @@
     print "************************\n";
     
-    my $buildcol_cmd = "full-buildcol.pl $quoted_argv \"$collect\"";
+    my $buildcol_cmd = $launch_cmd . "full-buildcol.pl $quoted_argv \"$collect\"";
     my $buildcol_status = system($buildcol_cmd)/256;
     if ($buildcol_status == 0) {