diff -r 3406c99bc375 -r 07b41fa8d1dd stif/TestModuleTemplates/STIFUnitXXX/CreateSTIFUnitModuleVar2.bat
--- a/stif/TestModuleTemplates/STIFUnitXXX/CreateSTIFUnitModuleVar2.bat	Thu Jul 15 20:25:38 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,168 +0,0 @@
-::
-:: 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 "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: This file contains capsmodifier implementation.
-::
-
-@perl -x CreateSTIFUnitModule.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 
-@goto end
-
-#!perl
-use strict;
-use File::Find;
-
-# Verify command line parameters
-if   ($#ARGV == -1 || $#ARGV > 1 )
-{
-	PrintHelp();
-}
-
-# Take module name
-my $moduleName = $ARGV[0];
-my $MODULENAME = $moduleName;
-$MODULENAME =~ tr/[a-z]/[A-Z]/;
-
-# Take target path or use default
-my $targetPath="\\";
-if ( $#ARGV == 1 )
-{
-	$targetPath = $ARGV[1];
-}
-
-
-# Create directory
-my $targetDir = $targetPath;
-
-unless(-d $targetDir)
-{
-  die ("Specified target path does not exists. Cannot create test module.\n");
-}
-
-print "Starting module creation to $targetDir\n";
-mkdir $targetDir, 0777 || die ("Can't create directory $targetDir");
-
-# Loop through the file structure
-find(\&renamerename, '.');
-
-unlink $targetDir."CreateSTIFUnitModuleVar2.bat";
-unlink $targetDir."CreateSTIFUnitModule.bat";
-unlink $targetDir."/group/$moduleName"."_nrm.mmp";
-
-ModifyBldInf();
-
-print "Module created to $targetDir\n";
-
-# This function will be called for each file or directory
-sub renamerename
-{
-	my $oldName = $_;
-	print "Processing $oldName\n";
-
-	# Construct new filename if that needed
-	s/STIFUnitXXX/$moduleName/i;
-	my $newName = $targetDir.$File::Find::dir."/".$_;  
-
-	# Process directories
-	if (opendir(DIR, $oldName))
-	{
-		closedir (DIR);
-		mkdir $newName, 0777 || die ("Can't create directory $newName");
-		return;
-	}
-  
-  if (uc($oldName) eq "BLD.INF")
-  {
-    print "Skipping $oldName\n";
-    return;
-  }
-                        
-	# Open input file
-	open (INFILE, $oldName ) || die ("Can not find $oldName");
-
-	#Open output file
-	my $newOutput = $newName."new";
-	open (OUTFILE, ">".$newOutput ) || die ("Can not open $newOutput");
-
-	# Replace text in files
-	while (<INFILE>)
-	{
-	  s/STIFUnitXXX/$moduleName/g;
-	  s/STIFUNITXXX/$MODULENAME/g;
-	  s/XXX/$moduleName/g;
-	  s/STIFUnitYYY/$targetDir/g;
-	  print OUTFILE $_;
-	}
-
-	# Close filehandles
-	close (INFILE);
-	close (OUTFILE);
-
-	# Rename result file
-	rename $newOutput,$newName;
-}
-
-sub ModifyBldInf()
-{
-  print "Modifying bld.inf of existing project\n";
-  my $bldName = $targetDir."group/Bld.inf";
-  my $newBldName = $targetDir."group/Bld.inf.new";
-  my $found = 0;
-  
-  open INFILE, $bldName or die "Cannot open $bldName: $!";
-  open (OUTFILE, ">".$newBldName) or die "Cannot create $newBldName: $!";
-  
-  while (<INFILE>) 
-  {
-    print OUTFILE $_ unless /^warning:/i;
-    if ($found eq 0 && trim(uc($_)) eq "PRJ_TESTMMPFILES")
-    {
-      print OUTFILE "$moduleName.mmp\n";
-      $found = 1;
-    }
-  }
-  if($found eq 0)
-  {
-    print OUTFILE "PRJ_TESTMMPFILES\n$moduleName.mmp\n";
-  }
-  
-  close INFILE;
-  close OUTFILE;
-  
-  rename $bldName, "$bldName.old" or die "Could not rename $bldName to $bldName.old\n";
-  rename $newBldName, $bldName or die "Could not rename $newBldName to $bldName\n";
-  
-  print "Bld.inf file has been modified.\n";
-  print "Original file is stored as $bldName.old\n";
-}
-
-sub PrintHelp()
-{
-	print "createSTIFUnitModule ModuleName [path]\n";
-	print "\n";
-	print "Creates a new test module\n";
-	print "If [path] is not given, module is created to root of current drive.\n";
-	print "If [path] is given, it must contain the final \'\\\' in path name.\n";
-	print "Command must be executed in directory where the template exist.\n";
-	exit;
-}
-
-sub trim($)
-{
-	my $string = shift;
-	$string =~ s/^\s+//;
-	$string =~ s/\s+$//;
-	return $string;
-}
-
-__END__
-:end