#
# 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 );