#!perl

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

# Name: createIADPackages.pl 

#

# Description: This script generate various SIS package files depeding on the 

#							 depending on the variant selection. for example variant 01 will create

#							 a package support English, French, Germany and Portuguese. 

# 

# Example for using this script: 

# perl %name create_package.pl -v 15 -p armv5 -r urel -bmajor 7 -bminor 1 -bnumber 32 

#

# Copyright © 2008 Nokia.  All rights reserved.

# This material, including documentation and any related computer

# programs, is protected by copyright controlled by Nokia.  All

# rights are reserved.  Copying, including reproducing, storing,

# adapting or translating, any or all of this material requires the

# prior written consent of Nokia.  This material also contains

# confidential information which may not be disclosed to others

# without the prior written consent of Nokia.

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

#

# TODOs

#			If possible, make all the components configurable 

#			Support 5.0 and onward

# Notes: 

# 		Currently only armv5 is supported, winscw is not supported

#			Currently only urel is supported. udeb is not supported 

#			Currently variant support only CCB on 323

#

use Getopt::Long;

use File::Copy;

use File::Basename;

use strict;

use warnings;

use Cwd;

use FindBin qw($Bin);

use Data::Dumper;

use fcntl; 

my $usage = q{

Description: This script generate browser sisx package file automatically. 

This script usually is called by buildIADsis.pl. However it can be used separately as well. 

Example: create_package.pl -s S60.323 -v 01 -p armv5 -r urel -bmajor 7 -bminor 1 -bnumber 32  

Mandatory arguments: 

-s: S60 platform. Value such as S60.323 or  S60.50

-v: S60 language variant number

-p: Build target platform. Valid values are: armv5 or winscw, only armv5 supported right now

-r: Release build. Valid values are: urel or udeb, only urel supported right now 

-bmajor: build major number. In term of Browser version 7.1.1234, 7 is the major number 

-bminor: build minor number. In term of Browser version 7.1.1234, 1 is the minor number 

-bnumber: build number. In term of Browser version 7.1.1234, 1234 is the build number  

Optional arguments: 

- None

Limitations

- This script only support armv5 urel currently

- This script is valid for CCB on 323 build currently 

}; 

my %num_lang = (

	"01"	=> ["western", "01", "02", "03", "14"],

	"02"	=> ["western", "01", "09", "06", "16"],

	"03"	=> ["western", "01", "37", "57", "50"],

	"04"	=> ["western", "01", "05", "27", "17"],

	"05"	=> ["western", "01", "04", "18", "13"],

	"06"	=> ["western", "01", "51", "76", "83"],

	"07"	=> ["western", "01", "67", "54", "49"],

	"08"	=> ["western", "01", "68", "78", "93"],

	"09"	=> ["western", "01", "42", "45", "79"],

	"10"	=> ["western", "01", "59", "70", "39"],

	"11"	=> ["western", "01", "15", "07", "08"],

	"12"	=> ["western", "01", "58", "94"],

	"13"	=> ["western", "01", "25", "26", "28"],

	"14"	=> ["china", "29", "30", "157"],

	"15"	=> ["china", "31", "159"],

	"16"	=> ["japan", "32", "160"],

	"17"	=> ["thai", "33", "161"],

	"18"  => ["western", "01", "96"],

	"19"  => ["china", "31", "326", "159"],

	"20"  => ["western", "05", "44", "401", "402"],

	"50" => ["western", "01", "02", "03", "14", "09", "06", "16", "37", "57", "33", "50", "05", "27", 

											"17", "04", "18", "13", "51", "76", "83", "67", "54", "49", "68", "78", "93", 

											"42", "45", "79", "59", "70", "39", "15", "07", "08", "58", "94", "25", "26", "28", 

											"96", "05", "44"],

	"51" => ["china", "29", "30", "157", "31", "159"]

	);	

# To support western-all IAD delivery we need to remove Lang 401, 402 of variant 50

die $usage unless @ARGV;

print @ARGV; 

print "\n"; 

my ($s60,$variant_num,$platform,$release,$bmajor,$bminor,$bnumber,$udeburel); 

$s60 = "S60.323"; # Initialize the default value

$udeburel = "urel";

#my ($test1, $test2, $test3); 

GetOptions("s=s", => \$s60, "v=s", => \$variant_num, "p=s",=> \$platform, "r=s",=> \$release,

           "bmajor=s", => \$bmajor, "bminor=s",=> \$bminor, "bnumber=s",=> \$bnumber, 

           "build=s", => \$udeburel) or die $usage; 

print "variant $variant_num \n";

print "s60platform $s60 \n"; 

print "release $release \n";

print "bmajor, $bmajor \n"; 

print "bminor, $bminor \n"; 

print "bnumber, $bnumber \n"; 

print "build $udeburel \n"; 

print "... package variant $variant_num\n";

print "... package platform $platform \n";

print "... release $release \n";

# print "... major mini build $bmajor $bminor $bnumber \n"); 

# exit; 

# print $release; print "\n"; 

# Create BrowserNG_Cenrep.pkg file 

open (CENPKGFILE, '>.\\pkg\\BrowserNG_cenrep.pkg');

print CENPKGFILE "\;Languages\n"; 

print CENPKGFILE "\&EN\n\n"; 

print CENPKGFILE "\;Header\n";

print CENPKGFILE "\#\{\"Browser CenRep INI file\"\}\, \(0x10202BE9\)\,$bmajor,$bminor,$bnumber, TYPE=SP \n\n";

print CENPKGFILE <<ENDHEADER0;

;Localised Vendor name

%{"Nokia"}

;Unique Vendor name

:"Nokia"

;Supports S60 3rd Edition

ENDHEADER0

# consider the platform support

# [0x102032BE], 0, 0, 0, {"Series60ProductID"}

# [0x1028315F], 0, 0, 0, {"Series60ProductID"}

# if ( $s60platform eq "S60.50" ) 

if ( $s60 eq "S60.323" ) 

{

    print CENPKGFILE "[0x102032BE], 0, 0, 0, \{\"Series60ProductID\"\} \n\n";

}    

if ( $s60 eq "S60.50" ) 

{

    print CENPKGFILE "[0x1028315F], 0, 0, 0, \{\"Series60ProductID\"\} \n\n";

}    

print CENPKGFILE "\; CenRep ini file\n";

my $SrcDir = "\\epoc32\\data\\z\\private\\10202be9\\";

my $TargetDir = "c:\\private\\10202be9\\"; 

print CENPKGFILE "\n";

my @install_files = (

	"10008d39.txt",

	"101f8731.txt"

);

for my$install_file (@install_files) {

print CENPKGFILE "\"$SrcDir$install_file\"\n - \"$TargetDir$install_file\" \n"; 

}

close (CENPKGFILE); 

########################################################################

# create BrowserNG.pkg file

open (PKGFILE, '>.\\pkg\\BrowserNG.pkg');

#print PKGFILE <<ENDHEADER;

#;Languages

print PKGFILE "\;Languages\n"; 

#&EN

print PKGFILE "\&EN\n\n"; 

#

#;Header

#{"Web Browser Update"},(0x10008D39),7,1,0, TYPE=SA,RU

print PKGFILE "\;Header\n";

print PKGFILE "\#\{\"Web Browser Update\"\}\, \(0x10008D39\)\,$bmajor,$bminor,$bnumber, TYPE=SA,RU \n\n";

print PKGFILE <<ENDHEADER;

;Localised Vendor name

%{"Nokia"}

;Unique Vendor name

:"Nokia"

;Supports S60 3rd Edition

ENDHEADER

#[0x102032BE], 0, 0, 0, {"Series60ProductID"}

#[0x1028315F], 0, 0, 0, {"Series60ProductID"}

if ( $s60 eq "S60.323" ) 

{

    print PKGFILE "[0x102032BE], 0, 0, 0, \{\"Series60ProductID\"\} \n\n";

}    

if ( $s60 eq "S60.50" ) 

{

    print PKGFILE "[0x1028315F], 0, 0, 0, \{\"Series60ProductID\"\} \n\n";

}

# MIF resource files ot install

$SrcDir = "\\epoc32\\data\\Z\\resource\\apps\\";

$TargetDir = "!:\\resource\\apps\\"; 

print PKGFILE "\n";

# print PKGFILE $SrcDir; 

# print PKGFILE $TargetDir; 

@install_files = (

	"BrowserAudioVideoPlugin_aif.mif",

	"schemeapp_aif.mif",

	"VideoServices_AIF.MIF", 

	"browser.mif", 

	"browserng_aif.mif",

	"connman.mif", 

	"downloadmgruilib.mif",

	"operatormenu_aif.mif",

	"pushmtm.mif",

	"webkiticons.mif", 

	"webkitutilsicons.mif" 

);

for my $install_file (@install_files) {

print PKGFILE "\"$SrcDir$install_file\"\n - \"$TargetDir$install_file\" \n"; 

}

# SRC resource files ot install

$SrcDir = "\\epoc32\\data\\z\\private\\10003a3f\\apps\\";

$TargetDir = "!:\\private\\10003a3f\\import\\apps\\"; 

print PKGFILE "\n";

@install_files = (

	"BrowserNG_reg.rsc",

	"CodViewer_reg.rsc",

	"DdViewer_reg.rsc", 

	"Operatormenu_reg.rsc", 

	"PushViewer_reg.rsc",

	"RoapApp_reg.rsc", 

	"SchemeApp_reg.rsc",

	"VideoServices_reg.rsc",

	"WidgetUi_reg.rsc"

);

for my$install_file (@install_files) {

print PKGFILE "\"$SrcDir$install_file\"\n - \"$TargetDir$install_file\" \n"; 

}

# SRC resource files ot install

$SrcDir = "\\epoc32\\data\\Z\\resource\\";

$TargetDir = "!:\\resource\\"; 

print PKGFILE "\n";

@install_files = (

	"AiwBrowserProvider.rsc"

);

for my $install_file (@install_files) {

print PKGFILE "\"$SrcDir$install_file\"\n - \"$TargetDir$install_file\" \n\n"; 

}

# Get the languages of the variant 

my $variant_lang = $num_lang{$variant_num}; 

my @variant_lang = @$variant_lang; 

shift @variant_lang; 

# generate the lang dependent files 

for my$lang (@variant_lang) {

  print PKGFILE "IF exists\( \"z:\\resource\\avkon.r$lang\" ) \n";	

	$SrcDir = "\\epoc32\\data\\z\\resource\\";

	$TargetDir = "!:\\resource\\"; 

	print PKGFILE "\n";

	@install_files = (

		"webkit",

		"BrowserAudioVideoPlugin",

		"BrowserDialogsProvider", 

		"browsertelservice", 

		"CodUi",

		"ConnectionManager", 

		"DownloadMgrUiLib",

		"WidgetInstallerUI",

		"WidgetMenu"

	);

	for my$install_file (@install_files) {

	print PKGFILE "\"$SrcDir$install_file.r$lang\"\n - \"$TargetDir$install_file.r$lang\" \n"; 

	}

	# generate more lang dependent files 

	$SrcDir = "\\epoc32\\data\\z\\resource\\";

	$TargetDir = "!:\\resource\\"; 

	print PKGFILE "\n";

	@install_files = (

		"webkitutils"

	);

	for my$install_file (@install_files) {

	print PKGFILE "\"$SrcDir$install_file.r$lang\"\n - \"$TargetDir$install_file.r$lang\" \n"; 	

	}

	# generate more lang dependent files 

	$SrcDir = "\\epoc32\\data\\z\\resource\\apps\\";

	$TargetDir = "!:\\resource\\apps\\"; 

	print PKGFILE "\n";

	@install_files = (

		"BrowserNG",

		"CodViewer",

		"DdViewer",

		"Operatormenu",

		"PushViewer",

		"RoapApp",

		"SchemeApp",

		"VideoServices",

		"WidgetUi"

	);

	for my$install_file (@install_files) {

	print PKGFILE "\"$SrcDir$install_file.r$lang\"\n - \"$TargetDir$install_file.r$lang\" \n"; 

	}

	# generate more lang dependent files 

	$SrcDir = "\\epoc32\\data\\z\\resource\\messaging\\mtm\\";

	$TargetDir = "!:\\resource\\messaging\\mtm\\"; 

	print PKGFILE "\n";

	@install_files = (

		"PushRegistry"

	);

	for my$install_file (@install_files) {

	print PKGFILE "\"$SrcDir$install_file.r$lang\"\n - \"$TargetDir$install_file.r$lang\" \n"; 

	}

	# generate more lang dependent files 

	$SrcDir = "\\epoc32\\data\\z\\resource\\messaging\\";

	$TargetDir = "!:\\resource\\messaging\\"; 

	print PKGFILE "\n";

	@install_files = (

		"PushMtmUi"

	);

	for my$install_file (@install_files) {

	print PKGFILE "\"$SrcDir$install_file.r$lang\"\n - \"$TargetDir$install_file.r$lang\" \n"; 

	}

print PKGFILE "ENDIF \n";

}

# end of generate the lang dependent files 

# Non lang dependent rsc files 

$SrcDir = "\\epoc32\\data\\z\\resource\\plugins\\";

$TargetDir = "!:\\resource\\plugins\\"; 

print PKGFILE "\n";

if ( $s60 eq "S60.323" ) 

{

@install_files = (

	"AiwBrowserProvider",

	"BrowserRec",

	"CodRecog",

	"CookieFilter",

	"DdRecog",

	"DeflateFilter",

	"HttpFilterAcceptHeader",

	"HttpFilterAuthentication",

	"PushMtmPushContentHandler",

	"PushMtmWhiteListAdapter",

	"SchemeDispatcher",

	"WidgetInstallerUI", 

	"widgetRecognizer",

	"httpfilterIop",

	"httpfilterconnhandler",

	"httpfilterproxy",

	"memoryplugin",

	"npBrowserAudioVideoPlugin",

	"npGpsPlugin",

	"npSystemInfoPlugin", 

	"uaproffilter",

	"widgetmemoryplugin"	

  );

}

# Note: Some way of figuring out what need to be on the packages and 

#       hope we will be able to develp an algorithms for it 

# 1. The components change you're aware of. For example gesture lib addition to browser

# 2. Build system, you can find out what's are builded from the build system

# 3. Search for iby files

if ( $s60 eq "S60.50" ) 

{

@install_files = (

	"AiwBrowserProvider",

	"BrowserRec",

	"CodRecog",

	"CookieFilter",

	"DdRecog",

	"DeflateFilter",

	"HttpFilterAcceptHeader",

	"HttpFilterAuthentication",

	"PushMtmPushContentHandler",

	"PushMtmWhiteListAdapter",

	"SchemeDispatcher",

	"WidgetInstallerUI", 

	"widgetRecognizer",

	"httpfilterIop",

	"httpfilterconnhandler",

	"httpfilterproxy",

	"memoryplugin",

	"npBrowserAudioVideoPlugin",

	"npGpsPlugin",

	"npSystemInfoPlugin", 

	"uaproffilter",

	"widgetmemoryplugin"

  );

}

print PKGFILE "\n";

for my$install_file (@install_files) {

print PKGFILE "\"$SrcDir$install_file.rsc\"\n - \"$TargetDir$install_file.rsc\" \n"; 

}

# Files to install (binaries - DLL)

$SrcDir = "\\epoc32\\release\\armv5\\" . $udeburel . "\\";

$TargetDir = "!:\\sys\\bin\\"; 

print PKGFILE "\n";

if ( $s60 eq "S60.323" ) 

{

@install_files = (

	"AiwBrowserProvider",

	"BrowserCache",

	"BrowserLauncher",

	"BrowserRec",

	"BrowserTelService",

	"CodDownload",

	"CodEng",

	"CodRecog",

	"CodUi",

	"ConnectionManager",

	"DdRecog",

	"DeflateFilter",

	"DownloadMgr",

	"DownloadMgrUiLib", 

	"FavouritesEngine",

	"FeedsServerApi",

	"FeedsServerClient",

	"HttpDMServEng",

	"HttpFilterAcceptHeader",

	"HttpFilterAuthentication",

	"HttpFilterCommon", 

	"JavaScriptCore",

	"MemMan",

	"Multipartparser",

	"PushMtmCliSrv",

	"PushMtmPushContentHandler",

	"PushMtmUi",

	"PushMtmUtil",

	"PushMtmWhiteListAdapter",

	"RECENTURLSTORE",

	"SchemeDispatcher",

	"WidgetInstallerUI",

	"WidgetRecognizer",

	"WidgetRegistryClient",

	"browserdialogsprovider",

	"browserengine",

	"cXmlParser",

	"cookiefilter",

	"cookiemanager",

	"httpfilterIop",

	"httpfilterconnhandler",

	"httpfilterproxy",

	"memoryplugin",

	"npBrowserAudioVideoPlugin",

	"npGpsPlugin",

	"npSystemInfoPlugin",

	"pagescaler",

	"uaproffilter",

	"webkitutils",

	"webutils",

	"widgetengine",

	"WidgetInstaller",

	"widgetmemoryplugin",

	"wmlEngine",

	"jsdevice",

);	

}

if ( $s60 eq "S60.50" ) 

{

@install_files = (

	"AiwBrowserProvider",

	"BrowserCache",

	"BrowserLauncher",

	"BrowserRec",

	"BrowserTelService",

	"CodDownload",

	"CodEng",

	"CodRecog",

	"CodUi",

	"ConnectionManager",

	"DdRecog",

	"DeflateFilter",

	"DownloadMgr",

	"DownloadMgrUiLib", 

	"FavouritesEngine",

	"FeedsServerApi",

	"FeedsServerClient",

	"HttpDMServEng",

	"HttpFilterAcceptHeader",

	"HttpFilterAuthentication",

	"HttpFilterCommon", 

	"JavaScriptCore",

	"MemMan",

	"Multipartparser",

	"PushMtmCliSrv",

	"PushMtmPushContentHandler",

	"PushMtmUi",

	"PushMtmUtil",

	"PushMtmWhiteListAdapter",

	"RECENTURLSTORE",

	"SchemeDispatcher",

	"WidgetInstallerUI",

	"WidgetRecognizer",

	"WidgetRegistryClient",

	"browserdialogsprovider",

	"browserengine",

	"cXmlParser",

	"cookiefilter",

	"cookiemanager",

	"httpfilterIop",

	"httpfilterconnhandler",

	"httpfilterproxy",

	"memoryplugin",

	"npBrowserAudioVideoPlugin",

	"npGpsPlugin",

	"npSystemInfoPlugin",

	"pagescaler",

	"uaproffilter",

	"webkitutils",

	"webutils",

	"widgetengine",

	"WidgetInstaller",

	"widgetmemoryplugin",