sl@0: #
sl@0: # Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description: 
sl@0: #
sl@0: #
sl@0: 
sl@0: use Getopt::Long;
sl@0: use Cwd;
sl@0: 
sl@0: 
sl@0: sub Usage()
sl@0: 	{
sl@0: 	print <<USAGE_EOF;
sl@0: Usage
sl@0: perl testdriversetup.pl --statlite=StatLite
sl@0: 
sl@0:     StatLite = [true | false ]
sl@0: 
sl@0:     --help                      : This help
sl@0: USAGE_EOF
sl@0: 	exit( 0 )
sl@0: 	}
sl@0: 
sl@0: sub main()
sl@0: 	{
sl@0: 	my	$help='';
sl@0: 	my	$statLite="";
sl@0: 
sl@0: 	GetOptions(
sl@0: 		'statlite=s'=> \$statLite,
sl@0: 		'help' 		=> \$help
sl@0: 	);
sl@0: 
sl@0: 	if($help or (($statLite ne "true") and ($statLite ne "false")) )
sl@0: 		{
sl@0: 		Usage();
sl@0: 		exit(0);
sl@0: 		}
sl@0: 
sl@0: 	my $theEpocRoot=$ENV{EPOCROOT};
sl@0: 	my $epoc32Location="$theEpocRoot.\\epoc32";
sl@0: 
sl@0: 	my $currentDirectory=cwd;
sl@0: 	$currentDirectory =~ s/Group//i;
sl@0: 	$currentDirectory =~ s/\//\\/g;
sl@0: 
sl@0: 	my $currentDrive = substr($currentDirectory,0,2);
sl@0: 
sl@0: 	my	$cmd="TestDriver config";
sl@0: 	my	$suite="file:/$currentDrive$epoc32Location\\testdriver\\salt\\devsoundexthai.driver";
sl@0: 	$suite =~ s.\\./.g;
sl@0: 	$suite =~ s\/./\/\g;
sl@0: 
sl@0: 	$cmd .= " --bldclean OFF";
sl@0: 	$cmd .= " --bldmake OFF";
sl@0: 	$cmd .= " -e $currentDrive$theEpocRoot";
sl@0: 	$cmd .= " -x $currentDrive$epoc32Location\\testdriver\\salt";
sl@0: 	$cmd .= " --repos $currentDrive$epoc32Location\\testdriver\\Repository";
sl@0: 	$cmd .= " -c $currentDrive$epoc32Location\\testdriver\\Results";
sl@0: 	$cmd .= " -i $currentDirectory";
sl@0: 	$cmd .= " -s $suite";
sl@0: 	$cmd .= " --source $currentDirectory";
sl@0: 	$cmd .= " --tp $currentDirectory";
sl@0: 	$cmd .= " --testexec ON";
sl@0: 	$cmd .= " --statlite $statLite";
sl@0: 	$cmd .= " --teflite true";
sl@0: 	$cmd .= " --commdb overwrite";
sl@0: 	system("$cmd");
sl@0: 	}
sl@0: 
sl@0: main();