diff -r 59bb7c4d6172 -r 0f5e3a7fb6af buildframework/helium/tools/compile/ImageCreation.pl --- a/buildframework/helium/tools/compile/ImageCreation.pl Fri Feb 05 11:59:41 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 - }