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.
 
 
 
 
 
 

273 lines
6.8 KiB

@rem ='
@echo off
REM ------------------------------------------------------------------
REM
REM <<template_script.cmd>>
REM <<purpose of this script>>
REM
REM Copyright (c) Microsoft Corporation. All rights reserved.
REM
REM ------------------------------------------------------------------
perl -x "%~f0" %*
goto :EOF
rem ';
#!perl
use strict;
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
use lib $ENV{RAZZLETOOLPATH};
use PbuildEnv;
use ParseArgs;
use BuildName;
use GetIniSetting;
use comlib;
use Logmsg;
use Cwd;
use File::Basename qw(basename);
require "$ENV{RAZZLETOOLPATH}\\sendmsg.pl";
my $script_name=basename( $0 );
sub Usage { print<<USAGE; exit(1) }
$script_name - Verify Symbol
$script_name [-l:<language>] [-b <BinTree>] [-s <SymbolPath>]
[-t <SymbolCDList>] [-x <Symbad>] [-n <FullBuildName>] [-?]
-----------------------------------------------------------------
Language Default is usa.
BinTree Binaries Tree, default is
<SDXROOT>\\loc\\bin\\<lang>
SymbolPath Symbol tree, default is
<SymFarm>\\usa\\<BuildName>\\symbols.pri
info from ini file and buildname.txt.
SymbolCDList Symbolcd.txt, default is
<_NTTREE>\\symbolcd\\usa\\SymbolCD.txt
Symbad Symbad.txt, default is
<RazzleToolPath>\\symbad.txt
FullBuildName buildname; we use it to create SymbolPath,
Default is find the text in
<_NTTREE>\\build_logs\\buildname.txt
USAGE
my ($BinTree, $SymbolPath, $SymbolCDList, $Symbad, $FullBuildName, $prevReceiver);
parseargs(
'b:' => \$BinTree,
's:' => \$SymbolPath,
't:' => \$SymbolCDList,
'x:' => \$Symbad,
'n:' => \$FullBuildName,
'?' => \&Usage
);
&main;
sub main {
my (@SymbolPaths, $cntptr, $i);
&FindBuildName if (!defined $FullBuildName);
&FindBinTree if (!defined $BinTree);;
&FindSymbolPath if (!defined $SymbolPath);
&FindSymbolCDLst if (!defined $SymbolCDList);
&FindSymbad if (!defined $Symbad);
errmsg("$BinTree not exist.") if (("$BinTree" eq "") || (!-e $BinTree));
errmsg("$SymbolPath not found.") if (("$SymbolPath" eq "") || (!-e $SymbolPath));
errmsg("$SymbolCDList file not found.") if (("$SymbolCDList" eq "") || (!-e $SymbolCDList));
logmsg( "Build name............[$FullBuildName]" );
logmsg( "Symbol path...........[$SymbolPath]" );
logmsg( "Symbol CD list........[$SymbolCDList]" );
logmsg( "Symbol bad list.......[$Symbad]" );
$cntptr = &ComposeNewSymbolCDLst($SymbolCDList);
@SymbolPaths = &CollectSymbolTree($SymbolPath);
for ($i=0; $i< @$cntptr; $i++) {
open(F, "symchk.exe $cntptr->[$i] /s " . join("\;", @SymbolPaths) . " /x $Symbad |");
while(<F>) {
next if !/signatures/i;
&WhoIsTheHacker($cntptr->[$i], $_);
last;
}
close(F);
}
close(F);
}
sub FindBuildName {
open(F, "$ENV{_NTTREE}\\build_logs\\buildname.txt");
chomp($FullBuildName=<F>);
close(F);
}
sub FindBinTree {
$BinTree = "$ENV{SDXROOT}\\loc\\bin\\$ENV{lang}";
}
sub FindSymbolPath {
my @iniRequest = ("SymFarm");
my ( $SymFarm ) = &GetIniSetting::GetSetting( @iniRequest );
my ( $BuildName ) = &BuildName::build_name($FullBuildName);
$SymbolPath = "$SymFarm\\usa\\$BuildName\\symbols.pri";
}
sub FindSymbolCDLst {
$SymbolCDList = "$ENV{_NTTREE}\\symbolcd\\usa\\SymbolCD.txt";
}
sub FindSymbad {
$Symbad = "$ENV{RazzleToolPath}\\symbad.txt";
}
sub ComposeNewSymbolCDLst {
my ($SymbolCDList) = shift;
my ($temp, @content);
# Strip filepath from SymbolCDLst.txt to @content (only store filename)
open(F, "$SymbolCDList");
@content = map({my $t=$_;chomp;($temp,$t)=&FilenameSplitor((split(/\,/, $t))[0]);$t} <F>);
close(F);
&IntellegentFileFinderBackward($BinTree, \@content);
# Store the new file of SymbolCDLst.txt with in local path
open(F, ">$ENV{temp}\\SymbolCDLst.new");
map({print F $_ . "\n";;} @content);
close(F);
return \@content;
}
sub WhoIsTheHacker {
my ($path, $filename) = &FilenameSplitor($_[0]);
my ($msg)=$_[1];
my $dir = cwd();
chdir($path);
my $alias=&LookForHacker($filename);
my $sender = "ntbldi";
my $title = "Mis-match Symbol - $filename";
$msg .= "\nReferenced by : $path\\$filename";
my @receivers = ( $alias,"cc:ntbldi" );
print "@receivers\n";
sendmsg( '-v', $sender, $title, $msg, @receivers );
chdir($dir);
}
sub LookForHacker {
my $file=shift;
my($newfile, $workfile, $DescribeID, $defaultalias, $domain, $alias)=($file);
my(@result, @result2, @Remains);
do {{
$workfile = $newfile;
undef $newfile;
chomp(@result = `sd filelog -m 1 $workfile`);
for (@result) {
if (/(copy|branch) from /) {
$newfile = $';
last;
}
}
}} while("$newfile" ne "");
## # change 21839 integrate on 2000/11/28 20:28:27 by NTDEV\ntvbl06
## change 8510 add on 2001/07/23 12:06:06 by REDMOND\rtaboada@RTABOADA-MAIN (binary) 'JPN localized
for (@result) {
if (/change (\d+) \w+ on [\d\/]+ [\d\:]+ by ([^\@]+)\@/) {
($DescribeID, $defaultalias)=($1, $2);
last;
}
}
if (!defined $defaultalias) {
print "Error: incorrect format for the log";
map({print $_ . "\n"} @result);
return;
}
$defaultalias =~ /(\w+)\\(\w+)/i;
($domain, $alias)=($1, $2);
chomp(@result2 = `sd describe -s $DescribeID`);
for (@result2) {
next if (!/\S/);
last if (/Affected files/i);
next if (!/^\s+(.+)/);
@Remains = split(/\s+/,$1);
while ($Remains[0]=~/^build/i) {
shift @Remains;
}
if (($Remains[0]=~/[\[\(]\w+[\]\)]/) || ($Remains[1]=~/^\[\-\:]$/)) {
$Remains[0]=~s/[\[\]]//g;
$alias = $Remains[0];
}
}
return $alias;
}
sub CollectSymbolTree {
my $symboltree = shift;
my (%Result, $type, $path);
for $type (qw(dll exe)) {
for $path (`dir $symboltree\\$type /s /b /ad 2>nul`) {
chomp $path;
$path = "$symboltree\\$path" if ($path!~/\\/);
($path) = &FilenameSplitor($path);
$Result{lc$path} = 1;
}
if (-d "$symboltree\\$type") {
$Result{lc$symboltree} = 1;
}
}
return keys %Result;
}
sub IntellegentFileFinderBackward {
my ($rootpath, $filelistptr) = @_;
my (@files, $found, @result, $file);
chomp(@files = `dir $rootpath /s /b /a-d `);
for $file (@files) {
$found = 0;
next if ($file=~/\_$/);
for (@$filelistptr) {
if ((defined $_) && ($file =~ /$_/i)) {
$found = 1;
last;
}
}
if ($found eq 1) {
push @result, $file;
}
}
undef @$filelistptr;
@$filelistptr = @result;
return;
}
sub FilenameSplitor {
$_[0]=~/^(.+)\\([^\\]+)\s*$/;
my ($path, $filename)=($1, $2);
$path=~s/^\s*//;
$filename=~s/\s*$//;
return (lc$path, lc$filename);
}