Merge branch 'ent-5607-10405-9779-10123-problema-con-el-envio-de-correos-mediante-la-configuracion-en-consola' into 'develop'

Suppress error messages from IO::Socket::SSL->start_SSL.

See merge request artica/pandorafms!3394
This commit is contained in:
Daniel Rodriguez 2020-08-03 09:01:10 +02:00
commit 830b203f66
1 changed files with 5 additions and 2 deletions

View File

@ -434,8 +434,11 @@ sub sendmail {
socket_write("STARTTLS$CRLF") || return fail("send STARTTLS error");
socket_read()
|| return fail('STARTTLS error');
IO::Socket::SSL->start_SSL($S, SSL_hostname => $server, SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE())
|| return fail("start_SSL failed");
{
local $SIG{__DIE__};
IO::Socket::SSL->start_SSL($S, SSL_hostname => $server, SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE())
|| return fail("start_SSL failed");
};
# The client SHOULD send an EHLO command as the
# first command after a successful TLS negotiation.