1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/persistentdata/featuremgmt/featuremgr/tools/datfilehelpers/ShowFeatContent.pl	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,49 @@
     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 display 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 +# Find out what file the user is interested in..
    1.28 +# Make sure it's specified and exists.
    1.29 +#
    1.30 +my $datfile = $ARGV[-1];
    1.31 +die "Usage: showfeatcontent.pl <featmanager-data-filename>"
    1.32 +    unless(defined($datfile));
    1.33 +die "Specify an existing file" unless(-f $datfile);
    1.34 +
    1.35 +#
    1.36 +# Create an object that represents a feature data file.
    1.37 +#
    1.38 +my $fmc = FMCreate->new();
    1.39 +
    1.40 +#
    1.41 +# Load the content of the data file into our FMCreate object.
    1.42 +# Note that this will die if the content does not seem to be a feature set
    1.43 +# file. This can happen if the first four bytes aren't 'feat' or if reading
    1.44 +# the file fails at any point. This will also happen if the file is the wrong
    1.45 +# size.
    1.46 +#
    1.47 +$fmc->LoadUp($datfile);
    1.48 +
    1.49 +#
    1.50 +# Display the content.
    1.51 +#
    1.52 +$fmc->ShowALL();