Changeset 599 for trunk/technical/common


Ignore:
Timestamp:
Sep 5, 2002, 11:21:58 AM (22 years ago)
Author:
pstorz
Message:

Ausgaben werden nun formatiert ausgegeben.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/technical/common/build/buildall.pl

    r598 r599  
    22# automatisches buildskript fuer smartclient
    33# liest die konfiguration aus der mit -b übergebenen Datei
    4 # $Id: buildall.pl,v 1.5 2002/09/04 14:49:42 pstorz Exp $
     4# $Id: buildall.pl,v 1.6 2002/09/05 09:21:58 pstorz Exp $
    55use Getopt::Std;
     6
     7
     8format TABELLE =
     9@<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
     10$wert1, $wert2, $wert3
     11.
     12
    613
    714# Programmoptionen: -b (buildlist)
     
    3542
    3643
    37 print "What will be done:\n";
    38 print "Path\tDistribution\tBuildoptions\n";
     44print "What will be done:\n\n";
     45($wert1,$wert2,$wert3)= ("Path","Distribuition","Buildoptions");
     46$~="TABELLE";
     47write;
     48print "\n";
    3949for $i (0 .. $#ArrayofBuilds)
    4050  {
    41     print("$ArrayofBuilds[$i][0]\t\t$ArrayofBuilds[$i][1]\t\t$ArrayofBuilds[$i][2]\n");
     51    ($wert1,$wert2,$wert3)= ($ArrayofBuilds[$i][0],$ArrayofBuilds[$i][1],$ArrayofBuilds[$i][2]);
     52    $~="TABELLE";
     53    write;
    4254  }
    4355print "\n\n\n ATTENTION: the srpms from the directory external/SuSE  must be built before!\n";
     
    88100 if ($retval == 0)
    89101   {
    90      $ArrayofBuilds[$i][3]= "building of $ArrayofBuilds[$i][0] SUCCESSFULL:";
     102     $ArrayofBuilds[$i][3]= "SUCESS $ArrayofBuilds[$i][0] :";
    91103     print"******                                                      ******\n";
    92104     print"******   building of $ArrayofBuilds[$i][0] SUCCESSFULL:     \n" ;
     
    95107 else
    96108   {
    97      $ArrayofBuilds[$i][3]="ERROR: building of $ArrayofBuilds[$i][0] UNSUCCESSFULL:\n";
     109     $ArrayofBuilds[$i][3]="ERROR  $ArrayofBuilds[$i][0] UNSUCCESSFULL:\n";
    98110     print"******                                                      ******\n";
    99111     print"\n\n\nERROR: building of $ArrayofBuilds[$i][0] UNSUCCESSFULL \n";
     
    105117print "Building results:\n";
    106118
     119
     120
     121($wert1,$wert2,$wert3)= ("Path","Distribuition","Result");
     122$~="TABELLE";
     123write;
     124print "\n";
     125
    107126for $i (0 .. $#ArrayofBuilds)
    108127  {
    109     print("$ArrayofBuilds[$i][0]:Result: $ArrayofBuilds[$i][3]");
     128    ($wert1,$wert2,$wert3)= ($ArrayofBuilds[$i][0],$ArrayofBuilds[$i][1],$ArrayofBuilds[$i][3]);
     129    $~="TABELLE";
     130    write;
     131#    print("$ArrayofBuilds[$i][0]:Result: $ArrayofBuilds[$i][3]");
    110132  }
    111133
     
    117139
    118140
     141
Note: See TracChangeset for help on using the changeset viewer.