From 755388dd6fd2ceebae2b83f847b6c06479a86b49 Mon Sep 17 00:00:00 2001 From: Rob Austein Date: Tue, 22 Aug 2006 22:28:00 +0000 Subject: # on 2006/08/09 21:04:08, sra did: $verbose svn path=/scripts/gen-verify-test.pl; revision=191 --- scripts/gen-verify-test.pl | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/scripts/gen-verify-test.pl b/scripts/gen-verify-test.pl index fd9a3724..368b2d1c 100644 --- a/scripts/gen-verify-test.pl +++ b/scripts/gen-verify-test.pl @@ -60,6 +60,8 @@ for my $f (@files) { # Generate a test script based on all of the above +my $verbose = 1; + for my $f (@files) { my @parents; for (my $d = $daddy{$f}; $d; $d = $daddy{$d}) { @@ -67,10 +69,14 @@ for my $f (@files) { } next unless (@parents); print("echo ", "=" x 40, "\n", - "echo Checking chain:\n"); - print("echo ' File: $_'\n", - "$openssl x509 -noout -text -certopt no_header,no_signame,no_validity,no_pubkey,no_sigdump,no_version -in $_\n") - foreach (($f, @parents)); + "echo Checking chain:\n") + if ($verbose > 0); + for (($f, @parents)) { + print("echo ' File: $_'\n") + if ($verbose > 0); + print("$openssl x509 -noout -text -certopt no_header,no_signame,no_validity,no_pubkey,no_sigdump,no_version -in $_\n") + if ($verbose > 1); + } print("cat >CAfile.pem"); print(" $_") foreach (@parents); -- cgit v1.2.3