#============================================================================ 

#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

  }