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.
 
 
 
 
 
 

270 lines
7.7 KiB

# ---------------------------------------------------------------------------
# Script: startsymcopy.pl
#
# (c) 2000 Microsoft Corporation. All rights reserved.
#
# Purpose: Called from postbuild. To be run after _NTTREE has been moved to
# the release share on the build machine
#
#
# Version: 1.00 (06/12/2000) : (dmiura) updated original with internatioanl complient template
#---------------------------------------------------------------------
# Set Package
package startsymcopy;
# Set the script name
$ENV{script_name} = 'startsymcopy.pl';
# Set version
$VERSION = '1.00';
# Set required perl version
require 5.003;
# Use section
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
use lib $ENV{RAZZLETOOLPATH};
use GetParams;
use LocalEnvEx;
use Logmsg;
use strict;
no strict 'vars';
use symindex;
use GetIniSetting;
# Require section
require Exporter;
# Global variable section
my ( $BuildName, $BuildNamePath, $LogFileName, $TempDir, $RazPath );
sub Main {
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
# Begin Main code section
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
# Return when you want to exit on error
# <Implement your code here>
$RazPath = $ENV{ "RazzleToolPath" };
if (! ( defined( $RazPath ) ) ) {
wrnmsg( "RazzleToolPath not set");
return(1);
}
# don't copy symbols for pseudo, Pseudo_FE or mirror builds
if ($lang =~ /(psu)/i) {
logmsg( "Don't copy symbols for pseudo build - exiting");
return(0);
}
if ($lang =~ /(mir)/i) {
logmsg( "Don't copy symbols for mirror build - exiting");
return(0);
}
if ($lang =~ /(FE)/i) {
logmsg( "Don't copy symbols for FE build - exiting");
return(0);
}
# don't copy symbols for MUI builds ref Raid #440898
if ((lc$ENV{_BuildArch} eq "ia64") && ($lang !~ /(usa)|(ger)|(jpn)|(fr)/i)) {
logmsg( "Don't copy symbols for non-fully localize build - exiting");
return(0);
}
# get BuildName:
# we need to use get latest release here to accomodate the forks
my( $CommandName ) = $ENV{ "RazzleToolPath" } .
"\\PostBuildScripts\\GetLatestRelease.cmd -l:$lang";
logmsg ("$CommandName");
my( $CommandReturn ) = `$CommandName`;
chomp( $CommandReturn );
if ( $CommandReturn =~ /none/i ) {
# error case, return
errmsg( "Failed to get build name from $CommandName ..." );
return( 1 );
}
# get the release share name from the ini file
my( $BuildReleasePath ) = "release";
my( @IniRequest ) = ( "AlternateReleaseDir" );
my( $IniReturn ) = &GetIniSetting::GetSettingEx( $ENV{ "_BuildBranch" },
$lang,
@IniRequest );
if ( $IniReturn ) {
$BuildReleasePath = $IniReturn;
}
if ($lang !~ /(usa)/i) {
$BuildReleasePath .= "\\$lang";
}
# tack on the build name from getlatestrelease
$BuildReleasePath .= "\\$CommandReturn";
$BuildNamePath = "\\\\$ENV{ 'COMPUTERNAME' }\\$BuildReleasePath\\" .
"build_logs\\buildname.txt";
logmsg( "buildnamepath is $BuildNamePath");
if ( !( -e $BuildNamePath ) ) {
wrnmsg( "$BuildNamePath does not exist, abort symbols copy" );
return( 1 );
}
$BuildName = `type $BuildNamePath`;
# take of the return char
chomp( $BuildName );
#then take off the space that echo appends when called from MakeBuildName
if ( $BuildName =~ /\s$/ ) { $BuildName =~ s/\s$//; }
logmsg( "Symbols will be copied for $BuildName.");
system( "start /min cmd /c $RazPath\\PostBuildScripts\\symcopy.cmd $lang $BuildName" );
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
# End Main code section
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
}
# <Implement your subs here>
sub ValidateParams {
#<Add your code for validating the parameters here>
}
# <Add your usage here>
sub Usage {
print <<USAGE;
Purpose of program
Usage: $0 [-l lang]
-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', 'l:', '-p', '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
&startsymcopy::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.
# $ENV{_NTPostBld_Bak} - Reserved support var.
# $ENV{_temp_bak} - Reserved support var.
# $ENV{_logs_bak} - Reserved support var.
#
# (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;