From f16c543527adb3efd31446f2bcba48bca6e16f38 Mon Sep 17 00:00:00 2001 From: Robert Nelson Date: Thu, 4 Jun 2015 17:04:08 -0700 Subject: [PATCH 1/2] Default changed in current versions to verify --- pandora_agents/unix/tentacle_client | 1 + 1 file changed, 1 insertion(+) diff --git a/pandora_agents/unix/tentacle_client b/pandora_agents/unix/tentacle_client index d798fd95af..127c3f295f 100755 --- a/pandora_agents/unix/tentacle_client +++ b/pandora_agents/unix/tentacle_client @@ -407,6 +407,7 @@ sub start_ssl { if ($t_ssl_cert eq ''){ IO::Socket::SSL->start_SSL ( $t_socket, + SSL_verify_mode => '0x00', ); } elsif ($t_ssl_ca eq '') { From e130b0f5f7d99c7a29eb6880fb4ccb0c83213836 Mon Sep 17 00:00:00 2001 From: Robert Nelson Date: Fri, 5 Jun 2015 15:21:57 -0700 Subject: [PATCH 2/2] Print IO::Socket::SSL fatal errors during SSL setup --- pandora_server/bin/tentacle_server | 3 +++ 1 file changed, 3 insertions(+) diff --git a/pandora_server/bin/tentacle_server b/pandora_server/bin/tentacle_server index b7cd6c0961..3f044b4db4 100755 --- a/pandora_server/bin/tentacle_server +++ b/pandora_server/bin/tentacle_server @@ -736,6 +736,9 @@ sub accept_connections { sub serve_client() { eval { + local $SIG{__DIE__} = sub { + print STDERR $_[0]; + }; # Add client socket to select queue $t_select = IO::Select->new (); $t_select->add ($t_client_socket);