From 07a34d268251758d0b2ea3ac7a61354182a7f26e Mon Sep 17 00:00:00 2001
From: Rob Austein <sra@hactrn.net>
Date: Tue, 22 Aug 2006 22:29:40 +0000
Subject: # on 2006/08/12 03:43:03, sra did: CRLs get a "r" stuck into the
 suffix.

svn path=/scripts/make-hashes.pl; revision=206
---
 scripts/make-hashes.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'scripts')

diff --git a/scripts/make-hashes.pl b/scripts/make-hashes.pl
index 07de9142..c5fb44fa 100644
--- a/scripts/make-hashes.pl
+++ b/scripts/make-hashes.pl
@@ -16,9 +16,11 @@ chomp(@files);
 print("test -d $dir || mkdir $dir\n");
 
 for my $f (@files) {
-    my $prog = ($f =~ /\.cer$/) ? "x509" : "crl";
-    my $h = `$openssl $prog -inform DER -in $f -noout -hash`;
+    my $type = ($f =~ /\.cer$/) ? "x509" : "crl";
+    my $h = `$openssl $type -inform DER -in $f -noout -hash`;
     chomp($h);
+    $h .= ".";
+    $h .= "r" if ($type eq "crl");
     my $n = 0 + $count{$h}++;
-    print("$openssl $prog -inform DER -outform PEM -out $dir/$h.$n -in $f\n");
+    print("$openssl $type -inform DER -outform PEM -out $dir/$h$n -in $f\n");
 }
-- 
cgit v1.2.3