#
# 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 the License "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: 
#



	use File::Basename;
	my $toworkindir= dirname $0;
	print "Changing dir to $toworkindir\n";
	chdir $toworkindir;

	$logFile = "\\epoc32\\winscw\\c\\createandsignunicode.txt";

	#
# Counters for results
#
$NumberOfTests  = 3;
$NumberOfPassed = 3;
$NumberOfFailed = 0;
	#
	#Function to write log into file
	#
sub WriteLog 
	{
	my ($log) = @_;
	unless( open($fh, ">> $logFile")) 
		{
		printf STDERR "Can\'t open $logfile:$!\n";
		return;
		}
	printf $fh $log;
	printf $log;
	close $fh;
	}

  	# For creating unicode based sis files for NQP
	system ("WScript.exe createnunicodefile.vbs");
	system("createnormalsis.pl");
	system("WScript.exe renameunicode.vbs");
	system("WScript.exe signunicodesis.vbs");

	#For Embeded SIS file
	system("createembededsis.pl");
	system("WScript.exe signembededunicodesis.vbs");

	#For creating the SIS file which produces large data, 
	#moved to this stuff as ONB was failing being this pkg file in tsisfile dir.
	system("unzip -q -o largefile.zip");
	system("makesis largedata.pkg");
	system("signsis -s largedata.sis largedata.sis default.cer 	default.key");


	#Copy the sis files to Z drive
	system "copytozdrive.bat";

	system("del /f largefile.txt");
	unlink($logFile);
	WriteLog("Created test data for NQP.\n\n");
	#
# Display the result
#
WriteLog("\n\nTests completed OK\n");
WriteLog(sprintf "Run: %d\n", $NumberOfTests );
WriteLog(sprintf "Passed: %d\n", $NumberOfPassed );
WriteLog(sprintf "%d tests failed out of %d\n", $NumberOfFailed, $NumberOfTests );