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.
 
 
 
 
 
 

68 lines
1.6 KiB

@REM -----------------------------------------------------------------
@REM
@REM SkuSize.cmd - WadeLa
@REM Calculate the size of the SKUs
@REM
@REM Copyright (c) Microsoft Corporation. All rights reserved.
@REM
@REM -----------------------------------------------------------------
@perl -x "%~f0" %*
@goto :EOF
#!perl
use strict;
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
use lib $ENV{RAZZLETOOLPATH};
use PbuildEnv;
use ParseArgs;
use cksku;
sub Usage { print<<USAGE; exit(1) }
Calculate CD sizes
USAGE
parseargs('?' => \&Usage);
#
# Get the skus we want
#
my @SkuList = grep {cksku::CkSku($_, $ENV{LANG}, $ENV{_BuildArch})} qw(PRO PER SRV BLA ADS );
#
# Read recursive dir into an array.
# Then get rid everything except files.
#
my $StartPath=$ENV{_NTPostBld};
my $PathRegex=quotemeta $StartPath;
my $LogFile="$StartPath\\build_logs\\SkuSize.$ENV{_BuildBranch}.$ENV{_BuildArch}$ENV{_BuildType}.log";
my $Destination="\\\\winwebshares\\warteam";
if (-e $LogFile) {
unlink $LogFile;
}
open OUTFILE , ">$LogFile";
foreach my $Sku ( @SkuList ) {
my @RecursiveDir= `dir /s $StartPath\\$Sku`;
my $Path="";
foreach my $DirLine (@RecursiveDir) {
if ($DirLine =~ /^\d+\/\d+\/\d+\s+\d+:\d+\s+(?:AM|PM)\s+([\d,]+)\s+(.+)$/) {
my $File=$2;
my $Size=$1;
$Size =~ tr/,//d;
print OUTFILE ("$Sku,$Path$File,$Size\n");
}
elsif ($DirLine =~ /$PathRegex\\$Sku\\(.+)/i) {
$Path="$1\\";
}
}
}
close OUTFILE;
# 'copy $LogFile $Destination`;