| Line 32... |
Line 32... |
| 32 |
use File::Find;
|
32 |
use File::Find;
|
| 33 |
use Storable qw(dclone);
|
33 |
use Storable qw(dclone);
|
| 34 |
#use Digest::SHA qw(sha1);
|
34 |
#use Digest::SHA qw(sha1);
|
| 35 |
use Digest::SHA::PurePerl qw(sha1);
|
35 |
use Digest::SHA::PurePerl qw(sha1);
|
| 36 |
use JatsSignatureBuilder;
|
36 |
use JatsSignatureBuilder;
|
| - |
|
37 |
use JatsProperties;
|
| 37 |
|
38 |
|
| 38 |
our $BuildVersion = "2.1.0";
|
39 |
our $BuildVersion = "2.1.0";
|
| 39 |
|
40 |
|
| 40 |
#.. Switchs
|
41 |
#.. Switchs
|
| 41 |
#
|
42 |
#
|
| Line 82... |
Line 83... |
| 82 |
our $BUILDNAME_PROJECT; # Project(optional)
|
83 |
our $BUILDNAME_PROJECT; # Project(optional)
|
| 83 |
our $BUILDNAME_SUFFIX; # Project (available)
|
84 |
our $BUILDNAME_SUFFIX; # Project (available)
|
| 84 |
our $DEPLOY_PATCH = 0; # Deplyment patch number
|
85 |
our $DEPLOY_PATCH = 0; # Deplyment patch number
|
| 85 |
our $BUILDSIGNATURE; # Source signature - generated
|
86 |
our $BUILDSIGNATURE; # Source signature - generated
|
| 86 |
my $CheckSignature; # Check signature
|
87 |
my $CheckSignature; # Check signature
|
| - |
|
88 |
my $RELEASE_VERSION; # Release-wide version information
|
| - |
|
89 |
my $RELEASE_MAJOR;
|
| - |
|
90 |
my $RELEASE_MINOR;
|
| - |
|
91 |
my $RELEASE_PATCH;
|
| - |
|
92 |
my $RELEASE_BUILD;
|
| 87 |
|
93 |
|
| 88 |
our %BUILDALIAS_DELAY = (); # Delayed aliases
|
94 |
our %BUILDALIAS_DELAY = (); # Delayed aliases
|
| 89 |
our %BUILDALIAS_TARGETS = (); # BuildAlias from --Targets
|
95 |
our %BUILDALIAS_TARGETS = (); # BuildAlias from --Targets
|
| 90 |
our %BUILDALIAS = (); # BuildAlias
|
96 |
our %BUILDALIAS = (); # BuildAlias
|
| 91 |
our %BUILDPRODUCT = (); # BuildProduct
|
97 |
our %BUILDPRODUCT = (); # BuildProduct
|
| Line 233... |
Line 239... |
| 233 |
#
|
239 |
#
|
| 234 |
# If we are not performing a ForceBuild, then we don't need to continue
|
240 |
# If we are not performing a ForceBuild, then we don't need to continue
|
| 235 |
# We have updated the interface directory with BuildPkgArchive
|
241 |
# We have updated the interface directory with BuildPkgArchive
|
| 236 |
# information.
|
242 |
# information.
|
| 237 |
#
|
243 |
#
|
| 238 |
unless ( $::GBE_SANDBOX )
|
244 |
unless ( $::GBE_SANDBOX ) {
|
| 239 |
{
|
- |
|
| 240 |
TestForForcedBuild();
|
245 |
TestForForcedBuild();
|
| 241 |
}
|
246 |
}
|
| 242 |
|
247 |
|
| 243 |
#
|
248 |
#
|
| 244 |
# Must inform makelib that its running under buildlib
|
249 |
# Must inform makelib that its running under buildlib
|
| Line 1504... |
Line 1509... |
| 1504 |
Debug( "BuildName(@arguments)" );
|
1509 |
Debug( "BuildName(@arguments)" );
|
| 1505 |
Error( "Platform(s) not defined.",
|
1510 |
Error( "Platform(s) not defined.",
|
| 1506 |
"BuildAlias, BuildProduct and BuildPlatform directives must be defined prior to BuildName()." )
|
1511 |
"BuildAlias, BuildProduct and BuildPlatform directives must be defined prior to BuildName()." )
|
| 1507 |
unless( scalar @BUILDPLATFORMS );
|
1512 |
unless( scalar @BUILDPLATFORMS );
|
| 1508 |
|
1513 |
|
| - |
|
1514 |
|
| - |
|
1515 |
#
|
| - |
|
1516 |
# Load Sandbox Versioning information
|
| - |
|
1517 |
# From sandbox / version.properties
|
| - |
|
1518 |
#
|
| - |
|
1519 |
if ($::GBE_SANDBOX) {
|
| - |
|
1520 |
my $buildVersionFile = CatPaths($::GBE_DPKG_SBOX, 'version.properties');
|
| - |
|
1521 |
if (-f $buildVersionFile) {
|
| - |
|
1522 |
my $buildProperties = JatsProperties::New($buildVersionFile);
|
| - |
|
1523 |
$RELEASE_VERSION = $buildProperties->getProperty('ReleaseVersion');
|
| - |
|
1524 |
Error ("ReleaseVersion property not found in $buildVersionFile") unless defined $RELEASE_VERSION;
|
| - |
|
1525 |
Error ("Invalid format of ReleaseVersion", "File: $buildVersionFile", "Require: nn.nn.nn", "Got: $RELEASE_VERSION" ) unless ($RELEASE_VERSION =~ m~^(\d+)\.(\d+)\.(\d+)$~);
|
| - |
|
1526 |
($RELEASE_MAJOR,$RELEASE_MINOR,$RELEASE_PATCH, $RELEASE_BUILD) = ($1,$2,$3,0);
|
| - |
|
1527 |
$RELEASE_BUILD = $buildProperties->getProperty('ReleaseBuildNumber', $RELEASE_BUILD);
|
| - |
|
1528 |
Error ("Invalid format of ReleaseBuildNumber", "File: $buildVersionFile", "Require: nnnn", "Got: $RELEASE_BUILD" ) unless ($RELEASE_BUILD =~ m~^(\d+)$~);
|
| - |
|
1529 |
$RELEASE_VERSION = join('.',$RELEASE_MAJOR,$RELEASE_MINOR,$RELEASE_PATCH, $RELEASE_BUILD);
|
| - |
|
1530 |
Verbose("Release Version: ", $RELEASE_VERSION,$RELEASE_MAJOR,$RELEASE_MINOR,$RELEASE_PATCH, $RELEASE_BUILD);
|
| - |
|
1531 |
}
|
| - |
|
1532 |
}
|
| - |
|
1533 |
|
| - |
|
1534 |
|
| 1509 |
#.. Parse arguments
|
1535 |
#.. Parse arguments
|
| 1510 |
#.
|
1536 |
#.
|
| 1511 |
my $build_info = parseBuildName( @arguments );
|
1537 |
my $build_info = parseBuildName( @arguments );
|
| 1512 |
|
1538 |
|
| 1513 |
$BUILDNAME_PACKAGE = $build_info->{BUILDNAME_PACKAGE};
|
1539 |
$BUILDNAME_PACKAGE = $build_info->{BUILDNAME_PACKAGE};
|
| Line 1532... |
Line 1558... |
| 1532 |
my ($sep) = "\n".(" " x 11) . ". ";
|
1558 |
my ($sep) = "\n".(" " x 11) . ". ";
|
| 1533 |
|
1559 |
|
| 1534 |
Log( "\nBuild configuration (version $::GBE_VERSION)" );
|
1560 |
Log( "\nBuild configuration (version $::GBE_VERSION)" );
|
| 1535 |
Log( "Name ....... $BUILDNAME ($ScmHost)" );
|
1561 |
Log( "Name ....... $BUILDNAME ($ScmHost)" );
|
| 1536 |
Log( "Version .... $BUILDNAME_VERSION" );
|
1562 |
Log( "Version .... $BUILDNAME_VERSION" );
|
| - |
|
1563 |
Log( "Release .... $RELEASE_VERSION" ) if (defined $RELEASE_VERSION);
|
| 1537 |
Log( "DeployPatch. $DEPLOY_PATCH" ) if ($DEPLOY_PATCH);
|
1564 |
Log( "DeployPatch. $DEPLOY_PATCH" ) if ($DEPLOY_PATCH);
|
| 1538 |
Log( "Project .... $BUILDNAME_PROJECT" )if ($BUILDNAME_PROJECT);
|
1565 |
Log( "Project .... $BUILDNAME_PROJECT" )if ($BUILDNAME_PROJECT);
|
| 1539 |
Log( "Project .... ****** Specifically supressed ******" )unless ($BUILDNAME_PROJECT);
|
1566 |
Log( "Project .... ****** Specifically supressed ******" )unless ($BUILDNAME_PROJECT);
|
| 1540 |
Log( "DateTime ... $::CurrentTime" );
|
1567 |
Log( "DateTime ... $::CurrentTime" );
|
| 1541 |
Log( "AutoBuild... Enabled:$::GBE_ABT" ) if defined($::GBE_ABT) ;
|
1568 |
Log( "AutoBuild... Enabled:$::GBE_ABT" ) if defined($::GBE_ABT) ;
|