build_ams.pl

build_ams 工作脚本

 #version: 2008-10-28#***************************** CONSTANTS ******************************#my $SUCCESS = 1;my $FAILURE = 0;my $TRUE = 1;my $FALSE = 0;my $IL93_SERVER = "IL93";my $CA25_LINUX_SERVER = "CA25_LINUX";my $CA25_SOLARIS_SERVER = "CA25_SOLARIS";my $WTT_NAME = "Watertown";my $VGS_NAME = "Vegas";my $RASP_NAME = "Raspberry";my $CORAL_NAME = "Coral";my $LANDSCAPE_NAME = "Landscape";my $TELECA_VOB = "/vobs/teleca_sow1";my $TELECA_VOB_CODE = $TELECA_VOB . "/code";#***************************** GLOBAL VARIABLES ******************************#my $usrID = "a21755"; #change to your CoreIDmy $usrName = "Ming.He"; #change to your name#my $BUILD_SERVER = $IL93_SERVER;my $BUILD_SERVER = $CA25_LINUX_SERVER;#my $BUILD_SERVER = $CA25_SOLARIS_SERVER;my $bDEBUG = $TRUE;#my $bDEBUG = $FALSE;#my $bBuild_DebugVer = $TRUE;my $bBuild_DebugVer = $FALSE; #build debug version of obigo/obigo_browser and phone codemy $bBuild_Baseline_DebugVer = $FALSE;my $startPhase = "1"; #starting phase of this scriptmy $bSendToTeam = $TRUE; #Transend the build to team instead of myselfmy $bApplyMotLabel = $FALSE; #Apply_MOT label to obigomy $SENDCEDAT_CMD = "/home/$usrID/cedat/sendcedat";my $SENDCEDAT_UNIX_CMD = "/home/$usrID/cedat/unix/sendcedat";#+-------------------------------------------------+#my @branchName_wtt = ("P5_3.20=61R=", #teleca version "libqq85090_il93e_a21755_p53170_wtt", #branch name "", #comments "2", #starting phase "59_st4_wtt.cs", #source config spec "NODEBUG", #build DEBUG version phone code );my @branchName_vgs = ("P6_3.20=61R=", "dbg_ca25_a21755_p63200_vgs", #"libqq40669_il93e_a21755_p63170_vgs", "", "1", "61r_vgs.cs", "NODEBUG", );my @branchName_rasp = ("P8_1.16=24R=", "librr40871_ca25_a21755_p8116_coral, "", "1", "24r_coral.cs", #"17_st1_rasp.cs", "NODEBUG", );my @branchNameAry = @branchName_wtt;#+-------------------------------------------------+#my @baselineDepAry_vgs =();my @baselineDepAry_rasp =();my @baselineDepAry = @baselineDepAry_vgs;#+-------------------------------------------------+#my @jbedBranchAry_vgs =( #"# JBED0716", #"element /vobs/k_apps/thirdpty/brew/esmertec/libjbedfbcc_BsSa.a .../libqq33018_ca25_a19619_jbed0716/LATEST", #"element /vobs/k_apps/thirdpty/brew/esmertec/jbed.a .../libqq33018_ca25_a19619_jbed0716/LATEST",);my @jbedBranchAry_rasp =();my @jbedBranchAry = @jbedBranchAry_rasp;#+-------------------------------------------------+#my @browserDepAry =();#+-------------------------------------------------+#my @telecaHotfixAry =();my @telecaHotfixAry_wtt =(# "element /vobs/teleca_sow1/code/obione_comp/modules/JAS/source/attrmgr/jas_object_data.c .../libqq40668_ca25_a21755_p53150_wtt/1",);my @telecaHotfixAry_vgs =();my @telecaHotfixAry_rasp =( #"element /vobs/teleca_sow1/code/... -none");#---------------------------------------------------------------------#my $branchName = "";my $baselineVer = "";my $telecaRelVer = "";my $jbedRelVer = "";my $comment = "";my $motLabelName = "TELECA_OBIGO_$telecaRelVer/_MOT";my $phoneCodeName = ""; #"phone_$comment.shx";my $obigoPath = "/vobs/k_apps/thirdpty/brew/teleca/obigo/";my $obigoPath_rasp = "/vobs/teleca_release/release/lib.arm/";my $obigoVobName = ""; #"/vobs/k_apps";my $DEBUG_ON = "";#if ($bBuild_DebugVer) {# $DEBUG_ON = "DEBUG_ON=1";#}my $BuildVegasFlag = "";my $ProductName = $WTT_NAME;my $ProductSuffix = "wtt";#flags passed in command linemy $bTrans = $TRUE;my $bSetCS = $TRUE;my $bOnlySetCS = $FALSE;my $bBuildCS = $FALSE;my $sour_csFName = "";#*****************************AUXILIARY FUNCTIONS****************************#sub DEBUG_INFO { #if ($bDEBUG) if (1) { if (defined(@_)) { print "@_/n"; } else { print "Not Defined!/n"; } }}sub D { DEBUG_INFO(@_);}sub CCase_INFO { #print "bDEBUG is: $bDEBUG/n"; my $result; if ($bDEBUG) { print "@_/n/n"; return $SUCCESS; } else { print "@_/n/n"; if (0 == system("@_")) { return $SUCCESS; } else { printf("Error occurs when executing command: @_"); #die; return $FAILURE; } }}sub LOG_FILE { my($fileName, $bAppData, @logPara) = @_; #bAppData -- append date to file or overwrite file #DEBUG_INFO($fileName, $bAppData); $fileName =~ s'//'/'ig; my @pathAry = split('/', $fileName); my $tmpPath = ""; for (my $i=0; $i<scalar(@pathAry)-1; $i++) { $tmpPath .= $pathAry[$i] . '/'; #DEBUG_INFO($tmpPath); mkdir($tmpPath, 0111) if (! -d $tmpPath); } if ($bAppData) { $fileName = ">>" . $fileName; #append data } else { $fileName = ">" . $fileName; } open(tmpLogFile, $fileName) || die "Cannot open log file: $fileName!/n"; foreach (@logPara) { print tmpLogFile $_; print tmpLogFile "/n"; } close(tmpLogFile);}sub DIED_AT { my($dieInfo, ) = @_; $dieInfo=~s" |//"_"ig; my $fileName = "/home/$usrID/$dieInfo"; LOG_FILE($fileName, $FALSE, ""); CCase_INFO("gzip $fileName ; "); TransToMe("$fileName.gz"); CCase_INFO("rm $fileName.gz "); die "$dieInfo";}sub trim($) { my $string = shift; $string =~ s/^/s+//; $string =~ s//s+$//; return $string;}sub isEmptyStr { my ($str) = @_; #D("str is: $str"); my $result = 0; if (!defined($str) || $str eq "" || $str=~m/^/s+$/ig ) { $result = 1; } return $result;}#---------------------------- TRANSEND BY CEDAT ------------------------------------sub TransToMe { my($fileName) = @_; return TransTo($fileName, $usrName, "$usrID/@motorola.com"); #CCase_INFO("cd $fileFolder; sendcedat -N $usrName -E $usrID/@motorola.com -n MOTOROLA -c $usrName -e $usrID/@motorola.com -f $fileName ");}sub TransToTeam { my($fileName) = @_; return TransTo($fileName, "AMS & Browser Team", "AMSBRWS/@motorola.com"); #CCase_INFO("cd $fileFolder; sendcedat -N $usrName -E $usrID/@motorola.com -n MOTOROLA -c /"AMS & Browser Team/" -e AMSBRWS/@motorola.com -f $fileName ");}sub TransTo { my($fileName, $receiverName, $receiverEMail) = @_; my ($fileFolder, ) = (); my $result = $TRUE; if ($TRUE==$bTrans && $FALSE==$bDEBUG) { die "/nInvalid file name $fileName to trans!/n" if (!defined($fileName) || ! -e $fileName); } $receiverName = $usrName if (!defined($receiverName)); $receiverEMail = "$usrID/@motorola.com" if (!defined($receiverEMail)); $fileFolder = substr($fileName, 0, rindex($fileName, '/')); $fileName = substr($fileName, rindex($fileName, '/')+1); DEBUG_INFO("Folder Name: $fileFolder/tFile Name: $fileName/tReceiver Name: $receiverName/tReceiver Email: $receiverEMail "); if ($TRUE == $bTrans) { my $sendCEDAT; if (($BUILD_SERVER eq $IL93_SERVER) || ($BUILD_SERVER eq $CA25_LINUX_SERVER) ) { $sendCEDAT = $SENDCEDAT_CMD; } elsif ($BUILD_SERVER eq $CA25_SOLARIS_SERVER) { $sendCEDAT = $SENDCEDAT_UNIX_CMD; } $result = CCase_INFO("cd $fileFolder; $sendCEDAT -N /"$usrName/" -E $usrID/@motorola.com -n MOTOROLA -c /"$receiverName/" -e $receiverEMail -f $fileName "); } return $result;}sub TransFile { my ($fileName) = @_; $fileName = trim($fileName); my $result = $TRUE; if ($bSendToTeam) { $result = TransToTeam("$fileName"); # || DIED_AT("Fail to trans file $fileName to team"); } else { $result = TransToMe("$fileName"); # || DIED_AT("Fail to trans file $fileName to me"); } return $result;}#---------------------------- TRANSEND BY CEDAT END ------------------------------------sub parse_arguments { DEBUG_INFO("All Arguments: @_"); my $arg = ""; for (my $i=0; $i<scalar(@ARGV); $i++) { $arg = $ARGV[$i]; if ($arg =~ /^-nosetcs$/i) { $bSetCS = $FALSE; DEBUG_INFO("bSetCS is set to $bSetCS..."); } elsif ($arg =~ /^-setcs_only$/i) { $bOnlySetCS = $TRUE; DEBUG_INFO("bOnlySetCS is set to $bOnlySetCS..."); } elsif ($arg =~ /^-notrans$/i) { $bTrans = $FALSE; DEBUG_INFO("bTrans is set to $bTrans..."); } elsif ($arg =~ /^-buildcs$/i) { $bBuildCS = $TRUE; $sour_csFName = $ARGV[$i+1]; $i++; DEBUG_INFO("bBuildCS is set to $bBuildCS..."); } elsif ($arg =~ /^-telecacode$/i) { TransTelecaCode(); exit "Trans Teleca code over!"; } else { #do nothing; } }}sub phaseIsOver { my ($info) = @_; print "$info/n"; TransFolder(); die "$info";}sub print_usage { print"/n"; printf("********** Build TOOL *********/n"); printf("* 1. Build in Debug Mode? (N) */n"); printf("*******************************/n"); printf("/nChoose An Option: ");}sub select_product { print"/n"; printf("***** SELECT BUILD PRODUCT *****/n"); printf("* 1. Coral / Raspberry (Default) */n"); printf("* 2. Vegas */n"); printf("* 3. Watertown */n"); printf("* 4. Vegas Landscape */n"); printf("**********************************/n"); printf("/nChoose An Option: ");}sub select_receiver { print"/n"; printf("****** SELECT BUILD RECEIVER *********/n"); printf("* 1. To Yourself (Default) */n"); printf("* 2. To AMS & Browser Team */n"); printf("**************************************/n"); printf("/nChoose An Option: ");}sub apply_mot_label { print"/n"; printf("********** Apply MOT label *********/n"); printf("* 1. Apply MOT label to OBIGO? (N) */n"); printf("************************************/n"); printf("/nChoose An Option: ");}sub verifyConfigSpec { my $fileName = "/home/$usrID/tmpCS.tmp"; my $csOK = $TRUE; CCase_INFO("rm $fileName ; cleartool catcs > $fileName "); open(hFileHandle, $fileName) || die "Cannot open cs file1: $fileName!/n"; while ($_=<hFileHandle>) { #DEBUG_INFO("line: $_/tbranch name: $branchName"); if (m/#element/g || !(m/obigo_browser.a|obigo.a/g) ) { next; } DEBUG_INFO("line: $_/tbranch name: $branchName"); if (! m!/$branchName/!g) { die "Branch name mismatch in CS and script1 for branch: $branchName! "; } $_=<hFileHandle>; DEBUG_INFO("line: $_/tbranch name: $branchName"); if (! m!/$branchName/!g) { die "Branch name mismatch in CS and script2 for branch: $branchName! "; } #$csOK = $TRUE; last; #jump out of while loop } while ($_=<hFileHandle>) { next if (m/#element/g || !(m/TELECA_OBIGO_P/d+_/d+/./d+/i) ); DEBUG_INFO("line: $_/tTeleca Rel Ver: $telecaRelVer"); if (! m"TELECA_OBIGO_$telecaRelVer"g) { die "Teleca release version mismatch in CS and script3 for version: $telecaRelVer! "; } #$csOK = $TRUE; last; #jump out of while loop } close(hFileHandle); open(hFileHandle, $fileName) || die "Cannot open cs file2: $fileName!/n"; while ($_=<hFileHandle>) { if (m//x0d/x0a$/ig) { die "Config spec contains DOS format new line chars!/n"; } } close(hFileHandle); my @changedFilesAry = (@baselineDepAry, @jbedBranchAry, @browserDepAry, @telecaHotfixAry); if ($ProductName eq $WTT_NAME) { @changedFilesAry = (@changedFilesAry, @telecaHotfixAry_wtt); } elsif ($ProductName eq $VGS_NAME) { @changedFilesAry = (@changedFilesAry, @telecaHotfixAry_vgs); } elsif ($ProductName eq $RASP_NAME || $ProductName eq $LANDSCAPE_NAME) { @changedFilesAry = (@changedFilesAry, @telecaHotfixAry_rasp); } else { } #D("changedFilesAry is: ", @changedFilesAry); foreach my $tmpFile (@changedFilesAry) { next if ($tmpFile !~ m/^/s*element/s+(/S+)/s+(/S+)/i); my $csRule; $tmpFile =~ m/element/s+(/S+)/s+(/S+)/i; $tmpFile = $1; $csRule = $2; CCase_INFO("cleartool ls $tmpFile > $fileName "); open(hFileHandle, $fileName) || die "Cannot open cs file3: $fileName!/n"; while ($_=<hFileHandle>) { D("ct ls $_"); if (! m/Rule: $csRule/ig) { D("config spec mismatch for hot fix $tmpFile under rule $csRule!/n"); die; $csOK = $FALSE; } else { $csOK = $TRUE; } } close(hFileHandle); } D("**+ Hot fixes all match between config spec and vob elements! +**"); CCase_INFO("rm $fileName "); if (!$csOK) { die "Branch name mismatch in CS and script10 for branch: $branchName! "; }}sub verifyViewName { my $viewName = $ENV{"CLEARCASE_ROOT"}; $viewName = substr($viewName, rindex($viewName, '/')+1); DEBUG_INFO("View Name is: $viewName"); return if ($viewName!~m/^a21755/i || $viewName=~m/dbg/i || $viewName=~m/debug/i); #N/A for not a21755 #$ProductSuffix = ($ProductName eq $WTT_NAME) ? "wtt": ($ProductName eq $VGS_NAME) ? "vgs" : ($ProductName eq $RASP_NAME) ? "rasp" : ($ProductName eq $LANDSCAPE_NAME) ? "landscape" : "UNKNOWN"; my $viewRule = "$baselineVer/_$ProductSuffix"; if ($viewName !~ m/$viewRule/i) { die "View Name($viewName) mismatch with view rules($viewRule)!/n"; }}sub build_configspec { my ($sour_fname, ) = @_; my ($csStr, $dest_fname) = ("", ""); if (!isEmptyStr($sour_fname)) { my $tmpFName = $sour_fname; $tmpFName =~ s/_//ig; die ("/nSource config spec file $sour_fname mismatch with baseline version $baselineVer!/n") if ($tmpFName !~ m/^$baselineVer/ig); } #$baselineVer = ($comment=~m/_(/d+ST/d+)|_(/d+R/d?)/ig)[0]; #D("comment is: $comment/tBaseline version is: $baselineVer"); my $jbedVer = ($jbedBranchAry[0] =~ m/(JBED/d*)/i)[0]; $jbedVer=uc($jbedVer); #$ProductSuffix = ($ProductName eq $WTT_NAME) ? "wtt": ($ProductName eq $VGS_NAME) ? "vgs" : ($ProductName eq $RASP_NAME) ? "rasp_p1" : ($ProductName eq $LANDSCAPE_NAME) ? "rasp_vgsHW" : "UNKNOWN"; $csStr .= "/nelement * CHECKEDOUT/n/n"; if ($BUILD_SERVER eq $CA25_LINUX_SERVER) { $csStr .= "element /vobs/atso_tools/perl5/... PERL_N_05.88.0BI_LINUX/n"; $csStr .= "element /vobs/atso_tools/util/... PERL_N_05.88.0BI_LINUX/n/n"; } if ($ProductName eq $LANDSCAPE_NAME) { $csStr .= "#For Vegas HW only!!!!/n"; $csStr .= "element /vobs/engine_boot/tools/... .../libpp23316_ca25_e11456_56p2_rasp_boot_0d/LATEST/n"; $csStr .= "element /vobs/cdma2000_integration/tools/arm9_jtag_nand/... .../libpp23316_ca25_e11456_56p2_rasp_boot_0d/LATEST/n"; $csStr .= "element /vobs/engine_boot/tools/... BOOT6800_X_R39.2_V1.0D.00R/n"; $csStr .= "element /vobs/cdma2000_integration/tools/arm9_jtag_nand/... BOOT6800_X_R39.2_V1.0D.00R/n/n"; } $csStr .= "# Ming's build/n"; $csStr .= "element $obigoPath/obigo.a .../$branchName/LATEST/n"; $csStr .= "element $obigoPath/obigo_browser.a .../$branchName/LATEST/n"; $csStr .= "/n# Baseline's dependency/n"; for (my $i=0; $i<scalar(@baselineDepAry); $i++) { $csStr .= "$baselineDepAry[$i]/n"; } $csStr .= "/n# Browser's dependency/n"; for (my $i=0; $i<scalar(@browserDepAry); $i++) { $csStr .= "$browserDepAry[$i]/n"; } $csStr .= "/n# Teleca latest release/n"; for (my $i=0; $i<scalar(@telecaHotfixAry); $i++) { $csStr .= "$telecaHotfixAry[$i]/n"; } $csStr .= "/n" if (scalar(@telecaHotfixAry) > 0); if ($ProductName eq $WTT_NAME) { for (my $i=0; $i<scalar(@telecaHotfixAry_wtt); $i++) { $csStr .= "$telecaHotfixAry_wtt[$i]/n"; } } elsif ($ProductName eq $VGS_NAME) { for (my $i=0; $i<scalar(@telecaHotfixAry_vgs); $i++) { $csStr .= "$telecaHotfixAry_vgs[$i]/n"; } } elsif ($ProductName eq $RASP_NAME || $ProductName eq $LANDSCAPE_NAME) { for (my $i=0; $i<scalar(@telecaHotfixAry_rasp); $i++) { $csStr .= "$telecaHotfixAry_rasp[$i]/n"; } } $csStr .= "/nelement /vobs/teleca_sow1/... TELECA_OBIGO_$telecaRelVer/n/n"; for (my $i=0; $i<scalar(@jbedBranchAry); $i++) { $csStr .= "$jbedBranchAry[$i]/n"; } $csStr .= "/n##############################################"; $csStr .= "/n# $ProductName $baselineVer Baseline"; $csStr .= "/n##############################################/n"; if (!isEmptyStr($sour_fname)) { open(hFileHandle, $sour_fname) || die "Cannot open cs file: $sour_fname!/n"; while (<hFileHandle>) { next if (m/element/s+/*/s+CHECKEDOUT/); s//x0d/x0a$//x0a/ig; $csStr .= $_; } close(hFileHandle); } $csStr .= "/n"; #D("config spec str is:/n$csStr"); if (isEmptyStr($jbedVer)) { $dest_fname = "/home/$usrID/PhoneCode_$telecaRelVer/_$baselineVer/_$ProductSuffix/.cs"; } else { $dest_fname = "/home/$usrID/PhoneCode_$telecaRelVer/_$jbedVer/_$baselineVer/_$ProductSuffix/.cs"; } #D("Dest CS File is: $dest_fname"); LOG_FILE($dest_fname, $FALSE, $csStr); return $dest_fname;}sub clearBaselineDep { my @changedFilesAry = (@baselineDepAry, ); foreach my $tmpFile (@changedFilesAry) { if ($tmpFile =~ m!(/vobs//S+/.c) +!) { #D("tmp file is: $tmpFile"); $tmpFile = $1; $tmpFile =~ s/src/obj.arm/i; $tmpFile =~ s//.c//.o/i; CCase_INFO("rm $tmpFile "); } }}#*****************************MAIN FUNCTIONS****************************#sub Build_AMS { verifyConfigSpec() if (!$bDEBUG); if ($startPhase ne "1") { my $option; while (1) { DEBUG_INFO("/nAre you sure to start build from Phase_$startPhase instead of Phase_1 ? "); $option = <STDIN>; chomp $option; if ($option eq 'y' || $option eq 'Y') { last; } elsif ($option eq 'n' || $option eq 'N') { DEBUG_INFO("** Wrong build starting phase, try again!"); exit 1; } }#while } DEBUG_INFO("** Start build AMS from Phase: $startPhase **/n"); goto "PHASE$startPhase";###########PHASE1:########### Phase1();###########PHASE2:########### Phase2();#-----------PHASE2_1:#----------- Phase2_1();###########PHASE3:########### Phase3();#-----------PHASE3_5:#----------- Phase3_5();###########PHASE4:########### Phase4();}#Build_AMSsub Phase1 { CCase_INFO("rm -f $TELECA_VOB_CODE/*.o ; rm -f $TELECA_VOB_CODE/*.a;"); my $dbgVerDirName = "$TELECA_VOB_CODE/obj.arm/DEBUG_VER_DIR/"; D("Debug Ver Dir Name is: $dbgVerDirName"); if ($bBuild_DebugVer && (! -d $dbgVerDirName)) { CCase_INFO("rm -f $TELECA_VOB_CODE/obj.arm/* ;") ; #only remove all objects for first time to build debug version phone code CCase_INFO("mkdir $TELECA_VOB_CODE/obj.arm ; mkdir $dbgVerDirName ;"); } elsif (!$bBuild_DebugVer) { CCase_INFO("rm $dbgVerDirName/* ; rmdir $dbgVerDirName "); } my @changedFilesAry = (@browserDepAry, @telecaHotfixAry); if ($ProductName eq $WTT_NAME) { @changedFilesAry = (@changedFilesAry, @telecaHotfixAry_wtt); } elsif ($ProductName eq $VGS_NAME) { @changedFilesAry = (@changedFilesAry, @telecaHotfixAry_vgs); } elsif ($ProductName eq $RASP_NAME || $ProductName eq $LANDSCAPE_NAME) { @changedFilesAry = (@changedFilesAry, @telecaHotfixAry_rasp); } #D("changedFilesAry is: ", @changedFilesAry); foreach my $tmpFile (@changedFilesAry) { if ($tmpFile =~ m!/([^/]+/.c)/s!i) { $tmpFile = $1; $tmpFile =~ s//.c$//.o/i; CCase_INFO("rm $TELECA_VOB_CODE/obj.arm/$tmpFile "); # || die "Fail to delete object file $tmpFile in $TELECA_VOB_CODE/obj.arm/!/n"; } } #CCase_INFO("rm -f $TELECA_VOB_CODE/obj.arm/* ;"); #CCase_INFO("rm -f /vobs/platform2000/code/* ;"); clearBaselineDep(); if ($BUILD_SERVER eq $IL93_SERVER) { CCase_INFO("cd /vobs/platform2000/code/; /usr/global/share/submit '/vobs/atso_tools/build/bin/acmake' PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h build_product_config ;") || die; CCase_INFO("cd $TELECA_VOB_CODE/; /usr/global/share/submit '/vobs/atso_tools/build/bin/acmake' PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h MRSF_CONFIG_H=/vobs/synergy_device_layer/code/dl_mrsf/ProductConfig.h $DEBUG_ON $BuildVegasFlag ;") || die; } elsif ($BUILD_SERVER eq $CA25_LINUX_SERVER) { CCase_INFO("cd /vobs/platform2000/code/; bsub -q ca25-lnxbld -Ip '/vobs/atso_tools/build/bin/acmake PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h build_product_config' ;") || die; CCase_INFO("cd $TELECA_VOB_CODE/; bsub -q ca25-lnxbld -Ip '/vobs/atso_tools/build/bin/acmake PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h MRSF_CONFIG_H=/vobs/synergy_device_layer/code/dl_mrsf/ProductConfig.h $DEBUG_ON $BuildVegasFlag' ;") || die; } elsif ($BUILD_SERVER eq $CA25_SOLARIS_SERVER) { CCase_INFO("cd /vobs/platform2000/code/; bsub -q ca25-sunbld -Ip '/vobs/atso_tools/build/bin/acmake PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h build_product_config' ;") || die; CCase_INFO("cd $TELECA_VOB_CODE/; bsub -q ca25-sunbld -Ip '/vobs/atso_tools/build/bin/acmake PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h MRSF_CONFIG_H=/vobs/synergy_device_layer/code/dl_mrsf/ProductConfig.h $DEBUG_ON $BuildVegasFlag' ;") || die; } else { die "Unknown build server!"; }}sub Phase2 { if ($TRUE == CCase_INFO("cd $obigoPath ; cleartool lstype brtype:$branchName ")) { print "/n**Branch type: $branchName has exited!/n"; } else { print "/n*** Ready to create new branch type: $branchName.../n"; CCase_INFO("cd $obigoPath ; cleartool mkbrtype -nc $branchName ") || die; } CCase_INFO("cleartool mkbranch -nc -nco $branchName $obigoPath/obigo.a"); CCase_INFO("cleartool mkbranch -nc -nco $branchName $obigoPath/obigo_browser.a"); CCase_INFO("cd $obigoVobName; cleartool find $obigoPath/*.a -version 'version(.../$branchName/LATEST)' -exec 'cleartool checkout -c /"$comment for $ProductName/" /$CLEARCASE_XPN' ") || die;}sub Phase2_1 { CCase_INFO("rm -f $obigoPath/*.a ") || die; if ($BUILD_SERVER eq $IL93_SERVER) { CCase_INFO("/usr/bin/cp -f $TELECA_VOB_CODE/obigo.a $obigoPath/obigo.a") || die; CCase_INFO("/usr/bin/cp -f $TELECA_VOB_CODE/obigo_browser.a $obigoPath/obigo_browser.a") || die; } elsif (($BUILD_SERVER eq $CA25_LINUX_SERVER) || ($BUILD_SERVER eq $CA25_SOLARIS_SERVER)) { CCase_INFO("cp -f $TELECA_VOB_CODE/obigo.a $obigoPath/obigo.a") || die; CCase_INFO("cp -f $TELECA_VOB_CODE/obigo_browser.a $obigoPath/obigo_browser.a") || die; } else { die "Unknown build server!"; } if (!$bBuild_DebugVer) { CCase_INFO("cleartool checkin -nc $obigoPath/obigo.a") || die; CCase_INFO("cleartool checkin -nc $obigoPath/obigo_browser.a") || die; } $motLabelName = "TELECA_OBIGO_$telecaRelVer/_MOT"; DEBUG_INFO("MOT label for Teleca is: $motLabelName"); if ($bApplyMotLabel && $ProductName ne $LANDSCAPE_NAME) { CCase_INFO("cd $obigoPath; cleartool mklbtype -nc $motLabelName ; "); CCase_INFO("cd $obigoPath; cleartool mklabel -nc -replace $motLabelName obigo.a obigo_browser.a") || die "mklabel $motLabelName"; }}sub Phase3 { clearBaselineDep(); CCase_INFO("rm -f /vobs/platform2000/code/* ;"); if (! $bBuild_Baseline_DebugVer) { $DEBUG_ON = ""; } else { $DEBUG_ON = "DEBUG_ON=1"; } if ($BUILD_SERVER eq $IL93_SERVER) { CCase_INFO("cd /vobs/platform2000/code/; /usr/global/share/submit '/vobs/atso_tools/build/bin/acmake' PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h MRSF_CONFIG_H=/vobs/synergy_device_layer/code/dl_mrsf/ProductConfig.h $DEBUG_ON $BuildVegasFlag cdma_1x_phone ;") || die; } elsif ($BUILD_SERVER eq $CA25_LINUX_SERVER) { CCase_INFO("cd /vobs/platform2000/code/; bsub -q ca25-lnxbld -Ip '/vobs/atso_tools/build/bin/acmake PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h MRSF_CONFIG_H=/vobs/synergy_device_layer/code/dl_mrsf/ProductConfig.h $DEBUG_ON $BuildVegasFlag cdma_1x_phone' ;") || die; } elsif ($BUILD_SERVER eq $CA25_SOLARIS_SERVER) { if ($TRUE != $bBuild_DebugVer) { CCase_INFO("cd /vobs/platform2000/code/; bsub -q ca25-sunbld -Ip '/vobs/atso_tools/build/bin/acmake PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h MRSF_CONFIG_H=/vobs/synergy_device_layer/code/dl_mrsf/ProductConfig.h $DEBUG_ON $BuildVegasFlag cdma_1x_phone' ;") || die; } else { $DEBUG_ON = "DEBUG_ON=1"; CCase_INFO("cd /vobs/platform2000/code/; bsub -q ca25-sunbld -Ip '/vobs/atso_tools/build/bin/acmake PRODUCT=cdma2000_6800 LAB_BUILD=TRUE MW=TRUE MW_CONFIG_H=/vobs/synergy_device_layer/code/dl_mw/ProductConfig.h MRSF_CONFIG_H=/vobs/synergy_device_layer/code/dl_mrsf/ProductConfig.h $DEBUG_ON $BuildVegasFlag build_brew cdma_1x_link' ;") || die; } } else { die "Unknown build server!"; }}sub Phase3_5 { CCase_INFO("cd /vobs/platform2000/code/; rm /vobs/platform2000/code/phone.shx; /vobs/engine_boot/tools/create_phone_shx; ") || die; CCase_INFO("rm /vobs/platform2000/code/$phoneCodeName; mv /vobs/platform2000/code/phone.shx /vobs/platform2000/code/$phoneCodeName "); CCase_INFO("rm /vobs/platform2000/code/$phoneCodeName.gz; gzip /vobs/platform2000/code/$phoneCodeName "); #CCase_INFO("rm /home/$usrID/$phoneCodeName.gz ; "); #CCase_INFO("cp /vobs/platform2000/code/$phoneCodeName.gz /home/$usrID/$phoneCodeName.gz ");}sub Phase4 { if (!$bBuild_DebugVer) { TransFile("/vobs/platform2000/code/$phoneCodeName.gz") || die "Fail to trans phone code!"; } else { #TransFile("/vobs/platform2000/code/$phoneCodeName.gz") || die "Fail to trans phone code!"; my $fname = $telecaRelVer; $fname =~ s//.//ig; $fname = "smbrlaz_$fname/_" . lc("$baselineVer/_$ProductSuffix/_dbg.reloc"); CCase_INFO("cd /vobs/platform2000/code/; mv smbrlaz.reloc $fname ; gzip $fname ; "); TransFile("/vobs/platform2000/code/$fname.gz"); } print "/n/n+++ Build AMS complete! +++/n/n"; #CCase_INFO("cleartool ls $obigoPath/ "); CCase_INFO("cleartool desc $obigoPath/obigo*.a ");}###############################################################################sub getEnvVariables { my $envVarFName = "/home/$usrID/env_vars.txt"; unlink $envVarFName if (-e $envVarFName); my $result; my @keyNames = keys(%ENV); foreach my $keyName (@keyNames) { $result .= "$keyName/t:" . $ENV{$keyName} . "/n"; } DEBUG_INFO("Result is:/n$result"); LOG_FILE($envVarFName, $FALSE, $result);}sub getBuildServerConfig { my $hostName = $ENV{HOSTNAME}; $hostName = $ENV{HOST} if ($hostName eq ""); DEBUG_INFO("Host Name is: $hostName"); if ($hostName =~ m/panther/i) { $BUILD_SERVER = $IL93_SERVER; } elsif ($hostName =~ m/ca25log/i) { $BUILD_SERVER = $CA25_SOLARIS_SERVER; } elsif ($hostName =~ m/ca25rhe/i) { $BUILD_SERVER = $CA25_LINUX_SERVER; } else { die "Unknown build server!" if (!$bDEBUG); } DEBUG_INFO("Build Server is: $BUILD_SERVER");}#---------------------------------------------------------------------------------------------sub Test {}#####################################################################parse_arguments(@ARGV);getBuildServerConfig();print_usage();my $option = <STDIN>; chomp $option;if ($option eq 'y' || $option eq 'Y') { $bDEBUG = $TRUE;} else { $bDEBUG = $FALSE;}#####################################################################while (1) { select_product(); $option = <STDIN>; chomp $option; if (3==$option) { #for Raspberry product $ProductName = $WTT_NAME; @branchNameAry = @branchName_wtt; @jbedBranchAry = @jbedBranchAry_vgs; @baselineDepAry = @baselineDepAry_vgs; } elsif (2==$option) { #for Vegas product $ProductName = $VGS_NAME; @branchNameAry = @branchName_vgs; @jbedBranchAry = @jbedBranchAry_vgs; @baselineDepAry = @baselineDepAry_vgs; } else { #for Raspberry / Coral product $branchNameAry[0] =~ m/([^=]+)=([^=]+)/ig; $baselineVer = $2; if ($baselineVer > "22R") { #product name changes to Coral since 23R $RASP_NAME = $CORAL_NAME; } if (4==$option) { #for Vegas product landscape version $ProductName = $LANDSCAPE_NAME; } else { $ProductName = $RASP_NAME; } @branchNameAry = @branchName_rasp; @jbedBranchAry = @jbedBranchAry_rasp; @baselineDepAry = @baselineDepAry_rasp; $obigoPath = $obigoPath_rasp; } DEBUG_INFO("/n*** Ready to build for $ProductName product! ***/n"); if ($ProductName eq $VGS_NAME) { $BuildVegasFlag = "MAKE_SPRINT_VEGAS_SPECIFIC=TRUE"; } else { $BuildVegasFlag = ""; } $obigoVobName = ($obigoPath=~m!(/vobs/[^/]+/)!ig)[0]; D("Teleca drop is integrated to vob: $obigoVobName -- "); $ProductSuffix = ($ProductName eq $WTT_NAME) ? "wtt": ($ProductName eq $VGS_NAME) ? "vgs" : ($ProductName eq $CORAL_NAME) ? "coral" : ($ProductName eq $RASP_NAME) ? "rasp" :($ProductName eq $LANDSCAPE_NAME) ? "rasp_vgsHW" : "UNKNOWN"; $jbedRelVer = ($jbedBranchAry[0] =~ m/(JBED/d*)/i)[0]; $jbedRelVer=uc($jbedRelVer); $branchNameAry[0] =~ m/([^=]+)=([^=]+)/ig; $telecaRelVer = $1; $baselineVer = $2; $branchName = $branchNameAry[1]; $branchName .= "_vgshw" if ($ProductName eq $LANDSCAPE_NAME); #if ($FALSE == CCase_INFO("cd $obigoPath ; cleartool lstype brtype:$branchName ")) #branch name type not exited { my $serverId = ""; if ($BUILD_SERVER eq $IL93_SERVER) { $serverId = "il93"; } elsif ($BUILD_SERVER eq $CA25_LINUX_SERVER || $BUILD_SERVER eq $CA25_SOLARIS_SERVER) { $serverId = "ca25"; } #check the branch name must contain the location code(ca25/il93/zch45) die "/nNew branch name: $branchName cannot be created or modified on $BUILD_SERVER server!" if ($branchName !~ /_$serverId/i); } D("JBED Ver is: $jbedRelVer;/tTeleca Rel Ver is: $telecaRelVer;/tBaseline Ver is: $baselineVer;/nBranch Name is: $branchName;"); $comment = trim($branchNameAry[2]); die "JBED version($jbedRelVer) mismatch between jbedBranchAry and comments($comment)!/n" if ($comment!~m/$jbedRelVer/i && $comment=~m/JBED/i); if ($comment eq "") { $comment = "$telecaRelVer/_$baselineVer/_$ProductSuffix"; } else { $comment = "$telecaRelVer/_$comment/_$baselineVer/_$ProductSuffix"; } $comment=~s//./_/ig; $comment=~s//s+/_/ig; D("comment is: $comment"); $startPhase = $branchNameAry[3]; $sour_csFName = $branchNameAry[4]; $bBuild_DebugVer = ($branchNameAry[5] eq "DEBUG") ? $TRUE : $FALSE; if (! $bBuild_DebugVer) { $phoneCodeName = "phone_$comment.shx"; } else { $phoneCodeName = "dbgPhone_$comment.shx"; } if ( ($branchName=~m/^lib/) && $branchName!~m/$ProductSuffix$/ ) { die "/nIncorrect branch name($branchName) for $ProductName!/n"; } last;}#while (1)if ($TRUE == $bOnlySetCS) { build_configspec($sour_csFName); D("Build Config Spec is over!"); exit 1;}verifyViewName();if ($ProductName eq $LANDSCAPE_NAME) { my $vgsHwBuildFlag_Rasp = "HW_VEGAS=TRUE"; die "Cannot use $vgsHwBuildFlag_Rasp for non-Raspberry product!/n" if ($ProductName ne $LANDSCAPE_NAME); $BuildVegasFlag = $BuildVegasFlag . " $vgsHwBuildFlag_Rasp"; DEBUG_INFO("BuildVegasFlag is: $BuildVegasFlag/n");}while (1) { select_receiver(); $option = <STDIN>; chomp $option; if (2==$option) { $bSendToTeam = $TRUE; last; } else { $bSendToTeam = $FALSE; ##send to myself by default last; }}if (!$bApplyMotLabel) { apply_mot_label(); $option = <STDIN>; chomp $option; if ($option eq 'y' || $option eq 'Y') { $bApplyMotLabel = $TRUE; } else { $bApplyMotLabel = $FALSE; }}if ($TRUE == $bBuild_DebugVer) { #my $option; while (1) { DEBUG_INFO("/nAre you sure to debug version phone code with DEBUG_ON=1 ? "); $option = <STDIN>; chomp $option; if ($option eq 'y' || $option eq 'Y') { printf"!** It is going to build DEBUG version for $ProductName product **!/n"; $DEBUG_ON = "DEBUG_ON=1"; last; } elsif ($option eq 'n' || $option eq 'N') { $bBuild_DebugVer = $FALSE; $DEBUG_ON = ""; last; } }#while}if ($TRUE == $bSetCS && $TRUE == $bBuildCS) { my $csFName = build_configspec($sour_csFName); die "config spec file $csFName not exist!/n" if (!-e $csFName); CCase_INFO("cleartool setcs $csFName ");} else { D("bSetCS is set to FALSE!/n");}###################### BUILD_AMS:#####################Build_AMS();