--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bintools/evalid/evalid.pl Mon May 10 19:54:49 2010 +0100
@@ -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);
+ }
+}