Changeset 599 for trunk/technical/common

Timestamp:

Sep 5, 2002, 11:21:58 AM (22 years ago)

Author:

pstorz

Message:

Ausgaben werden nun formatiert ausgegeben.

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.5 2002/09/04 14:49:42 pstorz Exp $
+# $Id: buildall.pl,v 1.6 2002/09/05 09:21:58 pstorz Exp $
 use Getopt::Std;
+
+
+format TABELLE =
+@<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+$wert1, $wert2, $wert3
+.
+
 
 # Programmoptionen: -b (buildlist) 
@@ -35 +42 @@
 
 
-print "What will be done:\n";
-print "Path\tDistribution\tBuildoptions\n";
+print "What will be done:\n\n";
+($wert1,$wert2,$wert3)= ("Path","Distribuition","Buildoptions");
+$~="TABELLE";
+write;
+print "\n";
 for $i (0 .. $#ArrayofBuilds)
   {
-    print("$ArrayofBuilds[$i][0]\t\t$ArrayofBuilds[$i][1]\t\t$ArrayofBuilds[$i][2]\n");
+    ($wert1,$wert2,$wert3)= ($ArrayofBuilds[$i][0],$ArrayofBuilds[$i][1],$ArrayofBuilds[$i][2]);
+    $~="TABELLE";
+    write;
   }
 print "\n\n\n ATTENTION: the srpms from the directory external/SuSE  must be built before!\n";
@@ -88 +100 @@
  if ($retval == 0)
    {
-     $ArrayofBuilds[$i][3]= "building of $ArrayofBuilds[$i][0] SUCCESSFULL:";
+     $ArrayofBuilds[$i][3]= "SUCESS $ArrayofBuilds[$i][0] :";
      print"******                                                      ******\n";
      print"******   building of $ArrayofBuilds[$i][0] SUCCESSFULL:     \n" ;
@@ -95 +107 @@
  else
    {
-     $ArrayofBuilds[$i][3]="ERROR: building of $ArrayofBuilds[$i][0] UNSUCCESSFULL:\n";
+     $ArrayofBuilds[$i][3]="ERROR  $ArrayofBuilds[$i][0] UNSUCCESSFULL:\n";
      print"******                                                      ******\n";
      print"\n\n\nERROR: building of $ArrayofBuilds[$i][0] UNSUCCESSFULL \n";
@@ -105 +117 @@
 print "Building results:\n";
 
+
+
+($wert1,$wert2,$wert3)= ("Path","Distribuition","Result");
+$~="TABELLE";
+write;
+print "\n";
+
 for $i (0 .. $#ArrayofBuilds)
   {
-    print("$ArrayofBuilds[$i][0]:Result: $ArrayofBuilds[$i][3]");
+    ($wert1,$wert2,$wert3)= ($ArrayofBuilds[$i][0],$ArrayofBuilds[$i][1],$ArrayofBuilds[$i][3]);
+    $~="TABELLE";
+    write;
+#    print("$ArrayofBuilds[$i][0]:Result: $ArrayofBuilds[$i][3]");
   }
 
@@ -117 +139 @@
 
 
+