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