346 lines
9.7 KiB
Batchfile
346 lines
9.7 KiB
Batchfile
|
@echo off
|
|||
|
|
REM ------------------------------------------------------------------
|
|||
|
|
REM
|
|||
|
|
REM movefiles.cmd
|
|||
|
|
REM Rearrange and collect files in preparation for PRS signing.
|
|||
|
|
REM
|
|||
|
|
REM Copyright (c) Microsoft Corporation. All rights reserved.
|
|||
|
|
REM Version: < 1.0 > 04/09/2001 Suemiao Rossignol
|
|||
|
|
REM ------------------------------------------------------------------
|
|||
|
|
perl -x "%~f0" %*
|
|||
|
|
goto :EOF
|
|||
|
|
#!perl
|
|||
|
|
use strict;
|
|||
|
|
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
|
|||
|
|
use lib $ENV{RAZZLETOOLPATH};
|
|||
|
|
use PbuildEnv;
|
|||
|
|
use Logmsg;
|
|||
|
|
use ParseArgs;
|
|||
|
|
use File::Basename;
|
|||
|
|
use GetIniSetting;
|
|||
|
|
use comlib;
|
|||
|
|
#use HashText;
|
|||
|
|
use cksku;
|
|||
|
|
|
|||
|
|
|
|||
|
|
my $scriptname = basename( $0 );
|
|||
|
|
|
|||
|
|
sub Usage {
|
|||
|
|
print<<USAGE;
|
|||
|
|
|
|||
|
|
Submit PRS signing requests and wait until they finish.
|
|||
|
|
|
|||
|
|
Usage:
|
|||
|
|
$scriptname: -p:<Dest Path> [-d:<Aggregate Path>] [-n:<Build name>]
|
|||
|
|
|
|||
|
|
-p Destination path.
|
|||
|
|
A path to copy the signed files to when done.
|
|||
|
|
|
|||
|
|
-d Aggregate path.
|
|||
|
|
A path to conglomerate PRS files at before submitting to the prslab.
|
|||
|
|
|
|||
|
|
-n Build name.
|
|||
|
|
The name of the service pack or QFE being built.
|
|||
|
|
|
|||
|
|
-? Display Usage.
|
|||
|
|
|
|||
|
|
Example:
|
|||
|
|
$scriptname -l:ger -d:\\prs
|
|||
|
|
|
|||
|
|
|
|||
|
|
USAGE
|
|||
|
|
exit(1)
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
my ( $aggDir, $destDir );
|
|||
|
|
my ( @tableHash );
|
|||
|
|
my ( @prodSkus,%skusDirName, @realSignFiles, @workDir );
|
|||
|
|
my ( $dash, $cmdLine );
|
|||
|
|
my ( $name, $buildName, %certLog, %certFileList, %certPath, %certReqID );
|
|||
|
|
|
|||
|
|
|
|||
|
|
exit(1) if( !&GetParams() );
|
|||
|
|
timemsg( "Start [$scriptname]" );
|
|||
|
|
|
|||
|
|
exit(1) if( !&InitVars() );
|
|||
|
|
|
|||
|
|
exit(1) if( !&SubmitReq );
|
|||
|
|
exit(1) if( &PollReq != 8 );
|
|||
|
|
|
|||
|
|
exit(1) if( !&ErrorCheck );
|
|||
|
|
|
|||
|
|
timemsg( "Complete [$scriptname]\n$dash" );
|
|||
|
|
exit(0);
|
|||
|
|
|
|||
|
|
#-----------------------------------------------------------------------------
|
|||
|
|
sub GetParams
|
|||
|
|
{
|
|||
|
|
parseargs('?' => \&Usage, 'p:' => \$destDir, 'd:' => \$aggDir, 'n:' => \$name );
|
|||
|
|
if( !$aggDir )
|
|||
|
|
{
|
|||
|
|
$aggDir="$ENV{_NTPOSTBLD}\\..\\build_logs\\prs";
|
|||
|
|
}
|
|||
|
|
if( !$name )
|
|||
|
|
{
|
|||
|
|
$name = "sp1";
|
|||
|
|
}
|
|||
|
|
return 1;
|
|||
|
|
}
|
|||
|
|
#-----------------------------------------------------------------------------
|
|||
|
|
sub InitVars
|
|||
|
|
{
|
|||
|
|
#####Defind PRS file aggregation path
|
|||
|
|
%certPath = ( );
|
|||
|
|
|
|||
|
|
if ( -e "$aggDir\\prs" ) {
|
|||
|
|
$certPath{"prs"} = "$aggDir\\prs";
|
|||
|
|
} else {
|
|||
|
|
if ( !&comlib::ExecuteSystem( "touch /c $aggDir\\prs.txt" ) )
|
|||
|
|
{
|
|||
|
|
errmsg("Unable to mark signing for prs as skipped.");
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
if ( -e "$aggDir\\fusion" ) {
|
|||
|
|
$certPath{"fusion"} = "$aggDir\\fusion";
|
|||
|
|
} else {
|
|||
|
|
if ( !&comlib::ExecuteSystem( "touch /c $aggDir\\fusion.txt" ) )
|
|||
|
|
{
|
|||
|
|
errmsg("Unable to mark signing for fusion as skipped.");
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
if ( -e "$aggDir\\pack" ) {
|
|||
|
|
$certPath{"external"} = "$aggDir\\pack";
|
|||
|
|
} else {
|
|||
|
|
if ( !&comlib::ExecuteSystem( "touch /c $aggDir\\external.txt" ) )
|
|||
|
|
{
|
|||
|
|
errmsg("Unable to mark signing for external as skipped.");
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#####Retrieve Build name
|
|||
|
|
if( ! ($buildName = build_name() ))
|
|||
|
|
{
|
|||
|
|
errmsg( "[$ENV{_ntpostbld}\\build_logs\\buildname.txt] not found, exit." );
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
chomp( $buildName );
|
|||
|
|
|
|||
|
|
#####Define submit log
|
|||
|
|
system( "md \"$ENV{_ntpostbld}\\build_logs\\$buildName\" ") if( !( -e "$ENV{_ntpostbld}\\build_logs\\$buildName" ) );
|
|||
|
|
%certLog =( "prs" => "$ENV{_ntpostbld}\\build_logs\\$buildName\\submit_prs.log",
|
|||
|
|
"fusion" => "$ENV{_ntpostbld}\\build_logs\\$buildName\\submit_fusion.log",
|
|||
|
|
"external" => "$ENV{_ntpostbld}\\build_logs\\$buildName\\submit_ext.log" );
|
|||
|
|
|
|||
|
|
#####Misc Init
|
|||
|
|
$dash = '-' x 60;
|
|||
|
|
|
|||
|
|
#####Set Product Skus
|
|||
|
|
%skusDirName=( "pro" => ".", "per" => "perinf");
|
|||
|
|
|
|||
|
|
if ( $ENV{_BuildArch} =~ /x86/i ) {
|
|||
|
|
@prodSkus=("pro","per");
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
@prodSkus=("pro");
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#####Set Working directories
|
|||
|
|
push( @workDir, "." );
|
|||
|
|
|
|||
|
|
logmsg( "Build Name ..............[$buildName\]" );
|
|||
|
|
logmsg( "PRS Share Name...........[$aggDir]" );
|
|||
|
|
logmsg( "Dest Dir Name............[$destDir]" );
|
|||
|
|
logmsg( "Product Skus.............[@prodSkus]" );
|
|||
|
|
logmsg( "Working Directories......[@workDir]" );
|
|||
|
|
logmsg( "Log file ................[$ENV{LOGFILE}]" );
|
|||
|
|
logmsg( "Error file ..............[$ENV{ERRFILE}]" );
|
|||
|
|
|
|||
|
|
return 1;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#-----------------------------------------------------------------------------
|
|||
|
|
sub SubmitReq
|
|||
|
|
{
|
|||
|
|
my ( $cmdLine );
|
|||
|
|
logmsg( $dash );
|
|||
|
|
logmsg( "Submitting the signing request....." );
|
|||
|
|
for my $theCert( keys %certPath)
|
|||
|
|
{
|
|||
|
|
my $tmpCertType = $theCert;
|
|||
|
|
$tmpCertType = "buildlab" if ( $tmpCertType eq "prs" );
|
|||
|
|
my $dispname = "";
|
|||
|
|
if (lc $theCert eq "external") {
|
|||
|
|
if ($name =~ /^q/i) {
|
|||
|
|
$dispname = "-displayname:\"Windows XP QFE (".(uc$name).")\"";
|
|||
|
|
} else {
|
|||
|
|
$dispname = "-displayname:\"Windows XP Service Pack 1\"";
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
$cmdLine = "$ENV{RAZZLETOOLPATH}\\sp\\prs\\submit.cmd $certPath{$theCert} -cert:$tmpCertType $dispname >> $certLog{$theCert}";
|
|||
|
|
if( !&comlib::ExecuteSystem( $cmdLine ) )
|
|||
|
|
{
|
|||
|
|
errmsg( "Error on submitting files for $theCert" );
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
if( !( $certReqID{$theCert} = &comlib::ParsePrsSubmitLog( $certLog{$theCert}, "Request was successfully submitted. ID #" ) ) )
|
|||
|
|
{
|
|||
|
|
errmsg( "Failed to parse [$certLog{$theCert}]");
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
logmsg( "$theCert - $certReqID{$theCert}" );
|
|||
|
|
}
|
|||
|
|
return 1;
|
|||
|
|
}
|
|||
|
|
#-----------------------------------------------------------------------------
|
|||
|
|
sub PollReq
|
|||
|
|
{
|
|||
|
|
use Win32::OLE qw(in);
|
|||
|
|
my %status = ( 1 => 'Pre-Activation',
|
|||
|
|
2 => 'Waiting for Sign-Off',
|
|||
|
|
3 => 'Waiting for Virus Check',
|
|||
|
|
5 => 'Waiting for Digital Signature',
|
|||
|
|
6 => 'Waiting for Time Stamp',
|
|||
|
|
7 => 'Waiting to be posted to signed server',
|
|||
|
|
8 => 'Complete. Posted to Signed Server',
|
|||
|
|
30 => 'Problem Occurred (contact signhelp to reactivate request)',
|
|||
|
|
60 => 'Failed: Signer Rejected Job',
|
|||
|
|
64 => 'Could not strong name sign one or more files',
|
|||
|
|
65 => 'Failed: Automatic Handoff Failed',
|
|||
|
|
66 => 'Failed: Virus Found',
|
|||
|
|
67 => 'Failed: Couldn<64>t Digitally Sign One or More Files',
|
|||
|
|
68 => 'Failed: Couldn<64>t Time Stamp One or More Files',
|
|||
|
|
69 => 'Failed: Job Inactive Too Long',
|
|||
|
|
70 => 'Administratively Failed',
|
|||
|
|
71 => 'Waiting for manual review',
|
|||
|
|
72 => 'On Hold For Phone Verification' );
|
|||
|
|
|
|||
|
|
|
|||
|
|
logmsg( $dash );
|
|||
|
|
logmsg( "-----Polling the request status-----" );
|
|||
|
|
|
|||
|
|
my $request;
|
|||
|
|
|
|||
|
|
if( ! ($request = Win32::OLE->new('SecureCodeSign.CodeSign')) )
|
|||
|
|
{
|
|||
|
|
errmsg( "Failed to instantiate request object ". Win32::OLE->LastError() );
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
if( !$request->Init( "production" ) )
|
|||
|
|
{
|
|||
|
|
errmsg( "Failed to Connect to server and validate permission" );
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
for my $theCert( sort keys %certReqID)
|
|||
|
|
{
|
|||
|
|
logmsg( $dash );
|
|||
|
|
logmsg ( "Polling ID# [$certReqID{$theCert}] for [$theCert]....." );
|
|||
|
|
while( 1 )
|
|||
|
|
{
|
|||
|
|
if ( !$request->UpdateStatus($certReqID{$theCert}) )
|
|||
|
|
{
|
|||
|
|
errmsg( "Failed determining request status: ". Win32::OLE->LastError() );
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
timemsg( $request->Status ." - " .$status{$request->Status} );
|
|||
|
|
if( $request->Status == 8)
|
|||
|
|
{
|
|||
|
|
logmsg( $dash );
|
|||
|
|
return 0 if !&GetFiles($theCert);
|
|||
|
|
last;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
sleep( 60 );
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
return $request->status;
|
|||
|
|
}
|
|||
|
|
#-----------------------------------------------------------------------------
|
|||
|
|
sub MailSignhelp
|
|||
|
|
{
|
|||
|
|
my ( $pSubject ) = @_;
|
|||
|
|
|
|||
|
|
require $ENV{'sdxroot'} . '\TOOLS\sendmsg.pl';
|
|||
|
|
|
|||
|
|
my $mailFrom = "ntbld";
|
|||
|
|
|
|||
|
|
|
|||
|
|
my $mailMsg = "Please investigate.\n Thanks!\n\n";
|
|||
|
|
$mailMsg .= "Windows US Build Team : http://ntbld/\n";
|
|||
|
|
$mailMsg .= "NT Build Lab 26N/2219 - x66817\n";
|
|||
|
|
|
|||
|
|
my @mailTO = ( "signhelp" );
|
|||
|
|
if( sendmsg ('-v', $mailFrom, $pSubject, $mailMsg, @mailTO))
|
|||
|
|
{
|
|||
|
|
print "WARNING: sendmsg failed!\n";
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
return 1;
|
|||
|
|
}
|
|||
|
|
#-----------------------------------------------------------------------------
|
|||
|
|
sub GetFiles
|
|||
|
|
{
|
|||
|
|
my ( $theCert ) = @_;
|
|||
|
|
my $reqID = $certReqID{$theCert};
|
|||
|
|
my $src = "\\\\prslab\\signed2\\$ENV{username}$reqID";
|
|||
|
|
|
|||
|
|
my $dst = $certPath{$theCert};
|
|||
|
|
$dst =~ s/\Q$aggDir\E/$destDir/i;
|
|||
|
|
&comlib::ExecuteSystem( "md $dst" ) if ( !( -d $dst ) );
|
|||
|
|
|
|||
|
|
if ( !&comlib::ExecuteSystem( "xcopy /eify $src $dst" ) )
|
|||
|
|
{
|
|||
|
|
errmsg("Unable to retrieve signed files from $dst to $src.");
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
if ( !&comlib::ExecuteSystem( "touch /c $certPath{$theCert}\\..\\$theCert.txt" ) )
|
|||
|
|
{
|
|||
|
|
errmsg("Unable to mark signing for $theCert as complete.");
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
return 1;
|
|||
|
|
}
|
|||
|
|
#-----------------------------------------------------------------------------
|
|||
|
|
sub ErrorCheck
|
|||
|
|
{
|
|||
|
|
#####Check error logs
|
|||
|
|
if( -e $ENV{errfile} && !(-z $ENV{errfile}) )
|
|||
|
|
{
|
|||
|
|
$ENV{errfile} =~ /(.*)\.tmp$/;
|
|||
|
|
errmsg( $dash );
|
|||
|
|
errmsg("Please check error at $1");
|
|||
|
|
return 0;
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
return 1;
|
|||
|
|
}
|
|||
|
|
#-----------------------------------------------------------------------------
|
|||
|
|
sub build_name
|
|||
|
|
{
|
|||
|
|
return $name if $name =~ /^q/i;
|
|||
|
|
my $buildPath="$ENV{_ntpostbld}\\congeal_scripts";
|
|||
|
|
my $buildFileName="__qfenum__";
|
|||
|
|
if (-e "$buildPath\\$buildFileName") {
|
|||
|
|
open F,"$buildPath\\$buildFileName" or die "unable to ipen $buildPath\\$buildFileName ";
|
|||
|
|
my $buildNumber=<F>;
|
|||
|
|
if ( $buildNumber=~/^QFEBUILDNUMBER=(\d*)$/ ){
|
|||
|
|
return $1;
|
|||
|
|
}
|
|||
|
|
else{
|
|||
|
|
wrnmsg "$buildPath\\$buildFileName format is not correct. Defaulting to 9999";
|
|||
|
|
return 9999;
|
|||
|
|
}
|
|||
|
|
close F;
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
wrnmsg "$buildPath\\$buildFileName not found. Defaulting to 9999";
|
|||
|
|
return 9999;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
1;
|