diff -r 000000000000 -r 83f4b4db085c bldsystemtools/commonbldutils/GenResult/GenResult.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bldsystemtools/commonbldutils/GenResult/GenResult.pl Tue Feb 02 01:39:43 2010 +0200 @@ -0,0 +1,71 @@ +# 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 get version of various tools +# +# + +use strict; +use FindBin; +use lib "$FindBin::Bin"; +use GenResult; +use Getopt::Long; + +# Process the commandline +my ($iDir, $iSnapshot, $iProduct, $iLinkPath, $iStage, $iBrag, $imail) = ProcessCommandLine(); + +&GenResult::main($iDir, $iSnapshot, $iProduct, $iLinkPath, $iStage, $iBrag, $imail); + +# ProcessCommandLine +# Description +# This function processes the commandline + +sub ProcessCommandLine { + my ($iHelp); + + GetOptions('h' => \$iHelp, 'd=s' => \$iDir, 's=s' => \$iSnapshot, 'p=s' => \$iProduct, 'l=s' => \$iLinkPath, 't=s' => \$iStage, 'b=s' => \$iBrag, 'm' => \$imail); + + if (($iHelp) || (!defined $iDir) || (!defined $iSnapshot) || (!defined $iProduct) || (!defined $iStage)) { + Usage(); + } + return ($iDir, $iSnapshot, $iProduct, $iLinkPath, $iStage, $iBrag, $imail); +} + +# Usage +# +# Output Usage Information. + +sub Usage { + print <