#

# Copyright (c) 2005-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: 

#

#main program starts

my ($srcdir, $dstdir) =@ARGV;

if (@ARGV != 2)

{

 print ("Usage: perl filecompare2.pl <template_dir> <test_result_dir> \n");

 print ("E.g. perl filecompare2.pl d:\template d:\testresult \n");

 print ("the compare result file is located at d:\compareresult.txt \n");

 exit;

}

print "$srcdir \n";

print "$dstdir \n";

open (CompareResultFile, ">d:\\compareresult.txt") || die ("open compareresult.txt failed");

chdir ($srcdir) || die "chdir to $srcdir faield.\n";

my $thisdir ;

opendir ($thisdir, $srcdir);

my @files = readdir($thisdir);

closedir($thisdir);

$count =1;

my @srcfiles;

my @dstfiles;

my $count2=1;

while ($count < @files) 

{

 if ( (!-d @files[$count] )&&  (@files[$count] =~/dt-tef-command-line-/)) # (@files[$count] =~/\.htm/) to select all *.htm files

 {

   @srcfiles[$count2] =$srcdir . "\\" . "@files[$count]";

   print "@srcfiles[$count] \n";

   @dstfiles[$count2] = $dstdir ."\\" . "@files[$count]";

   print "@dstfiles[$count] \n" ;

   $count2++;

 }

  $count++;

}

$count = 1;

while ($count < @srcfiles)

{

	&filecompare(@srcfiles[$count], @dstfiles[$count]);

	$count++;

}

close( CompareResultFile);

# end of the main program

sub filecompare

{

my($srcfile, $dstfile) = @_;

#open (BASELINEFILE, "$srcfile") || die ("Could not open Baseline file $srcfile"); 

#open (TERESULTFILE, "$dstfile") || die ("Could not open Test Result file $dstfile"); 

 if ( ! -e $srcfile)

 {

   print  ("$srcfile does not exist \n");

   print CompareResultFile ("$srcfile does not exist \n");

   return;

 }

 elsif ( !-e $dstfile)

 {

  print ("$dstfile does not exist \n");

    print CompareResultFile ("$dstfile does not exist \n");

  return;

 } 

 if (open (BASELINEFILE, "$srcfile") && open (TERESULTFILE, "$dstfile") )

 {

	my @baselinearray = <BASELINEFILE>;

	my @testresultarray = <TERESULTFILE>;

	my $MisMatchNum = 0;

	close (BASELINEFILE);

	close(TERESULTFILE);

	my $linecount = 1; 

	my $BaselineRowContent;

	my $BaselineRowContentChop;

	my $TestresultRowContent;

	my $TestresultRowContentChop;

	my $choplength = 25; # the first 26 characters contains time information and thread no which change every run.

    my $flag = 0;        

	while ($linecount <= @baselinearray) 

	  {

		  $BaselineRowContent =  lc(@baselinearray[$linecount-1]);

		  $TestresultRowContent = lc(@testresultarray[$linecount-1]);

		  if ($flag) # onlly the line after the "TestExecute Started " are to be compared, before that line are report title

		  {

			  $BaselineRowContentChop = $BaselineRowContent;

			  $TestresultRowContentChop = $TestresultRowContent;

			  substr ($BaselineRowContentChop,0,$choplength)="";

			  substr ($TestresultRowContentChop,0,$choplength)="";

			   if ($BaselineRowContentChop ne $TestresultRowContentChop)

			   { 

					print ("$srcfile line $linecount does not match \n");

					print CompareResultFile ("$srcfile line $linecount does not match \n");

					$MisMatchNum++;

			   }

			   else #if two lines match

			   {

			    # comment the below because they print too much information, they can be uncommented when debugging

				#print ("$srcfile line $linecount match \n");

				#print CompareResultFile (" $srcfile line $linecount match \n");

				#print CompareResultFile ("  $srcfile:    line $linecount: $BaselineRowContentChop \n");

				#print CompareResultFile ("  $dstfile:    line $linecount: $TestresultRowContentChop \n");

			   }

			}

			else

			{

			  if ( $BaselineRowContent =~/TestExecute Started/i)  # set flag if it meets the line containing "TestExecute Started " , the lines after that line are to be compared, before that line are report title

			  {

			   $flag++;

			  # print "the flag is: $flag \n";

			  }

			}

		  $linecount++;

	  }

	  if ($MisMatchNum == 0)

	  {

	    print ("$srcfile and $dstfile match \n");

		print CompareResultFile (" $srcfile and $dstfile match \n");

	  }

  }

  else

   {

     print ("$srcfile or $dstfile can not open \n");

	 print CompareResultFile ("$srcfile or $dstfile can not open \n");

	 close (BASELINEFILE);

	 close(TERESULTFILE);

   }

}