1 #============================================================================ 

     2 #Name        : evalid_multiple.pl 

     3 #Part of     : Helium 

     4 

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

     6 #All rights reserved.

     7 #This component and the accompanying materials are made available

     8 #under the terms of the License "Eclipse Public License v1.0"

     9 #which accompanies this distribution, and is available

    10 #at the URL "http://www.eclipse.org/legal/epl-v10.html".

    11 #

    12 #Initial Contributors:

    13 #Nokia Corporation - initial contribution.

    14 #

    15 #Contributors:

    16 #

    17 #Description: 

    18 #============================================================================

    19 

    20 #BEGIN {

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

    22 #}

    23 

    24 use strict;

    25 use EvalidCompare;

    26 use Getopt::Long;

    27 

    28 my $inputfile;

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

    30 

    31 my $time1 = time();

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

    33 foreach my $file (<IN>)

    34 {

    35 	chomp($file);

    36 	if (-f $file)

    37 	{

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

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

    40 	}

    41 	else

    42 	{

    43 		print $file." not found\n";

    44 	}

    45 }

    46 close IN;

    47 

    48 my $time2 = time();