Subversion Repositories DevTools

Rev

Rev 267 | Rev 345 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 267 Rev 279
Line 35... Line 35...
35 
# define Global variables
 35 
# define Global variables
36 
#
 36 
#
37 
my $VERSION = "2.4.1";
 37 
my $VERSION = "2.4.1";
38 
my $PROGNAME = "create_dpkg.pl";
 38 
my $PROGNAME = "create_dpkg.pl";
39 
 
 39 
 
- 
 
 40 
# Globals imported from environment
40 
 
 41 
#
41 
our $GBE_MACHTYPE;
 42 
our $GBE_MACHTYPE;
- 
 
 43 
our $GBE_HOSTNAME;
- 
 
 44 
our $USER;
- 
 
 45 
our $GBE_ABT;
- 
 
 46 
 
- 
 
 47 
# Global variables
- 
 
 48 
#
42 
my $DPKG_NAME     = "";
 49 
my $DPKG_NAME     = "";
43 
my $DESC_NAME     = "";
 50 
my $DESC_NAME     = "";
44 
my $DPKG_VERSION  = "";
 51 
my $DPKG_VERSION  = "";
45 
my $DESCPKG_FILE  = "";
 52 
my $DESCPKG_FILE  = "";
46 
my $DESCPKG_TYPE  = "";
 53 
my $DESCPKG_TYPE  = "";
Line 147... Line 154...
147 
 
 154 
 
148 
    #
 155 
    #
149 
    #   Needed EnvVars
 156 
    #   Needed EnvVars
150 
    #
 157 
    #
151 
    EnvImport ('GBE_MACHTYPE');
 158 
    EnvImport ('GBE_MACHTYPE');
- 
 
 159 
    EnvImport ('GBE_HOSTNAME');
- 
 
 160 
    EnvImport ('USER' );
- 
 
 161 
    EnvImportOptional ('GBE_ABT', "");
- 
 
 162 
 
152 
 
 163 
 
153 
    #
 164 
    #
154 
    #   Check for a "pkg" directory
 165 
    #   Check for a "pkg" directory
155 
    #   This may be in:
 166 
    #   This may be in:
156 
    #       1) The deploy directory (DEPLOY) build/deploy/descpkg
 167 
    #       1) The deploy directory (DEPLOY) build/deploy/descpkg
Line 318... Line 329...
318 
    Information ("Repository    = [$DPKG_ROOT]$e_repository");
 329 
    Information ("Repository    = [$DPKG_ROOT]$e_repository");
319 
    Information ("Target dir    = [$DPKG_DIR]");
 330 
    Information ("Target dir    = [$DPKG_DIR]");
320 
    Information1("DPKG_NAME     = [$DPKG_NAME]");
 331 
    Information1("DPKG_NAME     = [$DPKG_NAME]");
321 
    Information1("DPKG_VERSION  = [$DPKG_VERSION]");
 332 
    Information1("DPKG_VERSION  = [$DPKG_VERSION]");
322 
    Information1("GBE_MACHTYPE  = [$GBE_MACHTYPE]");
 333 
    Information1("GBE_MACHTYPE  = [$GBE_MACHTYPE]");
- 
 
 334 
    Information1("GBE_HOSTNAME  = [$GBE_HOSTNAME]");
- 
 
 335 
    Information1("GBE_ABT       = [$GBE_ABT]");
- 
 
 336 
    Information1("USER          = [$USER]");
323 
    Information ("")                                if ( $opt_merge || $opt_override );
 337 
    Information ("")                                if ( $opt_merge || $opt_override );
324 
    Information ("Opt:Override  = Enabled")         if ( $opt_override );
 338 
    Information ("Opt:Override  = Enabled")         if ( $opt_override );
325 
    Information ("Opt:Merge     = Enabled")         if ( $opt_merge );
 339 
    Information ("Opt:Merge     = Enabled")         if ( $opt_merge );
326 
    Information ("Opt:TestMode  = Enabled. No Package Transferred") if ( $opt_test );
 340 
    Information ("Opt:TestMode  = Enabled. No Package Transferred") if ( $opt_test );
327 
    Information ("---------------------------------------------------------------");
 341 
    Information ("---------------------------------------------------------------");
Line 499... Line 513...
499 
    #
 513 
    #
500 
    #   Transfer of data is complete
 514 
    #   Transfer of data is complete
501 
    #       Mark the archive with the build type to indicate which parts of
 515 
    #       Mark the archive with the build type to indicate which parts of
502 
    #       a multi-machine build have been performed
 516 
    #       a multi-machine build have been performed
503 
    #
 517 
    #
504 
    #
 - 
 
505 
    my $touchfile = $opt_generic ? "$DPKG_DIR/built.generic" : "$DPKG_DIR/built.$GBE_MACHTYPE";
 518 
    my $touchfile = $opt_generic ? "$DPKG_DIR/built.generic" : "$DPKG_DIR/built.$GBE_MACHTYPE";
- 
 
 519 
 
- 
 
 520 
    #
- 
 
 521 
    #   Create astring to be appended to the 'built' file
- 
 
 522 
    #   Comma seperated list of (possibly) usefule info
- 
 
 523 
    #       Date-Time ( Local and GMT)
- 
 
 524 
    #       machine type, machine name and the user
- 
 
 525 
    #       GBE_ABT value
- 
 
 526 
    #
- 
 
 527 
    my $built_info = localtime() ."," . gmtime() . " GMT,$GBE_MACHTYPE,$GBE_HOSTNAME,$USER,$GBE_ABT";
506 
    LogFileOp("Mark File",$touchfile);
 528 
    LogFileOp("Mark File",$touchfile);
507 
    TouchFile ( $touchfile) && Error("Failed to create file [$touchfile].");
 529 
    FileAppend ( $touchfile, $built_info );
508 
 
 530 
 
509 
    #
 531 
    #
510 
    #   If there is a .lnk file in the archive then remove it now that the
 532 
    #   If there is a .lnk file in the archive then remove it now that the
511 
    #   archive has been transferred. The .lnk files are created in 'local'
 533 
    #   archive has been transferred. The .lnk files are created in 'local'
512 
    #   archives in order to simplify multi-package builds
 534 
    #   archives in order to simplify multi-package builds