Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

120 lines
3.5 KiB

# FileName: CombineDistributeBinplaceLogs.pl
#
#
# Usage: CombineDistributeBinplaceLogs.pl [-nttree=nttreedir]
#
# Function: The distributed build process produces a unique binplace_%COMPUTERNAME%.log file
# for each machine involved in the build.
# This script combines them into a unified binplace.log file
# translating the path information to coorespond to the local
# enlistment.
#
# If there are no files named binplace_*,log then this script exits silently.
#
# Author: jporkka 03/24/2000
#
# Usage variables
#
$PGM='CombineDistributeBinplaceLogs: ';
$Usage = $PGM . "Usage: CombineDistributeBinplaceLogs.pl [-nttree=nttreedir]\n";
#
# Process and validate arguments
#
for (@ARGV) {
if (/^[\/\-]test$/i) { $Test++; next; }
if (/^[\/\-]verbose$/i) { $Verbose++; next; }
if (/^[\/\-]nttree=(.+)$/i) { $XNTTree++; $NTTree = $1; next; }
if (/^[\/\-]?$/i) { die $Usage; }
if (/^[\/\-]help$/i) { die $Usage; }
die $Usage;
}
# Functions
#
# print on the various files
#
sub printall {
print LOGFILE @_;
print $PGM unless @_ == 1 and @_[0] eq "\n";
print @_;
}
#
# Get the current directory
#
open CWD, 'cd 2>&1|';
$CurrDir = <CWD>;
close CWD;
chomp $CurrDir;
$CurrDrive = substr($CurrDir, 0, 2);
#
$sdxroot = $ENV{'SDXROOT'} or die $PGM, "Error: SDXROOT not set in environment\n";
$LogFile = "build.combinebinplace";
#
# If we didn't get the NTTree directory from the command line,
# get it from the _NTTREE environment variable.
#
if ($XNTTree == 0) {
$NTTree = $ENV{'_NTTREE'};
$XNTTree = 1;
}
#
# Can only CombineDistributeBinplaceLogs with the current directory the same as sdxroot.
#
die $PGM, "Error: Can only CombineDistributeBinplaceLogs if CD <$CurrDir> is SDXROOT <$sdxroot>\n" unless $sdxroot =~ /^\Q$CurrDir\E$/io;
die $Usage unless $XNTTree == 1 and $NTTree;
die $PGM, "Error: Not a directory: ", $NTTree, "\n" unless -d $NTTree;
die $PGM, "Error: Not writable: ", $NTTree, "\n" unless -w $NTTree;
#
# Open the logfile
#
$foo = "$NTTree\\build_logs\\$LogFile";
open LOGFILE, ">>$foo" or die $PGM, "Error: Could not create logfile: ", $foo, ": $!\n";
@binplacelogFiles = glob("$NTTree\\build_logs\\binplace_*.log") or exit 0;
open BINPLACE, ">$NTTree\\build_logs\\binplace.log" or die $PGM, "Error: Could not create: ", "$NTTree\\build_logs\\binplace.log", "\n";
# process the list of binplace files.
# the first line of the file must be of the form:
# C:\mt\nt\__blddate__ Fri Mar 24 12:59:25 2000
# Where everything upto __blddata__ is the enlistment path
# where the build was done.
for (@binplacelogFiles) {
$binplacelog = $_;
#
# Read in the VBL and NTTree binplace logs and process them
#
printall "Opening $binplacelog \n";
open BINPLACE_COMPUTERNAME, $binplacelog or die $PGM, "Error: Could not open: ", "$binplacelog", "\n";
$whichline = 0;
$binplaceroot = $sdxroot;
$firstline = <BINPLACE_COMPUTERNAME>;
if ( $firstline =~ /^(.*)\\__blddate__/io) {
$binplaceroot=$1;
} else {
die $PGM, "Error: first line of $binplacelog was not __blddate__ format\n";
}
print LOGFILE $firstline;
print BINPLACE $firstline;
for (<BINPLACE_COMPUTERNAME>) {
$whichline++;
if (/^\Q$binplaceroot\E\\(.*)$/i) {
print BINPLACE "$sdxroot\\$1\n";
} else {
print BINPLACE $_;
}
}
}
exit 0;