diff -r 25214794fad6 -r 08ffbd51e3fd browserui/browser/IadSis/createIADpackages.pl --- a/browserui/browser/IadSis/createIADpackages.pl Tue Apr 27 16:41:18 2010 +0300 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,557 +0,0 @@ -#!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 <.\\pkg\\BrowserNG.pkg'); -#print PKGFILE <