Changeset 660 for trunk/technical/common/build/buildall.pl

Timestamp:

Aug 18, 2003, 3:34:39 PM (21 years ago)

Author:

joergs

Message:

specifying DEST_DIR here instead of build.sh
bugfix with log files

File:

• trunk/technical/common/build/buildall.pl (modified) (5 diffs)

trunk/technical/common/build/buildall.pl

@@ -2 +2 @@
 # automatisches buildskript fuer smartclient
 # liest die konfiguration aus der mit -b übergebenen Datei
-# $Id: buildall.pl,v 1.17 2002/10/18 08:37:46 joergs Exp $
+# $Id: buildall.pl,v 1.18 2003/08/18 13:34:39 joergs Exp $
 # Philipp Storz, SuSE Linux AG 
 # pstorz@suse.de
@@ -33 +33 @@
 #my $smartclient_root="/home/joergs/projects/smartclient/stuttgarter-versicherung/technical/";
 #$workdir="";
+
+my $DEST_DIR="/tmp/smartclient_build/";
+
 
 my $build = "build.sh";
@@ -85 +88 @@
 if ($answer ne "y") {die("canceled")};
 
+$ENV{'DEST_DIR'}=$DEST_DIR;
+
 my $mypath;
 for my $i (0 .. $#ArrayofBuilds)
@@ -105 +110 @@
   print "$_ \n";
   tr/\//\_/;
-  my $logfilename = "/tmp/smartclient_build/$_.$ArrayofBuilds[$i][1].log";
+  `mkdir -p $DEST_DIR`;
+  my $logfilename = "$DEST_DIR/$_$ArrayofBuilds[$i][1].log";
 
   my $build_cmd="cd $mypath && $build";
@@ -128 +134 @@
   print "executing build command:\n";
   print "$build_cmd\n";
-  print "you can watch building with following command: \n";
-  print "less +F $logfilename\n\n";
 
-  my $do_log = open( LOG_FD, ">$logfilename" ) || print "could not open logfile $logfilename";
+  my $do_log = open( LOG_FD, ">$logfilename" );
+  if( $do_log ) {
+    print "you can watch building with following command: \n";
+    print "less +F $logfilename\n\n";
+  } else {
+        print "could not open logfile $logfilename\n";
+  }
   open( PIPE, "$build_cmd 2>&1 |" );
   while( <PIPE> ) {