sl@0: #!perl -w
sl@0: # Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description:
sl@0: # This simple script shows how to modify the content of a feature manager
sl@0: # data file.
sl@0: # 
sl@0: #
sl@0: 
sl@0: use strict;
sl@0: use FMCreate;
sl@0: 
sl@0: #
sl@0: # Hardwire the datafile - this is only an example.
sl@0: # 
sl@0: my $datfile = "features.dat";
sl@0: my $datfile2 = "features2.dat";
sl@0: my $datfile3 = "features3.dat";
sl@0: 
sl@0: #
sl@0: # Create an object that represents a feature data file.
sl@0: #
sl@0: my $fmc = FMCreate->new();
sl@0: 
sl@0: #
sl@0: # Load the content of the data file into our FMCreate object.
sl@0: # Note that this will die if the content does not seem to be a feature set
sl@0: # file. This can happen if the first four bytes aren't 'feat' or if reading
sl@0: # the file fails at any point. This will also happen if the file is the wrong
sl@0: # size.
sl@0: #
sl@0: $fmc->LoadUp($datfile) or die "Failed to load up data from '$datfile'\n";
sl@0: 
sl@0: #
sl@0: # Get feature flag '0x10000009'
sl@0: #
sl@0: my $ffuid = 0x10000009;
sl@0: my $ff = $fmc->GetFeatureFlagByUID($ffuid);
sl@0: if(ref($ff) ne "FeatureFlag")
sl@0: {
sl@0: 	printf "Couldn't get feature flag uid 0x%0x from file $datfile\n";
sl@0: 	die "no feature flag";
sl@0: }
sl@0: 
sl@0: #
sl@0: # Change the feature flag.. Note that the feature flag object '$ff' is a
sl@0: # reference to the feature flag in '$fmc' - it's still in there, so when
sl@0: # we modify it here it will affect what '$fmc' will write.
sl@0: #
sl@0: $ff->BlackListed(1);
sl@0: $fmc->WriteToFile($datfile2) or die "Couldn't write feature data file '$datfile2'\n";
sl@0: 
sl@0: #
sl@0: # Now add a new feature. The three arguments are UID, status flags (not defined
sl@0: # here) and user data word.
sl@0: #
sl@0: my $newfeat = FeatureFlag->new(0x12345678, undef, 0xabcd);
sl@0: die "Couldn't create new feature flag object.\n" unless(ref($newfeat));
sl@0: 
sl@0: #
sl@0: # Add it to our existing feature data.
sl@0: #
sl@0: $fmc->AddFeatureFlag($newfeat) or die "Couldn't add new feature flag..\n";
sl@0: 
sl@0: #
sl@0: # Remove the original feature flag.
sl@0: #
sl@0: $fmc->RemoveFeatureFlagByUID($ffuid) or die "Couldn't remove feature flag\n";
sl@0: 
sl@0: $fmc->WriteToFile($datfile3);