diff -r 000000000000 -r bde4ae8d615e os/ossrv/lowlevellibsandfws/pluginfw/TestExecute/EComSWITests/data/tem_dosis.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/os/ossrv/lowlevellibsandfws/pluginfw/TestExecute/EComSWITests/data/tem_dosis.pl	Fri Jun 15 03:10:57 2012 +0200
@@ -0,0 +1,207 @@
+#!perl
+
+# Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "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 strict;
+use File::Copy;
+use Getopt::Long;
+use File::Basename;
+use File::Spec;
+
+my $basedir;
+my $platform;
+my $cfg;
+my $certpem;
+my $certkey;
+my $outdir;
+my $maketrgt;
+my $sources;
+my $stublist;
+
+GetOptions(
+  'basedir=s' => \$basedir,
+  'platform=s' => \$platform,
+  'cfg=s' => \$cfg,
+  'certpem=s' => \$certpem,
+  'certkey=s' => \$certkey,
+  'outdir=s' => \$outdir,
+  'maketrgt=s' => \$maketrgt,
+  'sources=s' => \$sources,
+  'stublist=s' => \$stublist,
+);
+
+my $ROOT = $ENV{EPOCROOT};
+$ROOT =~ s#\\#/#g;
+
+if ($maketrgt =~ /RELEASABLES/i or $maketrgt =~ /EXTRATARGET/i)
+{
+  my @targets = ();
+  my @extra = ();
+  my $s;
+  my @a = split(/\s+/,  $sources);
+  foreach my $pkg (@a)
+  {
+	my $isStub = $stublist =~ /\b$pkg\b/i;
+	my $destdir = GetTargetDir($isStub);
+	my $trgtname = PkgToSis($pkg, $isStub);
+	$s =  "$destdir/$trgtname";
+    GetExternalForm(\$s);
+   	push(@targets, $s);
+
+    if ($destdir =~ /epoc32\/data\/z\/.*\/udeb/ || $isStub)
+	{
+	  my $extratrgt = $destdir;
+	  $extratrgt =~ s/\/udeb//;
+	  $s = "$extratrgt/$trgtname";
+      GetExternalForm(\$s);
+	  push(@extra, $s);
+	}
+  }
+
+  $s = join(' ', @targets);
+  $s = join(' ', @extra) if ($maketrgt =~ /EXTRATARGET/i);
+  print "$s";
+  exit(0);
+}
+
+# Getting here is build final. The pkg file must be in basedir.
+chdir($basedir);
+
+# $ARGV[0] is one of the targets generated in RELEASABLES above.
+my $arg = $ARGV[0];
+my $filename = basename($arg);
+my $trgtdir = dirname($arg);
+RecursiveMkDir($trgtdir);
+
+my $isStub;
+($filename, $isStub) = SisToPkg($filename);
+die "Pkg $filename does not exist!\n" if (! -f $filename);
+
+my $cmd;
+if ($isStub)
+{
+  $cmd = "makesis -s $filename $arg";
+  system($cmd);
+}
+else
+{
+  # change the source locations in pkg file
+  my $generatedpkg = "generated.pkg";
+  EditPkgFile($filename, $generatedpkg);
+
+  my $generatedsis = "generated.sis";
+  $cmd = "makesis $generatedpkg $generatedsis";
+  system($cmd);
+
+  $cmd = "signsis -S $generatedsis $arg $certpem $certkey";
+  system($cmd);
+
+  # make an extra copy in /epoc32/data/z/tef_ecomswi.
+  # iby files normally do not expect files in udeb or urel
+  # under /epoc32/data/z.
+  if ($trgtdir =~ /\bepoc32\b.\bdata\b.\bz\b.*\budeb\b/)
+  {
+	my $extratrgt = $arg;
+	$extratrgt =~ s/[\/\\]udeb//;
+	copy($arg, $extratrgt);
+  }
+
+  unlink($generatedsis);
+  unlink($generatedpkg);
+}
+
+###################################################
+# subroutines
+###################################################
+sub GetTargetDir
+{
+  my $isStub = shift;
+
+  # for armv5, store all artefacts in data/z.
+  my $d = "${ROOT}epoc32/data/z/$outdir/$cfg";
+  $d =~ s#/$cfg## if ($isStub);
+
+  if ($platform =~ /winscw/i)
+  {
+    $d = "${ROOT}epoc32/release/$platform/$cfg/z/$outdir";
+    $d = "${ROOT}epoc32/release/$platform/$cfg/z/system/install" if ($isStub);
+  }
+  return $d;
+}
+
+sub PkgToSis
+{
+  my $f = shift;
+  my $isStub = shift;
+  $f =~ s/\.pkg$//i;
+  my $suffix = ($isStub) ? ".sis" : "signed.sis";
+  $f .= $suffix;
+  return $f;
+}
+
+sub SisToPkg
+{
+  my $f = shift;
+  my $isStub = 1;
+  $isStub = 0 if ($f =~ s/signed.sis$//);
+  $f =~ s/\.sis$//;
+  $f .= ".pkg";
+  return ($f, $isStub);
+}
+
+sub EditPkgFile
+{
+  my $inf = shift;
+  my $outf = shift;
+
+  open(FIN, $inf) or die "fail to read $inf $!\n";
+  open(FOUT, ">$outf") or die "fail to write $outf $!\n";
+  local $/ = undef;
+  my $data = <FIN>;
+  close(FIN);
+
+  $data =~ s/_PLATFORM_/$platform/g;
+  $data =~ s/_CFG_/$cfg/g;
+  print FOUT $data;
+  close(FOUT);
+}
+
+# simple one, cannot handle cases like \\londata04\somedir
+sub RecursiveMkDir
+{
+  my $path = shift;
+  $path =~ s#\\#/#g;
+
+  my $i = 1;
+  my $s;
+  do {
+	$i = index($path, "/", $i);
+	if ($i != -1)
+	{
+	  $s = substr($path, 0, $i++);
+	  mkdir($s, 0777) if (! -d $s);
+	}
+  } while ($i != -1);
+
+  mkdir($path, 0777) if (! -d $path);
+}
+
+sub GetExternalForm
+{
+  my $refs = shift;
+  my @a = split(/[\/\\]/, $$refs);
+  $$refs = File::Spec->catfile(@a);
+}