--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/installationservices/swinstallationfw/test/tusif/group/createleesisfiles.pl	Fri Mar 19 09:33:35 2010 +0200
@@ -0,0 +1,123 @@
+#
+# 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, $_);
+}
+