diff -r a9d4531388d0 -r d90029decf65 bldsystemtools/commonbldutils/GenResult/GenDiamondsXml.pl --- a/bldsystemtools/commonbldutils/GenResult/GenDiamondsXml.pl Wed Mar 31 23:20:42 2010 +0300 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,64 +0,0 @@ -# Copyright (c) 2003-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 Generate the XML file that is suitable for Diamonds -# -# -use strict; -use FindBin; -use lib "$FindBin::Bin"; -use lib "$FindBin::Bin/lib"; -use Getopt::Long; -use GenDiamondsXml; - -my ($iStage, $iState, $iServer) = ProcessCommandLine(); - -&GenDiamondsXml::main($iStage, $iState, $iServer); - -# ProcessCommandLine -# Description -# This function processes the commandline - -sub ProcessCommandLine { - my ($iHelp); - - GetOptions('h' => \$iHelp, 't=s' => \$iStage, 'i=s' => \$iState, 's=s' => \$iServer); - - if (($iHelp) || (!defined $iStage) || (!defined $iState) || (!defined $iServer)) { - Usage(); - } - return ($iStage, $iState, $iServer); -} - -# Usage -# -# Output Usage Information. - -sub Usage { - print <