235 lines
6.1 KiB
Batchfile
235 lines
6.1 KiB
Batchfile
@REM -----------------------------------------------------------------
|
|
@REM
|
|
@REM SetBuildStatus.cmd - miker
|
|
@REM Call SetBuildStatus.vbs with the proper data to record the
|
|
@REM build status in the status database. Only runs for official
|
|
@REM builds.
|
|
@REM
|
|
@REM Copyright (c) Microsoft Corporation. All rights reserved.
|
|
@REM
|
|
@REM -----------------------------------------------------------------
|
|
@if defined _CPCMAGIC goto CPCBegin
|
|
@perl -x "%~f0" %*
|
|
@goto :EOF
|
|
#!perl
|
|
use strict;
|
|
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts"; # NOTE: Remove if BuildName.pm ever moves out to \tools
|
|
use lib $ENV{RAZZLETOOLPATH};
|
|
use ParseArgs;
|
|
use Logmsg;
|
|
use cklang;
|
|
|
|
sub Usage { print<<USAGE; exit(0) }
|
|
SetBuildStatus.cmd -s:stage [-n:buildnumber] [-l:lang]
|
|
|
|
Call SetBuildStatus.vbs with the proper data to record the
|
|
build status in the status database. Only runs for official
|
|
builds.
|
|
|
|
-s:buildstage Build Stage. Must be one of the ones below. Note
|
|
that "done" and "scrub" are mutually exclusive
|
|
for a given build of a lang and archtype.
|
|
build
|
|
postbuild
|
|
boot
|
|
bvt
|
|
release
|
|
done
|
|
scrub
|
|
-n:buildnum Build number. Must be a full build number in the
|
|
form "number.archtype.branch.date". If one is not
|
|
provided, we will attempt to use the value from
|
|
the first one of these that we can find it from:
|
|
%SDXROOT%\\BuildName.txt
|
|
%_NTPOSTBUILD%\\build_logs\BuildName.txt
|
|
%_NTTREE%\\build_logs\BuildName.txt
|
|
-l:language Any valid language from codes.txt. Default is USA.
|
|
|
|
|
|
Note that this tool is designed to be run during automated build
|
|
processes and any problems it encounters are not output as
|
|
errors - not reporting build status is not a build blocking
|
|
issue. This script should never output something that says
|
|
"ERROR: xxxx", but instead simply output the relevant information
|
|
about what happened so it will be logged for later use.
|
|
|
|
USAGE
|
|
|
|
|
|
sub build_name {
|
|
my $build_name;
|
|
if ($_[0]) { return lc($_[0]) }
|
|
|
|
my $BuildNameTxt;
|
|
if(-e ("$ENV{SDXROOT}\\BuildName.txt" )){
|
|
$BuildNameTxt = "$ENV{SDXROOT}\\BuildName.txt";
|
|
|
|
}
|
|
elsif(-e ("$ENV{_NTPOSTBLD}\\build_logs\\BuildName.txt" )){
|
|
$BuildNameTxt = "$ENV{_NTPOSTBLD}\\build_logs\\BuildName.txt";
|
|
}
|
|
elsif(-e ("$ENV{_NTTREE}\\build_logs\\BuildName.txt" )){
|
|
$BuildNameTxt = "$ENV{_NTTREE}\\build_logs\\BuildName.txt";
|
|
}
|
|
# else{
|
|
# Myerrmsg( "Couldn't open file $BuildNameTxt: $!");
|
|
# }
|
|
|
|
|
|
if (-e $BuildNameTxt) {
|
|
my $fh = new IO::File $BuildNameTxt, "r";
|
|
if (defined $fh) {
|
|
$build_name = $fh->getline;
|
|
chomp($build_name);
|
|
undef $fh;
|
|
} else {
|
|
Myerrmsg( "Couldn't open file $BuildNameTxt!");
|
|
}
|
|
} else {
|
|
# Myerrmsg( "File '$BuildNameTxt' does not exist.");
|
|
}
|
|
return lc($build_name);
|
|
}
|
|
|
|
|
|
my ($BuildStage, $BuildNumber, $BuildBranch, $Lang);
|
|
|
|
|
|
parseargs('?' => \&Usage,
|
|
's:' => \$BuildStage,
|
|
'n:' => \$BuildNumber,
|
|
'l:' => \$Lang);
|
|
|
|
|
|
|
|
|
|
# Save off the language - but only if we got one
|
|
if ( $Lang )
|
|
{
|
|
# Save what they gave us.
|
|
$ENV{LANG} = $Lang;
|
|
}
|
|
|
|
# If nothing is set, default to 'usa'
|
|
$ENV{LANG} ||= 'usa';
|
|
|
|
|
|
# validate language, bad languages are fatal
|
|
if (!&cklang::CkLang($ENV{LANG}))
|
|
{
|
|
Myerrmsg( "Language $ENV{LANG} is not listed in codes.txt." );
|
|
exit(0);
|
|
}
|
|
|
|
|
|
|
|
|
|
# Validate the build stage...
|
|
$BuildStage =~ tr/A-Z/a-z/;
|
|
if ( $BuildStage ne "build" &&
|
|
$BuildStage ne "postbuild" &&
|
|
$BuildStage ne "boot" &&
|
|
$BuildStage ne "bvt" &&
|
|
$BuildStage ne "release" &&
|
|
$BuildStage ne "done" &&
|
|
$BuildStage ne "scrub" )
|
|
{
|
|
Myerrmsg( "Build stage is not valid." );
|
|
exit(0);# Note: Exits when done
|
|
}
|
|
|
|
|
|
|
|
|
|
# Make sure we have a build number...
|
|
if ( !$BuildNumber )
|
|
{
|
|
# Nothing given on the command line. Get the current build number and save it...
|
|
|
|
# Reset %_NTPostBld% first...
|
|
my $Saved_NTPostBld = $ENV{_NTPOSTBLD};
|
|
if (lc($ENV{LANG}) ne 'usa' && !$ENV{dont_modify_ntpostbld} )
|
|
{
|
|
$ENV{_NTPOSTBLD} .= "\\$ENV{LANG}";
|
|
}
|
|
|
|
# Get the info we need...
|
|
$BuildNumber = build_name();
|
|
|
|
# Set %_NTPostBld% back to whatever it was...
|
|
$ENV{_NTPOSTBLD} = $Saved_NTPostBld;
|
|
|
|
|
|
# Did we get anything?
|
|
if ( ! $BuildNumber )
|
|
{
|
|
Myerrmsg( "Unable to determine the current build number and one was not provided on the command line." );
|
|
exit(0);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
# Extract the branch from the build number.
|
|
if ( $BuildNumber =~ /([0-9]+)\.(x86|ia64)(fre|chk)\.([0-9A-Za-z_]+)\.([0-9\-]+)/ )
|
|
{
|
|
$BuildBranch = $4;
|
|
}
|
|
else
|
|
{
|
|
Myerrmsg( "Build number '$BuildNumber' is not in usable format" );
|
|
exit(0); # Note: Exits when done
|
|
}
|
|
|
|
|
|
# Log what we know for reference purposes...
|
|
logmsg( "[Lang = $ENV{LANG}]" );
|
|
logmsg( "[Build = $BuildNumber]" );
|
|
logmsg( "[Branch = $BuildBranch]" );
|
|
logmsg( "[Stage = $BuildStage]" );
|
|
|
|
|
|
if ( !$ENV{OFFICIAL_BUILD_MACHINE} )
|
|
{
|
|
logmsg( "This is not an official build machine. No build status will be written to the database." );
|
|
}
|
|
else
|
|
{
|
|
logmsg( "Writing build status to database..." );
|
|
|
|
my $CommandToCall = "cscript /NOLOGO $ENV{RAZZLETOOLPATH}\\SetBuildStatus.vbs $BuildNumber $ENV{LANG} $BuildBranch $BuildStage";
|
|
|
|
print ( "$CommandToCall\n" );
|
|
|
|
# Run the command and log it's raw output...
|
|
foreach $_ (`$CommandToCall`)
|
|
{
|
|
s/$(.*)\n/\1/;
|
|
logmsg( "$_" );
|
|
}
|
|
|
|
# Check the return code and if needed log an error...
|
|
my $ReturnCode;
|
|
$ReturnCode = $? / 256;
|
|
if ( $? || $ReturnCode != 0 )
|
|
{
|
|
# The command returned an unexpected return code!
|
|
Myerrmsg( "cscript call failed with code $ReturnCode when code 0 was expected. System Error Code is $?." );
|
|
}
|
|
|
|
logmsg( "Done writing build status to database." );
|
|
}
|
|
|
|
|
|
|
|
sub Myerrmsg
|
|
{
|
|
my $msg = shift;
|
|
if ( exists $ENV{BUILDMSG} )
|
|
{
|
|
print "Build_Status error\n$0 : error : $msg (ignorable)";
|
|
}
|
|
print ( "$msg\n" );
|
|
}
|
|
|
|
# Done! |