Changeset 611 for trunk/technical/common/build/build_srpms.pl

Timestamp:

Sep 17, 2002, 12:03:24 PM (22 years ago)

Author:

pstorz

Message:

* empty log message *

File:

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

trunk/technical/common/build/build_srpms.pl

@@ -2 +2 @@
 # automatisches buildskript fuer smartclient-sourcerpms
 # liest die konfiguration aus der mit -b übergebenen Datei
-# $Id: build_srpms.pl,v 1.1 2002/09/17 09:50:20 pstorz Exp $
+# $Id: build_srpms.pl,v 1.2 2002/09/17 10:03:24 pstorz Exp $
 # Philipp Storz, SuSE Linux AG 
 # pstorz@suse.de
@@ -14 +14 @@
 
 
-# Programmoptionen: -b (buildlist) 
+# Programmoptionen: -b (buildlist) -x (xterm)
 
 my $smartclient_root="../../";   # Pfad, zu dem die Pfade in buildlist stehen
@@ -20 +20 @@
 our ($opt_b);
 my @ArrayofBuilds;
-getopts('b:');
+getopts('b:x');
 
 if (!$opt_b)
@@ -28 +28 @@
 print "other buildlist can be specified with -b buildlist\n\n";
 $opt_b = "buildlist_srpms";
+
 };
 
@@ -116 +117 @@
   chomp $workdir;
   print "less +F $workdir/$mypath/$logfilename\n";
+if ($opt_x)
+  {
   system "xterm -T \"build log for PACKET: $mypath    ARCH:$ArrayofBuilds[$i][1] \" -e less +F $workdir/$mypath/$logfilename &";
   print "++++++++++++++++++++++++++++++++++++++++++\n";
   $retval = system "cd $mypath; $build >$logfilename 2>&1;";
+  }
+  else
+  {
+    $retval = system "cd $mypath; $build |tee $logfilename";
+  }
 # $retval = system "./exit.sh 2>&1 > $logfilename;";