Windows-Server-2003/tools/synctree.pl

#----------------------------------------------------------------//
# Script: synctree.pl
#
# (c) 2000 Microsoft Corporation. All rights reserved.
#
# Purpose: This script is a wrapper for intlbld.mak
#          It provides error checking, loging and usage.
#
# Version: <1.00> 09/13/2000 : Suemiao Rossognol
#----------------------------------------------------------------//
###-----Set current script Name/Version.----------------//
package synctree;

$VERSION = '1.00';

$ENV{script_name} = 'synctree.pl';

###-----Require section and extern modual.---------------//

require 5.003;
use strict;
use lib $ENV{RazzleToolPath };
use lib $ENV{RazzleToolPath } . "\\PostBuildScripts";
no strict 'vars';
no strict 'subs';
no strict 'refs';

use Logmsg;
use cklang;
use comlib;

my( $isFake, $sdxroot, $toolDir, $pbsDir, $myScript );
#------------------------------------------------------------------//
#Function:  Main
#Parameter: (1) Language
#           (2) Build Number
#           (3) Sync Timestamp
#------------------------------------------------------------------//

sub main
{
    my( $pLang,  $pSyncTime, $pToolBranch, $pPowerless, $pIntegrateOnly, $pSyncOnly )=@_;
  
 
    if( $pSyncTime )
    {
        if( $pSyncTime !~ /^([@#].+)$/ )
        {
	    $pSyncTime = "\@".$pSyncTime;
        }
    }
    if( $pPowerless ) { $isFake = "-n"; } else { $isFake="";}
    $sdxroot = $ENV{SDXROOT};
    $toolDir = $ENV{RazzleToolPath};
    $pbsDir = "$toolDir\\PostBuildScripts";
    $myScript = "$toolDir\\intlsdop.cmd";

    if( uc($pLang) eq "USA")
    {
	&comlib::ExecuteSystem( "cd /d $ENV{SDXROOT} & sdx sync ...$pSyncTime -q -h" );
    }
    elsif( uc($pLang) eq "INTL")
    {	
        &comlib::ExecuteSystem( "$myScript -s:$sdxroot -o:\"sdx opened ...\" ");
        
	&IntegrateTools( $pSyncTime, $pToolBranch ) if( !$pSyncOnly );
        &SyncSourceTree( $pSyncTime ) if( !$pIntegrateOnly );
    }
    else
    {
       
        &comlib::ExecuteSystem( "$myScript -l:$pLang -o:\"sd opened ...\" ");
        
	exit(0) if( &PromptAction("sd client") == 3);
	&comlib::ExecuteSystem( "$myScript -l:$pLang -o:\"sd client -o\" ");
        

        &IntegrateLocTree( $pLang, $pSyncTime, 0) if( !$pSyncOnly ); 
        &IntegrateLocTree( $pLang, $pSyncTime, 1) if( !$pIntegrateOnly );  	
    }

    exit(0);

}
#------------------------------------------------------------------//
sub IntegrateLocTree
{
    my( $pLang, $pSyncTime, $pSyncOnly) =@_;
    my( $cmdLine, $action );

    %myCmds = ( "1"=>"sd sync $isFake ...$pSyncTime ",
		"2"=>"sd integrate -b locpart -r -i $isFake ...$pSyncTime",
		"3"=>"sd resolve $isFake -at",
		"4"=>"sd resolve -n",
		"5"=>"sd submit" );

    %myDirs = ( "1"=>"$sdxroot\\loc\\res\\$pLang",
		"2"=>"$sdxroot\\loc\\bin\\$pLang" );

   for my $dirKey ( sort keys %myDirs )
   {
   	for my $theKey ( sort keys %myCmds )
   	{
            $cmdLine="$myScript -s:$myDirs{$dirKey} -o:\"$myCmds{$theKey}\" ";
	    $action = &PromptAction( "cd $myDirs{$dirKey} & $myCmds{$theKey}" );	
            last if( $action == 2 );
	    exit(0) if ( $action == 3);
            &comlib::ExecuteSystem( $cmdLine ) if( $action == 1);
	    last if( $pSyncOnly );		
   	}
   }

}
#------------------------------------------------------------------//
sub IntegrateTools
{
    my( $pSyncTime, $pToolBranch ) =@_;
    my( $cmdLine, $action );

    %myCmds = ( "1"=>"sd sync $isFake *",
		"2"=>"sd integrate -b $pToolBranch  $isFake *$pSyncTime",
		"3"=>"sd sync $isFake ...",
		"4"=>"sd integrate -b $pToolBranch  $isFake ...$pSyncTime",
		"5"=>"sd resolve $isFake -am",
		"6"=>"sd resolve",
		"7"=>"sd resolve -n",
		"8"=>"sd submit" );
    %myDirs = ( "1"=>"$toolDir", "2"=>$toolDir, "3"=>"$pbsDir", "4"=>$pbsDir, 
		"5"=>"$toolDir","6"=>"$toolDir", "7"=>"$toolDir", "8"=>"$toolDir" );

    for my $theKey ( sort keys %myCmds )
    {
        $cmdLine="$myScript -s:$myDirs{$theKey} -o:\"$myCmds{$theKey}\" ";
	$action = &PromptAction( "cd $myDirs{$theKey} & $myCmds{$theKey}" );	
        if( $action == 1)
	{
	    &comlib::ExecuteSystem( $cmdLine ) ;
	    next;
	}
        last if( $action == 2 );
	exit(0) if ( $action == 3);
    }
}
#------------------------------------------------------------------//
sub SyncSourceTree
{
    my( $pSyncTime ) =@_;
    my( $cmdLine, $action );

    %myCmds = ( "1"=>"sdx sync $isFake ...$pSyncTime",
		"2"=>"sd sync $isFake *",
		"3"=>"sd sync $isFake ..." );
    %myDirs = ( "1"=>"$sdxroot",
		"2"=>"$toolDir",
		"3"=>"$pbsDir" );

    for my $theKey( sort keys %myCmds )
    {
	$cmdLine = "$myScript -s:$myDirs{$theKey} -o:\"$myCmds{$theKey}\" ";
        $action = &PromptAction( "cd $myDirs{$theKey} & $myCmds{$theKey}" );	
        if( $action == 1)
	{
	    &comlib::ExecuteSystem( $cmdLine ) ;
	    next;
	}
        next if( $action == 2 );
	exit(0) if ( $action == 3);
    }
}
#------------------------------------------------------------------//
sub PromptAction
{
    my ( $pCmdLine ) = @_;

    my ( $choice ) = -1;
    my ($theDot) = '.' x ( length( $pCmdLine ) + 10);
   
    print ( "\nAbout to [$pCmdLine]\n$theDot\n") if( $pCmdLine );

    while ( $choice > 3 || $choice < 1 )
    {
	print( "\nPlease choose (1) Continue? (2) Skip (3) Quit?  ");
        chop( $choice=<STDIN> );
    }
    print "\n\n";
    return $choice; 
}
#------------------------------------------------------------------//
#Function Usage
#------------------------------------------------------------------//
sub Usage
{
print <<USAGE;

A wrapper for "sd operations" used to perform sd commands on source tree
and loc tree. 


Usage:
    $0 [-l:<lang>] [-t:<timestamp>][-b:<toolbranch>][-i|-y][-p]

    -l Language. Default is "usa".
       If "usa", sync the source projects under SDXROOT.
       If "intl", sync the international build source projects. 
       Otherwise, sync the localization projects of the given language.

    -t Timestamp used for sync'ing the SD files.
  
    -b Tool branch.
       Default is "intlred".

    -i Perform Integration or Reverse integration but No sync.
    -y Perform sync but no integration.
       Default execution on both sync and integration instructions.

    -p Powerless.

    /? Displays usage.

Examples:
    $0 -l:intl -t:2000/10/01:18:00 -b:ntbintl -i
        Integrate the ntbintl tools from main at the given timestamp.

    $0 -l:intl -t:2000/10/01:18:00 -y
        Sync the source tree at the given timestamp.

    $0 -l:intl -t:2000/10/01:18:00
        Integrate the intlred tools from main.
	Sync the source tree at the given timestamp.

    $0 -l:ger -i
	Reverse integrate the German localization projects at the current time.

    $0 -l:ger -t:2000/09/09:12:34 -y
        Sync the localization projects at the given timestamp.

    $0 -l:ger 
        Sync and reverse integrate the German localization projects at the current time.

USAGE
exit(1);
}
#------------------------------------------------------------------//
#Cmd entry point for script.
#------------------------------------------------------------------//

if (eval("\$0 =~ /" . __PACKAGE__ . "\\.pl\$/i"))
{

    # <run perl.exe GetParams.pm /? to get the complete usage for GetParams.pm>
    &GetParams ('-n', 'l:','-o', 'n:t:b:piy', '-p', 'lang bldno synctime toolbranch powerLess integrateOnly syncOnly', @ARGV);


    #Validate or Set default
    if ( !$lang ) {
        $lang = "usa";
    }
	
    exit(1) if( !&ValidateParams( uc($lang), \$toolbranch ) );

    exit( !&synctree::main( uc($lang), $synctime, $toolbranch, $powerLess, $integrateOnly, $syncOnly ) );
}
#----------------------------------------------------------------//
#Function: GetParams
#----------------------------------------------------------------//
sub GetParams
{
    use GetParams;

    #Call pm getparams with specified arguments
    &GetParams::getparams(@_);

    #Call the usage if specified by /?
    if ($HELP){ &Usage();}
}
#------------------------------------------------------------------//
#Function ValidateParams
#------------------------------------------------------------------//
sub ValidateParams
{
    my ( $pLang, $pToolBranch) = @_;


    # Define a default location for the log and err file
    my $defdir=$ENV{_NTTREE};

    if ( uc($pLang) ne "INTL" && uc($pLang) ne "USA") {
        $defdir .= "\\$pLang";
    }
    $defdir .= "\\build_logs";

    if( !( -e $defdir ) )
    {
       &comlib::ExecuteSystem( "md $defdir");
    }

    #Define LOGFILE and ERRFILE
    $ENV{LOGFILE} = "$defdir\\synctree.log";
    $ENV{ERRFILE} = "$defdir\\synctree.err";


    # Nuke the existing logging files.
    &comlib::ExecuteSystem( "del $ENV{LOGFILE}" ) if(  -e $ENV{LOGFILE} );
    &comlib::ExecuteSystem( "del $ENV{ERRFILE}" ) if(  -e $ENV{ERRFILE} );

    #Set tool branch to intlred if not defined
    $$pToolBranch = "intlred" if( !${$pToolBranch} );

    #Verify language if it is not usa or intl
    return 1 if( uc($pLang) eq "USA" || uc($pLang) eq "INTL");
    
    if ( !&cklang::CkLang( uc($pLang) )  )
    { 
        errmsg("Invalid language $pLang.");
        return 0;
    }
    return 1;
}
#------------------------------------------------------------------//
1;