#!perl -w

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

 # This simple script shows how to display the content of a feature manager

 # data file.

 # 

 #

 use strict;

 use fmcreate;

 #

 # Find out what file the user is interested in..

 # Make sure it's specified and exists.

 #

 my $datfile = $ARGV[-1];

 die "Usage: showfeatcontent.pl <featmanager-data-filename>"

     unless(defined($datfile));

 die "Specify an existing file" unless(-f $datfile);

 #

 # Create an object that represents a feature data file.

 #

 my $fmc = FMCreate->new();

 #

 # Load the content of the data file into our FMCreate object.

 # Note that this will die if the content does not seem to be a feature set

 # file. This can happen if the first four bytes aren't 'feat' or if reading

 # the file fails at any point. This will also happen if the file is the wrong

 # size.

 #

 $fmc->LoadUp($datfile);

 #

 # Display the content.

 #

 $fmc->ShowALL();