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).

extension/qfq/external/sendEmail

@@ -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);

patches/sendEmail.patch

+--- 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);