From 153e57063dd218e2945e73fb4de99a46345ce03c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 31 Mar 2023 16:04:23 +0000
Subject: [PATCH] HttpUtils.pm: add SSL_alpn_protocols support (Forum #111959)

git-svn-id: https://svn.fhem.de/fhem/trunk@27376 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/HttpUtils.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/fhem/FHEM/HttpUtils.pm b/fhem/FHEM/HttpUtils.pm
index 54bf63cfa..853112058 100644
--- a/fhem/FHEM/HttpUtils.pm
+++ b/fhem/FHEM/HttpUtils.pm
@@ -609,6 +609,17 @@ HttpUtils_Connect2($)
       $par{SSL_verify_mode} = 0
         if(!$hash->{sslargs} || !defined($hash->{sslargs}{SSL_verify_mode}));
 
+      for my $p ("alpn", "npn") { #111959
+        my $n = "SSL_${p}_protocols";
+        next if(!$par{$n});
+        if(IO::Socket::SSL->can("can_${p}")) {
+          my @a = split(",",$par{$n});
+          $par{$n} = \@a;
+        } else {
+          Log 1, "ERROR: the SSL library has no support for $n";
+        }
+      }
+
       return HttpUtils_Connect2NonblockingSSL($hash,\%par)
         if($hash->{callback});