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