From: Richard Levitte <levitte@openssl.org>
Date: Fri, 28 Apr 2017 07:20:05 +0000 (+0200)
Subject: TLSProxy: When in debug mode, show the exact subprocess commands
X-Git-Tag: OpenSSL_1_1_0f~39
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=af50d454f9914a7c5864832087ea73caff1b4aae;p=oweals%2Fopenssl.git

TLSProxy: When in debug mode, show the exact subprocess commands

When you want to debug a test that goes wrong, it's useful to know
exactly what subprocess commands are run.

Reviewed-by: Andy Polyakov <appro@openssl.org>
Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/3342)
(cherry picked from commit 46d5e2b42e00ec392bf3326743519bc25136db09)
---

diff --git a/util/TLSProxy/Proxy.pm b/util/TLSProxy/Proxy.pm
index d025075b5a..bdb2cd8b5c 100644
--- a/util/TLSProxy/Proxy.pm
+++ b/util/TLSProxy/Proxy.pm
@@ -159,6 +159,9 @@ sub start
         if ($self->serverflags ne "") {
             $execcmd .= " ".$self->serverflags;
         }
+        if ($self->debug) {
+            print STDERR "Server command: $execcmd\n";
+        }
         exec($execcmd);
     }
     $self->serverpid($pid);
@@ -217,6 +220,9 @@ sub clientstart
             if ($self->clientflags ne "") {
                 $execcmd .= " ".$self->clientflags;
             }
+            if ($self->debug) {
+                print STDERR "Client command: $execcmd\n";
+            }
             exec($execcmd);
         }
     }