Leaked source code of windows server 2003
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.
 
 
 
 
 
 

382 lines
12 KiB

# ---------------------------------------------------------------------------
# Script: bindiff.pl
#
# (c) 2000 Microsoft Corporation. All rights reserved.
#
# Purpose: This script is an example of a perl script in the NT postbuild
# environment.
#
# Version: 1.00 (06/13/2000) : (dmiura) Add international complience
#---------------------------------------------------------------------
# Set Package
package bindiff;
# Set the script name
$ENV{script_name} = 'bindiff.pl';
# Set version
$VERSION = '1.00';
# Set required perl version
require 5.003;
# Use section
use lib $ENV{ "RazzleToolPath" } . "\\PostBuildScripts";
use GetParams;
use strict;
no strict 'vars';
use LocalEnvEx;
use Logmsg;
# Require section
require Exporter;
# Global variable section
my( $ScriptName, $LogFile, $Return, $Argument, $AppendMode );
my( $MyBinaries, $ExitCode );
my( $DataFile, $SnapShotFile, $SnapShotFileBak, $SnapShotFileBakName );
my( $ShapShotFileBakName, $DiffFile, $AltDiffFile, $TmpDiffFile, $FirstPass );
my( $FirstPassFile );
my( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime );
my( $ctime, $blksize, $blocks );
my( $ShortDiffFileName );
sub Main {
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# Begin Main code section
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# Return when you want to exit on error
# <Implement your code here>
# before anything, if we're running first pass, we don't want to generate
# bindiff files
$FirstPassFile = $ENV{ "_NTPostBld" } . "\\congeal_scripts\\firstpass.txt";
undef( $FirstPass );
if ( -e $FirstPassFile ) { $FirstPass = "TRUE"; }
# Check command line option
if (defined $append) {$AppendMode = "-a"};
$ExitCode = 0;
$Logmsg::DEBUG = 1; # set to 1 to activate logging of dbgmsg's
$DataFile = $ENV{_NTPostBld} . "\\build_logs\\CdData.txt";
if ( -e "$DataFile\.full" ) { $DataFile .= "\.full"; }
$SnapShotFile = $ENV{_NTPostBld} . "\\build_logs\\BinSnapShot.txt";
$SnapShotFileBak = $ENV{_NTPostBld} . "\\build_logs\\BinSnapShot.bak";
$SnapShotFileBakName = $SnapShotFileBak;
if ( $SnapShotFileBak =~ /.*\\([^\\]+?)$/ ) { $SnapShotFileBakName = $1; }
$DiffFile = $ENV{_NTPostBld} . "\\build_logs\\BinDiff.txt";
$ShortDiffFileName = "BinDiff";
$TmpDiffFile = $ENV{_NTPostBld} . "\\build_logs\\BinDiff1.txt";
$AltDiffFile = $ENV{_NTPostBld} . "\\build_logs\\BinDiff2.txt";
unless ( $AppendMode ) { &DeleteFile( $DiffFile ); }
&DeleteFile( $SnapShotFileBak );
# move the old snap shot file
if ( -e $SnapShotFile ) { system( "ren $SnapShotFile $SnapShotFileBakName" ); }
# parse CdData.txt to get our list of files
&ReadDataFile();
# if the backup exists, we need to compare now
if ( -e $SnapShotFileBak ) {
system( "windiff $SnapShotFileBak $SnapShotFile -Fx $TmpDiffFile" );
system( "perl \%RazzleToolPath\%\\PostBuildScripts\\GenDiff.pl $AppendMode" );
}
# uniqify the bindiff.txt file
if ( -e $DiffFile ) {
system( "perl \%RazzleToolPath\%\\PostBuildScripts\\unique.pl -i\:$DiffFile " .
"-o\:$AltDiffFile" );
system( "copy $AltDiffFile $DiffFile" );
}
# save off each bindiff.txt for debugging
&SaveFile ($ShortDiffFileName);
# if we're first, pass delete the bindiff.txt file
if ( $FirstPass eq "TRUE" ) { &DeleteFile( $DiffFile ); }
# delete the old backup file
&DeleteFile( $SnapShotFileBak );
# delete the temporary diff file
&DeleteFile( $TmpDiffFile );
QuitGracefully:
( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime,
$ctime, $blksize, $blocks ) = stat( $DiffFile );
#I don't think we want to delete 0-lenght bindiffs, but there may
#be implications I don't realize, so I'm leaving the code in for now. Wade
#if ( $size == 0 ) {
# logmsg( "Zero length bindiff file, deleting ..." );
# if (-e $DiffFile) {
# system( "del $DiffFile" );
# }
#
#}
$ENV{errors} = "$ExitCode";
return;
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# End Main code section
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
}
# <Implement your subs here>
sub ReadDataFile
{
my( @DataLines, $Line, $FileName, $Junk );
my( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime );
my( $ctime, $blksize, $blocks );
unless ( open( INFILE, $DataFile ) ) {
errmsg( "Failed to open $DataFile, exiting." );
$ExitCode++;
goto QuitGracefully;
}
@DataLines = <INFILE>;
close( INFILE );
unless ( open( OUTFILE, ">$SnapShotFile" ) ) {
errmsg( "Failed to open $SnapShotFile for write, exiting." );
$ExitCode++;
goto QuitGracefully;
}
foreach $Line ( @DataLines ) {
if ( $Line =~ /\;/ ) { next; }
( $FileName, $Junk ) = split( /\s+/, $Line );
( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime,
$ctime, $blksize, $blocks ) = stat( $ENV{_NTPostBld} . "\\" . $FileName );
print( OUTFILE "$ENV{_NTPostBld}\\$FileName , $size , $mtime\n" );
}
# add the ddk files brute force
@DataLines = `\@for \/f \%a in \(\'dir \/b \/s \/a-d $ENV{_NTPostBld}\\ddk_flat\'\) do \@echo \%a , \%\~za , \%\~ta`;
foreach $Line ( @DataLines ) {
( $FileName, $Junk ) = split( /\s+/, $Line );
( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime,
$ctime, $blksize, $blocks ) = stat( $FileName );
print( OUTFILE "$FileName , $size , $mtime\n" );
}
# add the shimdll files brute force
@DataLines = `\@for \/f \%a in \(\'dir \/b \/s \/a-d $ENV{_NTPostBld}\\shimdll\'\) do \@echo \%a , \%\~za , \%\~ta`;
foreach $Line ( @DataLines ) {
( $FileName, $Junk ) = split( /\s+/, $Line );
( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime,
$ctime, $blksize, $blocks ) = stat( $FileName );
print( OUTFILE "$FileName , $size , $mtime\n" );
}
# add adminpak files
if ( lc $ENV{_BuildArch} eq 'x86' ) {
my $adminddf = $ENV{_NTPostBld} . "\\adminpak\\adminpak.ddf";
unless ( open( INFILE, "<$adminddf" ) ) {
errmsg( "Failed to open $adminddf for write, exiting." );
$ExitCode++;
goto QuitGracefully;
}
@DataLines = <INFILE>;
close( INFILE );
foreach $Line ( @DataLines ) {
chomp $Line;
if ( $Line =~ /^\./ ) { next; }
$FileName = "$ENV{_NTPostBld}\\" . $Line;
( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime,
$ctime, $blksize, $blocks ) = stat( $FileName );
print( OUTFILE "$FileName , $size , $mtime\n" );
}
}
close( OUTFILE );
}
sub SaveFile
{
my( $FileName ) = @_;
my( $DirName ) = "$ENV{_NTPostBld}\\build_logs\\Bindiff_logs";
my( $Return );
my( $MaxNum ) = 0;
my( $NextNum ) = 0;
$Return = 0;
$Return = system( "md $DirName" ) unless -d $DirName;
if ( $Return != 0 ) {
logmsg( "Failed to make $DirName." );
}
# Find the next available integer to distinguish bindiff files
foreach (<$DirName\\$FileName*.txt>) {
if (/BinDiff(\d+)\.txt$/) {
$MaxNum = $1 if $1 >= $MaxNum;
}
}
$NextNum = $MaxNum + 1;
$DiffFileSave = "$DirName\\$FileName$NextNum.txt";
$Return = system( "copy $DiffFile $DiffFileSave" );
if ( $Return != 0) {
logmsg( "Failed to copy $DiffFile to $DiffFileSave" );
}
}
sub DeleteFile
{
my( $FileName ) = @_;
my( $Return );
$Return = 0;
if ( -e $FileName ) {
$Return = system( "del /f $FileName" );
if ( $Return != 0 ) {
logmsg( "Failed to delete $FileName, will append." );
}
}
return( $Return );
}
sub ValidateParams {
#<Add your code for validating the parameters here>
}
# <Add your usage here>
sub Usage {
print <<USAGE;
Purpose of program
Usage: $0 [-a -l lang]
-a Append mode
-l Language
-? Displays usage
Example:
$0 -l jpn
USAGE
}
sub GetParams {
# Step 1: Call pm getparams with specified arguments
&GetParams::getparams(@_);
# Step 2: Set the language into the enviroment
$ENV{lang}=$lang;
# Step 3: Call the usage if specified by /?
if ($HELP) {
&Usage();
exit 1;
}
}
# Cmd entry point for script.
if (eval("\$0 =~ /" . __PACKAGE__ . "\\.pl\$/i")) {
# Step 1: Parse the command line
# <run perl.exe GetParams.pm /? to get the complete usage for GetParams.pm>
&GetParams ('-o', 'al:', '-p', 'append lang', @ARGV);
# Include local environment extensions
&LocalEnvEx::localenvex('initialize');
# Set lang from the environment
$lang=$ENV{lang};
# Validate the option given as parameter.
&ValidateParams;
# Step 4: Call the main function
&bindiff::Main();
# End local environment extensions.
&LocalEnvEx::localenvex('end');
}
# -------------------------------------------------------------------------------------------
# Script: template_script.pl
# Purpose: Template perl perl script for the NT postbuild environment
# SD Location: %sdxroot%\tools\postbuildscripts
#
# (1) Code section description:
# CmdMain - Developer code section. This is where your work gets done.
# <Implement your subs here> - Developer subs code section. This is where you write subs.
#
# (2) Reserved Variables -
# $ENV{HELP} - Flag that specifies usage.
# $ENV{lang} - The specified language. Defaults to USA.
# $ENV{logfile} - The path and filename of the logs file.
# $ENV{logfile_bak} - The path and filename of the logfile.
# $ENV{errfile} - The path and filename of the error file.
# $ENV{tmpfile} - The path and filename of the temp file.
# $ENV{errors} - The scripts errorlevel.
# $ENV{script_name} - The script name.
# $ENV{_NTPostBld} - Abstracts the language from the files path that
# postbuild operates on.
#
# (3) Reserved Subs -
# Usage - Use this sub to discribe the scripts usage.
# ValidateParams - Use this sub to verify the parameters passed to the script.
#
# (4) Call other executables or command scripts by using:
# system "foo.exe";
# Note that the executable/script you're calling with system must return a
# non-zero value on errors to make the error checking mechanism work.
#
# Example
# if (system("perl.exe foo.pl -l $lang")){
# errmsg("perl.exe foo.pl -l $lang failed.");
# # If you need to terminate function's execution on this error
# goto End;
# }
#
# (5) Log non-error information by using:
# logmsg "<log message>";
# and log error information by using:
# errmsg "<error message>";
#
# (6) Have your changes reviewed by a member of the US build team (ntbusa) and
# by a member of the international build team (ntbintl).
#
# -------------------------------------------------------------------------------------------
=head1 NAME
B<mypackage> - What this package for
=head1 SYNOPSIS
<An code example how to use>
=head1 DESCRIPTION
<Use above example to describe this package>
=head1 INSTANCES
=head2 <myinstances>
<Description of myinstances>
=head1 METHODS
=head2 <mymathods>
<Description of mymathods>
=head1 SEE ALSO
<Some related package or None>
=head1 AUTHOR
<Your Name <your e-mail address>>
=cut
1;