diff -r 4ca382093dae -r 493058e57c8c buildverification/smoketest/SmokeTestClient.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/buildverification/smoketest/SmokeTestClient.pl Wed Sep 01 12:30:50 2010 +0100 @@ -0,0 +1,80 @@ +# Copyright (c) 2004-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: +# This script was born on 07/10/2004 +# +# + +#!/usr/bin/perl -w +use strict; +use SmokeTest; +use Getopt::Long; + +# Process the commandline +my ($iSourceDir, $iTestSuite, $iProduct, $iServerPool, $iProductType, $iPublishLocation, $iBuildNumber, $iXML, $iUnzip, $iBuildDrive, $iTDDrive) = ProcessCommandLine(); + +&SmokeTest::main($iSourceDir, $iTestSuite, $iProduct, $iServerPool, $iProductType, $iPublishLocation, $iBuildNumber, $iXML, $iUnzip, $iBuildDrive, $iTDDrive); + +# ProcessCommandLine +# +# Description +# This function processes the commandline + +sub ProcessCommandLine +{ + my ($iHelp); + + GetOptions('h' => \$iHelp, 'src=s' => \$iSourceDir, 'pool=s' => \$iServerPool, 'product=s' => \$iProduct, 'suite=s' => \$iTestSuite, 'type=s' => \$iProductType, 'publish=s' => \$iPublishLocation, 'build=s' => \$iBuildNumber, , 'xml=s' => \$iXML, 'unziptd' => \$iUnzip, 'builddrive=s' => \$iBuildDrive, 'tddrive=s' => \$iTDDrive); + + if (($iHelp) || (!defined $iSourceDir) || (!defined $iTestSuite) || (!defined $iProduct) || (!defined $iBuildDrive)) + { + Usage(); + } + + return ($iSourceDir, $iTestSuite, $iProduct, $iServerPool, $iProductType, $iPublishLocation, $iBuildNumber, $iXML, $iUnzip, $iBuildDrive, $iTDDrive); +} + +# Usage +# +# Output Usage Information. +# + +sub Usage +{ + print <