#
# Copyright (c) 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 Cwd;
use File::Copy;
use File::Basename;

# Helpers
sub ReadFile($);
sub WriteFile($$);
sub EditFile($$$);

print "This script creates SIS files containing LEEs for SIF integration tests\n";

my $PLATFORM=@ARGV[0];
my $CONFIGURATION=@ARGV[1];

my $securitySourceDir = $ENV{SECURITYSOURCEDIR};
my $CERTPATH = "$securitySourceDir\\installationservices\\switestfw\\testcertificates\\swi\\test\\tsisfile\\data\\signedsis\\Root5CA\\cert_chain_dsa_len1\\first.dsa.cer";
my $KEYPATH = "$securitySourceDir\\installationservices\\swi\\test\\tsisfile\\data\\signedsis\\Root5CA\\cert_chain_dsa_len1\\dsa1.key";
my $PKGDIR = "$securitySourceDir\\installationservices\\swinstallationfw\\test\\tusif\\scripts\\data";
my $BUILDDIR = "\\epoc32\\release\\$PLATFORM\\$CONFIGURATION";
my $DATADIR = "$BUILDDIR\\z\\tusif\\tswtype\\data";
my $ARMV5DATADIR = "\\epoc32\\data\\z\\tusif\\tswtype\\data";

my $BASE = 'sifswtypebase';
my $UPGRADE = 'sifswtypeupgrade';
my $suffix = '_edited';

# Replace <BUILDMIDPATH> and <ZDRIVEMIDPATH> in the PKG files with the current values
my $ZDRIVEMIDPATH = 'data';
if (lc($PLATFORM) ne "armv5")
	{
	$ZDRIVEMIDPATH = "release\\$PLATFORM\\$CONFIGURATION";
	}
my $BUILDMIDPATH = "release\\$PLATFORM\\$CONFIGURATION";
EditFile("$PKGDIR\\$BASE.pkg", "$PKGDIR\\$BASE$suffix.pkg" , sub { s/<BUILDMIDPATH>/$BUILDMIDPATH/gm; s/<ZDRIVEMIDPATH>/$ZDRIVEMIDPATH/gm; });
EditFile("$PKGDIR\\$UPGRADE.pkg", "$PKGDIR\\$UPGRADE$suffix.pkg" , sub { s/<BUILDMIDPATH>/$BUILDMIDPATH/gm; s/<ZDRIVEMIDPATH>/$ZDRIVEMIDPATH/gm; });

my $dir = getcwd;
chdir $PKGDIR;

# Generate SIS files for SIF integration tests
my $CREATESISCMD = "createsis create -cert $CERTPATH -key $KEYPATH";
`$CREATESISCMD $PKGDIR\\$BASE$suffix.pkg`;
`$CREATESISCMD $PKGDIR\\$UPGRADE$suffix.pkg`;
unlink "*.cer"; #delete all certificates to avoid failure on checklocationofcertificates test

# Copy generated SIS files onto the Z drive
if (lc($PLATFORM) ne "armv5")
	{
	unlink "$DATADIR\\$BASE.sis";
	move("$PKGDIR\\$BASE$suffix.sis", "$DATADIR\\$BASE.sis");
	unlink "$DATADIR\\$UPGRADE.sis";
	move("$PKGDIR\\$UPGRADE$suffix.sis", "$DATADIR\\$UPGRADE.sis");
	}
else
	{
	mkdir "$ARMV5DATADIR" unless -d "$ARMV5DATADIR";
	unlink "$DATADIR\\$BASE.sis";
	move("$PKGDIR\\$BASE$suffix.sis", "$ARMV5DATADIR\\$BASE.sis");
	unlink "$DATADIR\\$UPGRADE.sis";
	move("$PKGDIR\\$UPGRADE$suffix.sis", "$ARMV5DATADIR\\$UPGRADE.sis");
	}

unlink "$PKGDIR\\$BASE$suffix.pkg";
unlink "$PKGDIR\\$UPGRADE$suffix.pkg";

chdir $dir;


# Read the contents of a file into a string and return it
sub ReadFile ($) {
	my ($file) = @_;
	open FILE, "<$file" or die "Can't read from $file: $!";
	local $/ = undef;
	my $data = <FILE>;
	close FILE;
	return $data;
}

# Replace a file with a string
sub WriteFile ($$) {
	my ($file, $data) = @_;

	# Ensure directory exists
	if ($file =~ basename($1) && ! -e $1)
		{
		mkdir($1);
		}
	
	if (-e $file)
		{
		system("attrib -r $file");
		}
	
	open FILE, ">$file" or die "Can't write to $file: $!";
	print FILE $data;
	close FILE;
}

# Edit a file
sub EditFile ($$$) {
	my ($infile, $outfile, $coderef) = @_;
	local $_ = ReadFile($infile);
	&$coderef();
	WriteFile($outfile, $_);
}