Changeset 628 for trunk/technical/common

Timestamp:

Oct 18, 2002, 10:37:46 AM (22 years ago)

Author:

joergs

Message:

Test ob logfile angelegt werden kann. Verwindert tausende von Fehlermeldungen, wenn dies nicht der Fall ist.

File:

• trunk/technical/common/build/buildall.pl (modified) (6 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.16 2002/10/17 13:12:57 joergs Exp $
+# $Id: buildall.pl,v 1.17 2002/10/18 08:37:46 joergs Exp $
 # Philipp Storz, SuSE Linux AG 
 # pstorz@suse.de
@@ -28 +28 @@
 chomp $workdir;
 
-my $smartclient_root="../../";   # Pfad, zu dem die Pfade in buildlist stehen
+# Pfad, zu dem die Pfade in buildlist stehen
+my $smartclient_root="../../";   
+
+#my $smartclient_root="/home/joergs/projects/smartclient/stuttgarter-versicherung/technical/";
+#$workdir="";
+
 my $build = "build.sh";
 our ($opt_b, $opt_x);
@@ -35 +40 @@
 
 
-if (!$opt_b)
-{
-$opt_b = "buildlist";
-print "using default buildlist: buildlist\n\n";
-print "other buildlist can be specified with -b buildlist\n\n";
+if (!$opt_b) {
+  $opt_b = "buildlist";
+  print "using default buildlist: buildlist\n\n";
+  print "other buildlist can be specified with -b buildlist\n\n";
 };
 
@@ -101 +105 @@
   print "$_ \n";
   tr/\//\_/;
-  my $logfilename = "$workdir/$mypath/$_.$ArrayofBuilds[$i][1].log";
+  my $logfilename = "/tmp/smartclient_build/$_.$ArrayofBuilds[$i][1].log";
 
   my $build_cmd="cd $mypath && $build";
@@ -127 +131 @@
   print "less +F $logfilename\n\n";
 
-  open( LOG_FD, ">$logfilename" );
+  my $do_log = open( LOG_FD, ">$logfilename" ) || print "could not open logfile $logfilename";
   open( PIPE, "$build_cmd 2>&1 |" );
   while( <PIPE> ) {
@@ -133 +137 @@
           print;
         }
-        print LOG_FD;
+        print LOG_FD if $do_log;
   }
   close PIPE; my $retval=$?;
-  close LOG_FD;
+  close LOG_FD if $do_log;
   
   if ( $retval == 0 )