generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Be more verbose when debugging is on

Browse Source 
It's near impossible to figure out what goes wrong with the execution
of sub-commands otherwise.

Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Richard Levitte
2016-02-17 22:04:54 +01:00
parent 02f7114a7f
commit f9c693df45
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
util/TLSProxy/Proxy.pm
View File

@@ -178,9 +178,11 @@ sub start
$pid = fork(); $pid = fork();
if ($pid == 0) { if ($pid == 0) {
open(STDOUT, ">", File::Spec->devnull()) if (!$self->debug) {
or die "Failed to redirect stdout: $!"; open(STDOUT, ">", File::Spec->devnull())
open(STDERR, ">&STDOUT"); or die "Failed to redirect stdout: $!";
open(STDERR, ">&STDOUT");
}
my $execcmd = $self->execute my $execcmd = $self->execute
." s_server -no_comp -rev -engine ossltest -accept " ." s_server -no_comp -rev -engine ossltest -accept "
.($self->server_port) .($self->server_port)
@@ -227,9 +229,11 @@ sub clientstart
if ($self->execute) { if ($self->execute) {
my $pid = fork(); my $pid = fork();
if ($pid == 0) { if ($pid == 0) {
open(STDOUT, ">", File::Spec->devnull()) if (!$self->debug) {
or die "Failed to redirect stdout: $!"; open(STDOUT, ">", File::Spec->devnull())
open(STDERR, ">&STDOUT"); or die "Failed to redirect stdout: $!";
open(STDERR, ">&STDOUT");
}
my $execcmd = "echo test | ".$self->execute my $execcmd = "echo test | ".$self->execute
." s_client -engine ossltest -connect " ." s_client -engine ossltest -connect "
.($self->proxy_addr).":".($self->proxy_port); .($self->proxy_addr).":".($self->proxy_port);