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