Commit 63ee3e26 authored by Carsten  Rose's avatar Carsten Rose

Bug in sendeEmail: invalid SSL_version specified at /usr/share/perl5/IO/Socket/SSL.pm line 575.

Patch for sendEmail (see https://unix.stackexchange.com/a/68952).
parent cee00d9c
......@@ -46,7 +46,7 @@ use IO::Socket;
my %conf = (
## General
"programName" => $0, ## The name of this program
"version" => '1.56', ## The version of this program
"version" => '1.56p1', ## The version of this program
"authorName" => 'Brandon Zehm', ## Author's Name
"authorEmail" => 'caspian@dotconf.net', ## Author's Email Address
"timezone" => '+0000', ## We always use +0000 for the time zone
......@@ -1903,7 +1903,7 @@ else {
if ($conf{'tls_server'} == 1 and $conf{'tls_client'} == 1 and $opt{'tls'} =~ /^(yes|auto)$/) {
printmsg("DEBUG => Starting TLS", 2);
if (SMTPchat('STARTTLS')) { quit($conf{'error'}, 1); }
if (! IO::Socket::SSL->start_SSL($SERVER, SSL_version => 'SSLv3 TLSv1')) {
if (! IO::Socket::SSL->start_SSL($SERVER)) {
quit("ERROR => TLS setup failed: " . IO::Socket::SSL::errstr(), 1);
}
printmsg("DEBUG => TLS: Using cipher: ". $SERVER->get_cipher(), 3);
......
--- sendEmail 2017-11-21 21:02:47.202887534 +0100
+++ sendEmail.new 2017-12-13 20:10:20.638913440 +0100
@@ -46,7 +46,7 @@
my %conf = (
## General
"programName" => $0, ## The name of this program
- "version" => '1.56', ## The version of this program
+ "version" => '1.56p1', ## The version of this program
"authorName" => 'Brandon Zehm', ## Author's Name
"authorEmail" => 'caspian@dotconf.net', ## Author's Email Address
"timezone" => '+0000', ## We always use +0000 for the time zone
@@ -1903,7 +1903,7 @@
if ($conf{'tls_server'} == 1 and $conf{'tls_client'} == 1 and $opt{'tls'} =~ /^(yes|auto)$/) {
printmsg("DEBUG => Starting TLS", 2);
if (SMTPchat('STARTTLS')) { quit($conf{'error'}, 1); }
- if (! IO::Socket::SSL->start_SSL($SERVER, SSL_version => 'SSLv3 TLSv1')) {
+ if (! IO::Socket::SSL->start_SSL($SERVER)) {
quit("ERROR => TLS setup failed: " . IO::Socket::SSL::errstr(), 1);
}
printmsg("DEBUG => TLS: Using cipher: ". $SERVER->get_cipher(), 3);
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment