Changeset 1438 for trunk/gsdl/bin/script/build

Timestamp:

2000-08-21T22:40:55+12:00 (24 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/bin/script/build (modified) (6 diffs)

trunk/gsdl/bin/script/build

@@ -3 +3 @@
 # This perl script may be called directly or by running build.bat on
 # windows (build.bat is in bin\windows)
+
+use FileHandle;
 
 BEGIN {
@@ -11 +13 @@
     "run setup.bat (windows)?\n" unless defined $ENV{'GSDLOS'};
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
+
+    STDOUT->autoflush(1);
+    STDERR->autoflush(1);
 }
 
 use parsargv;
 use util;
-use FileHandle;
 
 if (!parsargv::parse(\@ARGV, 
@@ -153 +157 @@
         print $out "       or archives data. Try downloading an unbuilt version\n";
         print $out "       of the collection from www.nzdl.org\n";
+        &final_out (1) if $use_out;
         die "\n";
     }
     }
+    &final_out (0) if $use_out;
 }
 
@@ -177 +183 @@
     }
     } else {
+    &final_out (2) if $use_out;
     die "\nimport.pl failed\n";
     }
@@ -200 +207 @@
     }
     } else {
+    &final_out (2) if $use_out;
     die "\nbuildcol.pl failed\n";
     }
@@ -239 +247 @@
     &util::rm ($file);
 }
+
+# creates a file called $outfile.final (should only be called if -out option
+# is used and isn't STDERR or STDOUT) and writes an output code to it.
+# An output code of 0 specifies that there was no error
+sub final_out {
+    my ($exit_code) = @_;
+
+    if (open (FINAL, ">$outfile.final")) {
+    print FINAL $exit_code;
+    close FINAL;
+    }
+}