diff -r a9d4531388d0 -r d90029decf65 bldsystemtools/commonbldutils/BCupdateXML.pl --- a/bldsystemtools/commonbldutils/BCupdateXML.pl Wed Mar 31 23:20:42 2010 +0300 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,77 +0,0 @@ -#!perl -w -# Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies). -# All rights reserved. -# This component and the accompanying materials are made available -# under the terms of "Eclipse Public License v1.0" -# which accompanies this distribution, and is available -# at the URL "http://www.eclipse.org/legal/epl-v10.html". -# -# Initial Contributors: -# Nokia Corporation - initial contribution. -# -# Contributors: -# -# Description: -# Script to perform Build Launch Checks -# -# - -use strict; -use Getopt::Long; -use FindBin; -use lib "$FindBin::Bin"; -use BuildLaunchChecks; - -my %BCData; - -# Process the commandline -my ($iBuildLaunch) = ProcessCommandLine(); - -($BCData{'BCToolsBaseBuildNo'}) = BuildLaunchChecks::GetBCValue(\%ENV); - -BuildLaunchChecks::UpdateXML($iBuildLaunch, \%BCData); - - -# ProcessCommandLine -# -# Inputs -# -# Outputs -# $iBuildLaunch (BuildLaunch xml file) -# -# Description -# This function processes the commandline -# - -sub ProcessCommandLine { - my ($iBuildLaunch, $iHelp); - - GetOptions('x=s' => \$iBuildLaunch, 'h' => \$iHelp )|| die Usage(); - - if ((!defined $iBuildLaunch) || ($iHelp)) - { - Usage(); - } else { - return $iBuildLaunch; - } - -} - -# Usage -# -# Description -# Output Usage Information and exit whole script. -# - -sub Usage { - print <