buildframework/helium/tools/compile/ImageCreation.pl
changeset 307 22ecbfc20eb4
parent 215 b61c19d4168d
parent 217 0f5e3a7fb6af
child 308 7830b8253b5a
--- a/buildframework/helium/tools/compile/ImageCreation.pl	Wed Feb 17 16:10:19 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,90 +0,0 @@
-#============================================================================ 
-#Name        : ImageCreation.pl 
-#Part of     : Helium 
-
-#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 warnings;
-#use strict;
-use IPC::Open2;
-use FileHandle;
-use File::Copy;
-use Cwd;
-use Getopt::Long;
-
-my($copyto,$MyTraces,$Drive,$product,$type);
-my $result = GetOptions(
-        "copyto=s"  => \$copyto,
-        "mytraces=s"  => \$Mytraces,
-        "Drive=s"=> \$Drive,
-        "product=s"=> \$product,
-        "type=s"=> \$type
-        );
-if((!$copyto) or (!$product) or (!$type))
-  {
-    &Usage;
-    }
-
-my $imagedes=$copyto;
-my $Traces="\\epoc32\\rombuild";
-my $pid;
-
-if($Drive)
-{
-	chdir "$Drive" or die "Cannot change Directory to $Drive\n";
-}
-
-chdir ("/epoc32/rom/") or die "Cannot Change Directory to /epoc32/rom/";
-
-if($Mytraces)
-	{
-		print "Removing $Traces \n";
-		print unlink "$Traces\\mytraces.txt";
-    `echo " " > $Traces\\mytraces.txt`;
-	}
-AGAIN:
-#system("del *$product* 2>&1");
-
-
-print system("perl BuildS60Rom.pl -product $product -type $type -b -dir $imagedes") or die "cannot open BuildS60Rom.pl";
-
-#system("move *$product*.* $copyto");
-system("move \\flash_temp\\*erase_userdisk.fpsx $copyto");
-if($Mytraces)
-  {
-    print copy ($Mytraces,"$Traces\\myTraces.txt");;
-    
-    $imagedes="$copyto\\udeb";
-    system ("mkdir $copyto");
-    $Mytraces=();
-    goto AGAIN;
-  }
-
-#system("7za a $copyto\\images.zip  $copyto\\*%USERNAME%*.*");
-
-sub Usage
-{
-  print "Usage:
-              imagecreation.pl -copyto <1> -MyTraces <2> -Drive <3> -product <4> -type <5>
-              
-                <1> Create images to specified directory [Mandatory]
-                <2> Location to Mytraces.txt or any other file to-be used as mytraces
-                <3> Drive where SDK is Istalled on which Image needs to be created
-                <4> Supported for particular release [Mandatory]
-                <5> [rnd|prd|subcon]  Set the image type [Mandatory]
-        ";
-        exit 0
-  }