From d339461e47f150ab9acc413b95839c69acbd6552 Mon Sep 17 00:00:00 2001
From: cvs2svn <admin@example.com>
Date: Thu, 5 Jan 2012 22:59:12 +0000
Subject: This commit was manufactured by cvs2git to create tag
 'openssl_1_0_0_f'.

---
 src/lib/libcrypto/util/checkhash.pl | 222 ------------------------------------
 1 file changed, 222 deletions(-)
 delete mode 100644 src/lib/libcrypto/util/checkhash.pl

(limited to 'src/lib/libcrypto/util/checkhash.pl')

diff --git a/src/lib/libcrypto/util/checkhash.pl b/src/lib/libcrypto/util/checkhash.pl
deleted file mode 100644
index c61fa72178..0000000000
--- a/src/lib/libcrypto/util/checkhash.pl
+++ /dev/null
@@ -1,222 +0,0 @@
-#!/usr/bin/env perl -w
-
-my $package = caller;
-
-if (!(defined $package))
-	{
-	my $retval = check_hashes(@ARGV);
-	exit $retval;
-	}
-
-1;
-
-sub check_hashes
-	{
-
-	my @args = @_;
-
-	my $change_dir = "";
-	my $check_program = "sha/fips_standalone_sha1";
-
-	my $verbose = 0;
-	my $badfiles = 0;
-	my $rebuild = 0;
-	my $force_rewrite = 0;
-	my $hash_file = "fipshashes.c";
-	my $recurse = 0;
-
-	my @fingerprint_files;
-
-	while (@args)
-		{
-		my $arg = $args[0];
-		if ($arg eq "-chdir")
-			{
-			shift @args;
-			$change_dir = shift @args;
-			}
-		elsif ($arg eq "-rebuild")
-			{
-			shift @args;
-			$rebuild = 1;
-			}
-		elsif ($arg eq "-verbose")
-			{
-			shift @args;
-			$verbose = 1;
-			}
-		elsif ($arg eq "-force-rewrite")
-			{
-			shift @args;
-			$force_rewrite = 1;
-			}
-		elsif ($arg eq "-hash_file")
-			{
-			shift @args;
-			$hash_file = shift @args;
-			}
-		elsif ($arg eq "-recurse")
-			{
-			shift @args;
-			$recurse = 1;
-			}
-		elsif ($arg eq "-program_path")
-			{
-			shift @args;
-			$check_program = shift @args;
-			}
-		else
-			{
-			print STDERR "Unknown Option $arg";
-			return 1;
-			}
-
-		}
-
-	chdir $change_dir if $change_dir ne "";
-
-	if ($recurse)
-		{
-		@fingerprint_files = ("fingerprint.sha1",
-					<*/fingerprint.sha1>);
-		}
-	else
-		{
-		push @fingerprint_files, $hash_file;
-		}
-
-	foreach $fp (@fingerprint_files)
-		{
-		if (!open(IN, "$fp"))
-			{
-			print STDERR "Can't open file $fp";
-			return 1;
-			}
-		print STDERR "Opening Fingerprint file $fp\n" if $verbose;
-		my $dir = $fp;
-		$dir =~ s/[^\/]*$//;
-		while (<IN>)
-			{
-			chomp;
-			if (!(($file, $hash) = /^\"HMAC-SHA1\((.*)\)\s*=\s*(\w*)\",$/))
-				{
-				/^\"/ || next;
-				print STDERR "FATAL: Invalid syntax in file $fp\n";
-				print STDERR "Line:\n$_\n";
-				fatal_error();
-				return 1;
-				}
-			if (!$rebuild && length($hash) != 40)
-				{
-				print STDERR "FATAL: Invalid hash length in $fp for file $file\n";
-				fatal_error();
-				return 1;
-				}
-			push @hashed_files, "$dir$file";
-			if (exists $hashes{"$dir$file"})
-				{
-				print STDERR "FATAL: Duplicate Hash file $dir$file\n";
-				fatal_error();
-				return 1;
-				}
-			if (! -r "$dir$file")
-				{
-				print STDERR "FATAL: Can't access $dir$file\n";
-				fatal_error();
-				return 1;
-				}
-			$hashes{"$dir$file"} = $hash;
-			}
-		close IN;
-		}
-
-	@checked_hashes = `$check_program @hashed_files`;
-
-	if ($? != 0)
-		{
-		print STDERR "Error running hash program $check_program\n";
-		fatal_error();
-		return 1;
-		}
-
-	if (@checked_hashes != @hashed_files)
-		{
-		print STDERR "FATAL: hash count incorrect\n";
-		fatal_error();
-		return 1;
-		}
-
-	foreach (@checked_hashes)
-		{
-		chomp;
-		if (!(($file, $hash) = /^HMAC-SHA1\((.*)\)\s*=\s*(\w*)$/))
-			{
-			print STDERR "FATAL: Invalid syntax in file $fp\n";
-			print STDERR "Line:\n$_\n";
-			fatal_error();
-			return 1;
-			}
-		if (length($hash) != 40)
-			{
-			print STDERR "FATAL: Invalid hash length for file $file\n";
-			fatal_error();
-			return 1;
-			}
-		if ($hash ne $hashes{$file})
-			{
-			if ($rebuild)
-				{
-				print STDERR "Updating hash on file $file\n";
-				$hashes{$file} = $hash;
-				}
-			else
-				{
-				print STDERR "Hash check failed for file $file\n";
-				}
-			$badfiles++;
-			}
-		elsif ($verbose)
-			{ print "Hash Check OK for $file\n";}
-		}
-		
-
-	if ($badfiles && !$rebuild)
-		{
-		print STDERR "FATAL: hash mismatch on $badfiles files\n";
-		fatal_error();
-		return 1;
-		}
-
-	if ($badfiles || $force_rewrite)
-		{
-		print "Updating Hash file $hash_file\n";
-		if (!open(OUT, ">$hash_file"))
-			{
-			print STDERR "Error rewriting $hash_file";
-			return 1;
-			}
-		print OUT "const char * const FIPS_source_hashes[] = {\n";
-		foreach (@hashed_files)
-			{
-			print OUT "\"HMAC-SHA1($_)= $hashes{$_}\",\n";
-			}
-		print OUT "};\n";
-		close OUT;
-		}
-
-	if (!$badfiles)
-		{
-		print "FIPS hash check successful\n";
-		}
-
-	return 0;
-
-	}
-
-
-sub fatal_error
-	{
-	print STDERR "*** Your source code does not match the FIPS validated source ***\n";
-	}
-
-
-- 
cgit v1.2.3-55-g6feb