Changeset 593 for trunk/technical/common

Timestamp:

Sep 4, 2002, 1:36:19 PM (22 years ago)

Author:

pstorz

Message:

Abfrage geändert

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.1 2002/09/03 14:13:10 pstorz Exp $
+# $Id: buildall.pl,v 1.2 2002/09/04 11:36:19 pstorz Exp $
 use Getopt::Std;
 
@@ -13 +13 @@
 getopts('b:');
 
+if (!$opt_b)
+{die "usage: buildall.pl -b buildlist\n";
+};
+
 (open(BUILDLIST,$opt_b)) || die "Die Buildlist $opt_b  konnte nicht gefunden werden";
 
@@ -19 +23 @@
   {
     next if (/^\#.*$/);
-    if (/([\w\/]+)\s*:([\/\w\-\+\.]+)\s+:?((\s*\-\-\w*)*)$/)
+#    if (/([\w\/]+)\s*:([\/\w\-\+\.]+)\s+:((\s*\-\-\w*)*)$/)
+    if (/(\S+)\s*:(\S+)\s*:(\S+)\s*$/)
       {
         ($dir, $arch, $opt) = ($1, $2, $3);
@@ -28 +33 @@
   }
 
+
+
+print "What will be done:\n";
+print "Path\tDistribution\tBuildoptions\n";
 for $i (0 .. $#ArrayofBuilds)
   {
-  print("$ArrayofBuilds[$i][0]\t$ArrayofBuilds[$i][1]\t$ArrayofBuilds[$i][2]\n");
+    print("$ArrayofBuilds[$i][0]\t\t$ArrayofBuilds[$i][1]\t\t$ArrayofBuilds[$i][2]\n");
+  }
+print "\n\n\n ATTENTION: the srpms from the directory external/SuSE  must be built before!\n";
+print "to build srpms, goto dir external/SuSE, execute build_srpms.sh script!\n\n\n";
+print 'Are the srpms built and all options OK? (y/n)';
+
+$answer =<STDIN>;
+chomp ($answer);
+if ($answer ne "y") {die("canceled")};
+
+for $i (0 .. $#ArrayofBuilds)
+  {
+  print("$ArrayofBuilds[$i][0]\t\t$ArrayofBuilds[$i][1]\t\t$ArrayofBuilds[$i][2]\n");
   $mypath = $smartclient_root.$ArrayofBuilds[$i][0];
 
@@ -42 +63 @@
     }
   $ENV{'BUILD_DIST'}=$ArrayofBuilds[$i][1];
+  $ENV{'BUILD_DIST'}=$ArrayofBuilds[$i][1];
+  
 #  system "./test.sh";
   $_=$ArrayofBuilds[$i][0];
   print "$_ \n";
   tr/\//\_/;
-  $logfilename = $_.".log";
+  $logfilename = $_.".$ArrayofBuilds[$i][1].log";
   print "++++++++++++++++++++++++++++++++++++++++++\n";
   print "executing command: cd $mypath; $build 2>&1 |tee $logfilename\n";
   print "BUILD_DIST ist $ENV{'BUILD_DIST'}\n";
   print "BUILD_MODE ist $ENV{'BUILD_MODE'}\n";
-
+  
   print "writing logfile to $logfilename \n";
   print "++++++++++++++++++++++++++++++++++++++++++\n";