#

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

# Validate releasables

# See below for usage

#

use Getopt::Long;

use Cwd;

use FindBin;

use File::Path;

use lib "$FindBin::Bin";

use EvalidMD5 0.01;

use EvalidCompare;

my $passed=0;

my $failed=0;

$opt_v = $opt_v; # To keep -w quiet.

$opt_g = $opt_g; # To keep -w quiet.

$opt_f = $opt_f; # To keep -w quiet.

$opt_m = $opt_m; # To keep -w quiet.

$opt_u = $opt_u; # To keep -w quiet.

$opt_d = $opt_d; # To keep -w quiet.

unless ((@ARGV > 1) && (@ARGV < 4))

	{

#........1.........2.........3.........4.........5.........6.........7.....

	print <<USAGE_EOF;

Usage:

  evalid [opts]    file1    file2       -- compare two files

  evalid [opts]    dir1     dir2        -- recursively compare two trees

MD5 Usage: 

  evalid [opts] -g dir1     file1       -- recursively generate MD5 checksums

  evalid [opts] -f listfile dir1  file1 -- create MD5 checksums of listed files

  evalid [opts] -m file1    file2       -- compare two MD5 datafiles

The recursive form will take each file in the tree rooted at dir1, 

determine its type, and using the appropriate comparison attempt to

compare it with the corresponding file in the tree rooted at dir2.

  evalid file1 dir2   =>  evalid file1      dir2\\file1

  evalid dir1  file2  =>  evalid dir1\\file1 file2

The opts parameter controls where the output goes:

	-v            -- verbose information about failed comparisons

	-c            -- print results to standard output

	-l <logfile>  -- append results to <logfile>

The default is equivalent to "-l evalid.lis"

MD5 Options in addition to standard options:

MD5 Generation options

  -g            -- generate MD5 of the dir1 and write to file1

  -f            -- generate MD5 of the files listed files and write to file1

                   The listfile must contain a list of files, one per line.

                   They should be specified relative to dir1 but should not

                   start in a directory seperator (\\)

Sub options for -g and -f

  -x            -- exclude a reqular expression from the list of files

  -i            -- include a regular expression in to the list of files

  -d dump_dir   -- generate the output used in the processing of dir1 content

                   into files of the same name, within the same directory

                   structure, under dump_dir.  This option permits the manual

                   examination of the data EVALID uses for its comparison work. 

MD5 Comparison option

  -m            -- compare the MD5's of the file1 against to file2

  -u            -- alternate output formats for comparison

                   suitable for upgrading the directory defined by file1

                   to have the same contents as the directory defined by file2

Note:  The inclusion takes precedence over the exclusion.

Note:  Standard option (-v) has no effect on MD5 operations.

Note:  Standard option (-l) has no effect on the -u option.

USAGE_EOF

	exit 1;

	}

# Generate checksum option

if ($opt_g)

{

  # Check $ARGV[0] is a directory

  die "$ARGV[0] is not a directory" unless (-d $ARGV[0]);

  # Check $ARGV[1] does not exist

  die "$ARGV[1] already exisits" if (-e $ARGV[1]);

  &EvalidMD5::MD5Generate($ARGV[0], $ARGV[1], \@opt_x, \@opt_i, undef, $opt_d);

  exit (0);

}

if ($opt_f)

{

  # Check $ARGV[0] is a directory

  die "$ARGV[0] does not exist" unless (-e $ARGV[0]);

  # Check $ARGV[1] is a directory

  die "$ARGV[1] is not a directory" unless (-d $ARGV[1]);

  # Check $ARGV[2] does not exist

  die "$ARGV[2] already exists" if (-e $ARGV[2]);

  &EvalidMD5::MD5Generate($ARGV[1], $ARGV[2], \@opt_x, \@opt_i, $ARGV[0], $opt_d);

  exit (0);

}

# Compare checksum file option (alternate format for upgrades)

if ($opt_u)

{

  my ($iCommon, $iLeftHeaders, $iRightHeaders, $iDiff);

  # Check $ARGV[0] file exists

  die "$ARGV[0] is not a file" unless (-f $ARGV[0]);

  # Check $ARGV[1] does not exist

  die "$ARGV[1] is not a file" unless (-f $ARGV[1]);

  ($iCommon, $iLeftHeaders, $iRightHeaders, $iDiff) = &EvalidMD5::MD5Compare($ARGV[0], $ARGV[1]);

  $failed = &EvalidMD5::MD5CompareZipDel($iCommon, $iDiff, $ARGV[0], $ARGV[1]);

  exit ($failed);

}

# Redirect output

if ($opt_c)

	{

	$log = \*STDOUT;

	}

else

	{

	if (!$opt_l)

		{

		$opt_l = "evalid.lis";

		}

	open LOG, ">>$opt_l" or die "Cannot open logfile $opt_l\n";

	$log = \*LOG;

	}

# Compare checksum file option

if ($opt_m)

{

  my ($iCommon, $iLeftHeaders, $iRightHeaders, $iDiff);

  # Check $ARGV[0] file exists

  die "$ARGV[0] is not a file" unless (-f $ARGV[0]);

  # Check $ARGV[1] does not exist

  die "$ARGV[1] is not a file" unless (-f $ARGV[1]);

  ($iCommon, $iLeftHeaders, $iRightHeaders, $iDiff) = &EvalidMD5::MD5Compare($ARGV[0], $ARGV[1]);

  $failed = &EvalidMD5::MD5ComparePrint($iCommon, $iLeftHeaders, $iRightHeaders, $iDiff, $log);

  exit ($failed);

}

# Make the comparison(s) Old Style

compare($ARGV[0], $ARGV[1]);

# Summarise the results

my $total=$passed+$failed;

if ($total > 1)

	{

	print $log "\nResults of evalid  $ARGV[0]  $ARGV[1]\n";

	}

if (@missing)

	{

	if ($total>1)

		{

		printf $log "\n%d missing files\n\n", scalar @missing;

		}

	map {

		print $log "MISSING: $_\n";

		} @missing;

	}

if (@failures)

	{

	if ($total>1)

		{

		printf $log "\n%d failed comparisons\n\n", scalar @failures;

		}

	map {

		my ($left, $right, $type) = @{$_};

		print $log "FAILED: $left\tand $right  ($type)\n";

		} @failures;

	}

if ($total>1)

	{

	my ($sec, $min, $hour, $mday, $mon, $year) = localtime(time);

	printf $log "\n----------------\n%02d:%02d %02d/%02d/%04d\n", $hour, $min, $mday, $mon+1, $year+1900;

	print $log "evalid  $ARGV[0]  $ARGV[1]\n";

	if ($failed==0)

		{

		print $log "Passed all $total comparisons\n";

		}

	else

		{

		print $log "Failed $failed of $total comparisons\n";

		}

	print $log "----------------\n\n";

	}

exit($failed==0);

#---------------------------------

sub identical

	{

	my ($left, $right, $type)=@_;

	print $log "OK: $left\tand $right  ($type)\n";

	$passed+=1;

	}

sub different

	{

	my ($left, $right, $type)=@_;

	push @failures, [$left, $right, $type];

	$failed+=1;

	}

sub warning

	{

	my ($message)=@_;

	print $log "WARNING: $message\n";

	if (!$opt_c)

		{

		print "WARNING: $message\n";

		}

	# not a test failure as such

	}

sub problem

	{

	my ($message)=@_;

	print $log "PROBLEM: $message\n";

	$failed+=1;

	}

sub missing

	{

	my ($left) = @_;

	push @missing, $left;

	$failed+=1;

	}

sub compare

	{

	my ($left, $right, $recursing) = @_;

	if (-d $left && -d $right)

		{

		# Read all of the directory entries except . and ..

		# in to a local list.

		opendir LEFTDIR, $left or print "Cannot read directory $left\n" and return;

		my @list = grep !/^\.\.?$/, readdir LEFTDIR;

		closedir LEFTDIR;

		# recurse

		map { 

			compare($left."\\".$_, $right."\\".$_, 1);

			} @list;

		return;

		}

	if (-d $left)

		{

		if ($recursing)

			{

			if (-e $right)

				{

				problem("File $right should be a directory");

				}

			else

				{

				problem("Directory $right does not exist");

				}

			return;

			}

		compare($left."\\".$right,$right);

		return;

		}

	if (-d $right)

		{

		if ($recursing)

			{

			problem("Directory $right should be a file");

			return;

			}

		compare($left,$right."\\".$left);

		return;

		}

	# comparing files

	if (-e $left && !-e $right)

		{

		missing($right);

		return;

		}

	if (!-e $left && -e $right)

		{

		problem("File $left does not exist");

		return;

		}

	if ($same)

		{

		identical($left, $right, $type);

		}

	else

		{

		different($left, $right, $type);

		}

}