# on 2006/08/09 21:04:08, sra did:

$verbose

svn path=/scripts/gen-verify-test.pl; revision=191

1 files 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);