#============================================================================ 

#Name        : evalid_multiple.pl 

#Part of     : Helium 

#Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).

#All rights reserved.

#This component and the accompanying materials are made available

#under the terms of the License "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: 

#============================================================================

#BEGIN {

#	push (@INC, "\\epoc32\\tools");

#}

use strict;

use EvalidCompare;

use Getopt::Long;

my $inputfile;

GetOptions( "f=s"=>\$inputfile) or die "/!\\ Error parsing command line.";

my $time1 = time();

open(IN,"<$inputfile") or die "/!\\ Can't open $inputfile";

foreach my $file (<IN>)

{

	chomp($file);

	if (-f $file)

	{

		my ($MD5, $type) = &EvalidCompare::GenerateSignature($file);

		print $file." TYPE=".$type." MD5=".$MD5."\n";

	}

	else

	{

		print $file." not found\n";

	}

}

close IN;

my $time2 = time();