#!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();