bintools/evalid/evalid.pl
changeset 0 044383f39525
child 676 b5e6747818a9
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bintools/evalid/evalid.pl	Tue Oct 27 16:36:35 2009 +0000
@@ -0,0 +1,323 @@
+#
+# 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;
+
+GetOptions("c", "v", "l=s", "g", "f", "m", "u", "x=s@", "i=s@", "d=s");
+$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;
+		}
+
+	my ($same, $type) = EvalidCompare::CompareFiles($left, $right, $opt_v, $log);
+	if ($same)
+		{
+		identical($left, $right, $type);
+		}
+	else
+		{
+		different($left, $right, $type);
+		}
+}