#!perl

# MakeISOs.pl

# Copyright (c) 1997-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:

# Version Info:

# Version 001: initial version

# Command: MakeISOs.pl [<TargetDirectory>] [<Build number>]

# 

#

use File::Copy;

# ------------------------------------- Global variables -----------------------------------

my $TargetDirectory = $ARGV[0];

my $TargetDirectoryDefault = "\\_PACKAGES";

my $BuildNumber = $ARGV[1];

my $BuildNumberDefault = $ENV{'Buildnumber'};

my $DevKitDir  = "\\_PACKAGES\\DevKit_CD";

my $CustKitDir = "\\_PACKAGES\\CustKit_Extra_CD";

my $pkgSrcDefDevKitDir = "\\Product\\DevKit\\SourceDefinitions";

my $sourceListDevKit = "DevKit.srcdef_EDITED";

my $sourceListDevKit1 = "DevKit1.srcdef";

my $sourceListDevKit2 = "DevKit2.srcdef";

my $createPkgSrc = "\\generic\\epoc32\\tools\\createpkgsrc";

my $createISO   = "c:\\apps\\dao\\makeiso";

my @PackagesToSplitOut = (

		"com.symbian.src.connect",

		"com.symbian.src.GT-general",

		"com.symbian.src.GT-restricted-part1",

		"com.symbian.src.GT-restricted-part2",

		"com.symbian.src.GT-restricted-part3",

		"com.symbian.src.GT-restricted-part4",

		"com.symbian.src.GT-restricted-part5",

		"com.symbian.src.GT-restricted-part6",

		"com.symbian.src.TechView-general",

		"com.symbian.src.TechView-restricted",

		"com.symbian.devkit.src"  );

# --------------------------------- Start of Main() ----------------------------------------

# set up target directory.

$TargetDirectory = EstablishTargetDirectory($ARGV[0]);

my $outputDevKitDir1 = "$TargetDirectory\\DevKit_CD_1";

my $outputDevKitDir2 = "$TargetDirectory\\DevKit_CD_2";

# create sub-directories

mkdir $outputDevKitDir1, 0777 if (! -e $outputDevKitDir1);

mkdir $outputDevKitDir2, 0777 if (! -e $outputDevKitDir2);

# split the .srcdef and copy required .sdkpkg files

SplitSrcdefAndCopyPackages();

# copy non-packages (KSA etc.) files for the DevKits

CopyKSA($DevKitDir, $outputDevKitDir1);

CopyKSA($DevKitDir, $outputDevKitDir2);

# create the package source (package-list.xml.zip) for the DevKits

CreateSrc($outputDevKitDir1, "$TargetDirectory\\$sourceListDevKit1");

CreateSrc($outputDevKitDir2, "$TargetDirectory\\$sourceListDevKit2");

# check build number parameter

if ($BuildNumber eq "")

{

	$BuildNumber = $BuildNumberDefault;

}

# create the ISO images for the Kits (CustKit and DevKits)

system ("call $createISO $outputDevKitDir1 $TargetDirectory\\DevKit_CD_".$BuildNumber."_Source.ISO /BATCH /JOLIET /VOLUME=DevKit_Source");

system ("call $createISO $outputDevKitDir2 $TargetDirectory\\DevKit_CD_$BuildNumber.ISO /BATCH /JOLIET /VOLUME=DevKit");

system ("call $createISO $CustKitDir       $TargetDirectory\\CustKit_Extra_CD_$BuildNumber.ISO /BATCH /JOLIET /VOLUME=CustKiT");

# --------------------------------- Start of EstablishTargetDirectory() ----------------------------------------

# set up target directory. If supplied, create dir if non-existant. If this fails or was not supplied, use default.

sub EstablishTargetDirectory($)

{

	$CommandLineTargetDirectory = $_[0];        # target directory for the ISOs

	if ($CommandLineTargetDirectory ne "")

	{    

	    if ((-d $CommandLineTargetDirectory) or (mkdir $CommandLineTargetDirectory, 0777))     # exists or created OK

		{

			return $CommandLineTargetDirectory;

		}

	}

	# target not given or unable to create it, so try to use default, or set to "."

	if (-d $TargetDirectoryDefault)

	{

		return $TargetDirectoryDefault;     # returns default 

	}

	else

	{

		return ".";

	}

}

# --------------------------------- Start of SplitSrcdefAndCopyPackages() ----------------------------------------

# split the .srcdef and copy required .sdkpkg files

sub SplitSrcdefAndCopyPackages()

{

	# read in original .srcdef file

	open (FILE, "<$pkgSrcDefDevKitDir\\$sourceListDevKit") or die "Couldn't open file $pkgSrcDefDevKitDir\\$sourceListDevKit";

	my @srcList = <FILE>;

	close(FILE);

	# open up two .srcdef files for new Kits

	open (FILE1, ">$TargetDirectory\\$sourceListDevKit1") or die "Couldn't open file $TargetDirectory\\$sourceListDevKit1";

	open (FILE2, ">$TargetDirectory\\$sourceListDevKit2") or die "Couldn't open file $TargetDirectory\\$sourceListDevKit2";

	foreach my $line (@srcList)

	{

		if ($line !~ /<item/)     # line doesn't specify a source file;  must be header or footer, so copy across

		{

			print FILE1 $line;

			print FILE2 $line;

		}	

		else                      # line specifies a source file; copy line across and copy file too

		{

			$line =~ /(com.*?sdkpkg)/ ;

			my $fileName = $1 ;

			if ( grep { $line =~ /$_/ } @PackagesToSplitOut )	          # packages listed in @PackagesToSplitOut

			{

				print FILE1 $line;

				copy ("$DevKitDir\\$fileName", "$outputDevKitDir1\\$fileName") or die "Unable to copy $DevKitDir\\$fileName to $outputDevKitDir1\\$fileName - $!" ;

			}

			else	                                                      # packages not listed in @PackagesToSplitOut

			{

				print FILE2 $line;

				copy ("$DevKitDir\\$fileName", "$outputDevKitDir2\\$fileName") or die "Unable to copy $DevKitDir\\$fileName to $outputDevKitDir2\\$fileName - $!" ;

			}

		}	

	}

	close (FILE1);

	close (FILE2);

}

# --------------------------------- Start of CopyKSA() ----------------------------------------

# copies non-*.sdkpkg files from source to distribution directory

sub CopyKSA($$)

{

	my $SourceDir = $_[0];      # where non-*.sdkpkg files are (usually original DevKit directory)

	my $DistribDir = $_[1];     # where they should be copied to (usually new DevKit directory)

	print "Copying KSA from $SourceDir to $DistribDir\n";	

	my @Files = <$SourceDir\\*>;

	foreach my $FileName (@Files)

	{

		if ($FileName !~m/sdkpkg/i)

		{

			copy($FileName, $DistribDir) or die "Unable to copy $FileName into $DistribDir" ;

		}

	}

}

# --------------------------------- Start of CreateSrc() ----------------------------------------

# creates a package source (package-list.xml.zip)

sub CreateSrc($$)

{

	chdir($_[0]) or die "Unable to change directory to $_[0]";                   # directory to put file in to

	my $pkgSrcDefFile = $_[1] ;     # full path location to the *.srcdef file

	# build the package source XML

	my $command = $createPkgSrc." -s ".$pkgSrcDefFile ;

	system($command) ;

}