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.
 
 
 
 
 
 

243 lines
7.6 KiB

@REM -----------------------------------------------------------------
@REM
@REM release.cmd - SuemiaoR
@REM Move the build to the shared release directory locally.
@REM
@REM Copyright (c) Microsoft Corporation. All rights reserved.
@REM Version: < 1.0 > 02/02/2001 Suemiao Rossignol
@REM -----------------------------------------------------------------
@perl -x "%~f0" %*
@goto :EOF
#!perl
use strict;
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
use lib $ENV{RAZZLETOOLPATH};
use PbuildEnv;
use Logmsg;
use ParseArgs;
use File::Basename;
use BuildName;
use GetIniSetting;
use comlib;
my $scriptname = basename( $0 );
sub Usage {
print<<USAGE;
A wrapper starting release processes which are srvrel, miscrel and startsymcopy.
Usage:
$scriptname: -l:<language> [-b:<BuildName>] [-p]
-l Language.
Default is "usa".
-b Build Name.
Default is defined in
<ReleaseShare>\\<buildName>\\build_logs\\buildname.txt for language usa.
<ReleaseShare>\\<lang>\\<buildName>\\build_logs\\buildname.txt for language none usa.
-o Executing options of release processes.
Use ',' to separate options.
Default to all options when undefined.
-? Display Usage.
Example:
$scriptname -l:ger -b:2415.x86fre.main.001222-1745 -p
$scriptname -o:srvrel,miscrel
USAGE
exit(1)
}
my ( $lang, $buildName, $execOpt, $powerLess );
my ( $buildBranch, $buildArch, $buildType, $iniFile );
my ( $computerName, $releaseShareRootDir, $releaseResDir, @releaseServers );
my ( $localReleaseDrive, $iniConglomerator, $iniSymfarm );
my @defaultOpts = ( "srvrel", "miscrel", "startsymcopy" );
my %releaseOpts;
&GetParams();
if( !&InitVars() ) { exit(1); }
system("$ENV{RAZZLETOOLPATH}\\setbuildstatus.cmd -s:release");
if( !&StartPostBootRelease ){ exit(1); }
exit(0);
#-----------------------------------------------------------------------------
sub GetParams
{
parseargs('?' => \&Usage, 'b:' => \$buildName, 'o:' => \$execOpt );
$lang = $ENV{lang};
$computerName = $ENV{computername};
my @tmpOpts = split( /\,/, $execOpt );
@tmpOpts = @defaultOpts if( !@tmpOpts );
for my $theOpt( @tmpOpts )
{
$releaseOpts{$theOpt} = 1;
}
}
#-----------------------------------------------------------------------------
sub InitVars
{
my ( @iniRequest );
#####Set build name, buildbranch, buildArch, buildType and ini file
if( !$buildName )
{
if( -e $ENV{_NtPostbld} )
{
errmsg( "Found $ENV{_NtPostbld} exists." );
return 0;
}
my ($cmdLine ) = "$ENV{RazzleToolPath}\\postbuildscripts\\getlatestrelease.cmd -l:$lang";
return 0 if( !chomp($buildName= `$cmdLine`) );
}
$buildBranch = build_branch($buildName);
$buildArch = build_arch($buildName);
$buildType = build_type($buildName);
if( !$buildBranch || !$buildArch || !$buildType )
{
errmsg( "Unable to parse [$buildName]");
return 0;
}
$iniFile = "$buildBranch.$lang.ini";
#####Set release Share Drive
@iniRequest = ("LocalReleaseDrive::$ENV{computerName}");
$localReleaseDrive = &GetIniSetting::GetSettingEx( $buildBranch,$lang,@iniRequest );
if ( !$localReleaseDrive )
{
$ENV{_ntdrive} =~ /(.*)\:/;
$localReleaseDrive = $1;
}
#####Set <ReleaseShareName> & <ReleaseShareRootDir> & <ReleaseDir>
my ( $releaseShareName ) = &comlib::GetReleaseShareName( $ENV{_BuildBranch}, $lang );
$releaseShareRootDir = "$localReleaseDrive:\\$releaseShareName";
if( lc($lang) eq "usa" )
{
$releaseResDir = "$releaseShareRootDir\\$buildName";
}
else
{
$releaseResDir = "$releaseShareRootDir\\$lang\\$buildName";
}
if( !( -e $releaseResDir ) )
{
errmsg( "[$releaseResDir] not exists, exit." );
return 0;
}
#####Set release servers
@iniRequest = ( "ReleaseServers::$buildArch$buildType" );
my( $iniRelServers ) = &GetIniSetting::GetSetting( @iniRequest );
@releaseServers = split( /\s+/, $iniRelServers );
#####Set Symbol Servers
$iniSymfarm = &GetIniSetting::GetSettingEx( $buildBranch,$lang,"SymFarm" );
#####Set Conglomerate Servers
$iniConglomerator = &GetIniSetting::GetSettingEx( $buildBranch,$lang,"ConglomerationServers" );
logmsg( "Lauguage ..............[$lang]" );
logmsg( "Executing Options......[$execOpt]" );
logmsg( "This computer..........[$computerName]" );
logmsg( "Build name ............[$buildName]" );
logmsg( "Ini file ..............[$iniFile]" );
logmsg( "Release share name ....[$releaseShareName]" );
logmsg( "Release share resource [$releaseResDir]" );
logmsg( "Release Servers .......[@releaseServers]");
logmsg( "Conglomerate Servers...[$iniConglomerator]");
logmsg( "Symbol Servers.........[$iniSymfarm]");
logmsg( "Temp Log file .........[$ENV{LOGFILE}]" );
logmsg( "Temp Error file .......[$ENV{ERRFILE}]" );
return 1;
}
#-----------------------------------------------------------------------------
sub StartPostBootRelease
{
my ( $cmdLine, $dash);
$dash = '-' x 60;
logmsg ( $dash );
#####SrvRel
if( exists $releaseOpts{ srvrel } )
{
&StartRemoteRelease;
}
logmsg ( $dash );
#####MiscRel
if( exists $releaseOpts{ miscrel } && $ENV{ OFFICIAL_BUILD_MACHINE } && $iniConglomerator )
{
$cmdLine = "$ENV{RazzleToolPath}\\PostBuildScripts\\miscrel.cmd -l:$lang -b:$buildName";
&comlib::ExecuteSystem( $cmdLine );
}
logmsg ( $dash );
####StartsymCopy
if( exists $releaseOpts{ startsymcopy } && $ENV{ OFFICIAL_BUILD_MACHINE } && $iniSymfarm )
{
$cmdLine = "perl $ENV{RazzleToolPath}\\PostBuildScripts\\startsymcopy.pl -l:$lang";
&comlib::ExecuteSystem( $cmdLine );
}
logmsg ( $dash );
return 1;
}
#-----------------------------------------------------------------------------
sub StartRemoteRelease
{
my ( $cmdLine );
#####set remote name
my( @iniRequest ) = ( "AlternateReleaseRemote" );
my( $remoteName ) = &GetIniSetting::GetSettingEx( $buildBranch, $lang, @iniRequest );
$remoteName = "release" if( !$remoteName );
#####Start remote srvrel
my $status=1;
for my $relServer ( @releaseServers )
{
#####Check the remote connection
if( !&comlib::ExecuteSystem( "net view $relServer >nul 2>nul" ) )
{
errmsg( "Cannot see remote server [$relServer], skipping" );
next;
}
#####Remote is not required when Build machine is a Release server also
if( lc($computerName) eq lc( $relServer) )
{
&comlib::ExecuteSystem("$ENV{RazzleToolPath}\\PostBuildScripts\\srvrel.cmd -l:$lang -b:$buildName" );
next;
}
#####Remote connection
$cmdLine = "echo pushd ^^%RazzleToolPath^^% ^& echo del /q /a-r * ^& echo popd ^&";
$cmdLine .= "echo pushd ^^%RazzleToolPath^^%\\PostBuildScripts ^& echo del /q /a-r * ^& echo popd ^&";
$cmdLine .= "echo pushd ^^%RazzleToolPath^^% ^& echo sd sync ... ^& echo popd ^&";
$cmdLine .= " echo start /min cmd /c SrvRel.cmd \-l:$lang \-b:$buildName";
$cmdLine .= " \| \@remote.exe /c $relServer $remoteName /L 1";
#####Remote.exe always return 6, ignore the return value
if( !&comlib::ExecuteSystem( $cmdLine ) )
{
errmsg( "Failed to start remote release on [$relServer], please investigate." );
$status=0;
}
}
return $status;
}
#-----------------------------------------------------------------------------
1;