--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/buildframework/helium/tools/publish/evalid_multiple.pl	Wed Oct 28 14:39:48 2009 +0000
@@ -0,0 +1,48 @@
+#============================================================================ 
+#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();