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

 # Write a Feature Registry Configuration File

 # 

 #

 use strict;

 my $record = pack 'a4I3',

 	'feat',		# Must be exactly this

 	0,			# Must be exactly this

 	3,			# feature entry count

 	2;			# default-supported range count

 # Feature Entries:

 $record .= pack 'I6',

 	1,			# UID1

 	1,			# status of UID1 (bit 0 = 0x1 is set if feature is present)

 	59,			# UID2

 	3,			# status

 	60,			# and so on

 	0;			# ...

 # Default Supported Ranges:	

 $record .= pack 'I2',

 	 50,		# Low UID

 	 200;		# High UID

 # Symbian Essential Default supported range

 $record .= pack 'I2',

 	 0x10279806,# Low UID

 	 0x10281805;# High UID

 #$record .= '?' x 66000; # to make the file larger than the limit

 my $BINCONFIG;

 open ($BINCONFIG, '>featreg.cfg') or die "Could not open binary config file for writing\n";

 binmode $BINCONFIG;

 syswrite $BINCONFIG, $record, length $record;

 close($BINCONFIG);

 exit;