1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/persistentdata/featuremgmt/featuremgr/tools/datfilehelpers/ModifyFeatContent.pl	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,80 @@
     1.4 +#!perl -w
     1.5 +# Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
     1.6 +# All rights reserved.
     1.7 +# This component and the accompanying materials are made available
     1.8 +# under the terms of "Eclipse Public License v1.0"
     1.9 +# which accompanies this distribution, and is available
    1.10 +# at the URL "http://www.eclipse.org/legal/epl-v10.html".
    1.11 +#
    1.12 +# Initial Contributors:
    1.13 +# Nokia Corporation - initial contribution.
    1.14 +#
    1.15 +# Contributors:
    1.16 +#
    1.17 +# Description:
    1.18 +# This simple script shows how to modify the content of a feature manager
    1.19 +# data file.
    1.20 +# 
    1.21 +#
    1.22 +
    1.23 +use strict;
    1.24 +use FMCreate;
    1.25 +
    1.26 +#
    1.27 +# Hardwire the datafile - this is only an example.
    1.28 +# 
    1.29 +my $datfile = "features.dat";
    1.30 +my $datfile2 = "features2.dat";
    1.31 +my $datfile3 = "features3.dat";
    1.32 +
    1.33 +#
    1.34 +# Create an object that represents a feature data file.
    1.35 +#
    1.36 +my $fmc = FMCreate->new();
    1.37 +
    1.38 +#
    1.39 +# Load the content of the data file into our FMCreate object.
    1.40 +# Note that this will die if the content does not seem to be a feature set
    1.41 +# file. This can happen if the first four bytes aren't 'feat' or if reading
    1.42 +# the file fails at any point. This will also happen if the file is the wrong
    1.43 +# size.
    1.44 +#
    1.45 +$fmc->LoadUp($datfile) or die "Failed to load up data from '$datfile'\n";
    1.46 +
    1.47 +#
    1.48 +# Get feature flag '0x10000009'
    1.49 +#
    1.50 +my $ffuid = 0x10000009;
    1.51 +my $ff = $fmc->GetFeatureFlagByUID($ffuid);
    1.52 +if(ref($ff) ne "FeatureFlag")
    1.53 +{
    1.54 +	printf "Couldn't get feature flag uid 0x%0x from file $datfile\n";
    1.55 +	die "no feature flag";
    1.56 +}
    1.57 +
    1.58 +#
    1.59 +# Change the feature flag.. Note that the feature flag object '$ff' is a
    1.60 +# reference to the feature flag in '$fmc' - it's still in there, so when
    1.61 +# we modify it here it will affect what '$fmc' will write.
    1.62 +#
    1.63 +$ff->BlackListed(1);
    1.64 +$fmc->WriteToFile($datfile2) or die "Couldn't write feature data file '$datfile2'\n";
    1.65 +
    1.66 +#
    1.67 +# Now add a new feature. The three arguments are UID, status flags (not defined
    1.68 +# here) and user data word.
    1.69 +#
    1.70 +my $newfeat = FeatureFlag->new(0x12345678, undef, 0xabcd);
    1.71 +die "Couldn't create new feature flag object.\n" unless(ref($newfeat));
    1.72 +
    1.73 +#
    1.74 +# Add it to our existing feature data.
    1.75 +#
    1.76 +$fmc->AddFeatureFlag($newfeat) or die "Couldn't add new feature flag..\n";
    1.77 +
    1.78 +#
    1.79 +# Remove the original feature flag.
    1.80 +#
    1.81 +$fmc->RemoveFeatureFlagByUID($ffuid) or die "Couldn't remove feature flag\n";
    1.82 +
    1.83 +$fmc->WriteToFile($datfile3);