From b46953956496b5d389a5e30795d2cba3de950e42 Mon Sep 17 00:00:00 2001 From: rudolfkoenig Date: Sat, 22 Aug 2015 06:33:07 +0000 Subject: [PATCH] HttpUtils: sslargs patch from Claudiu (Forum #40251) git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@9105 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/HttpUtils.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/HttpUtils.pm b/fhem/FHEM/HttpUtils.pm index a86109e43..2076c1367 100644 --- a/fhem/FHEM/HttpUtils.pm +++ b/fhem/FHEM/HttpUtils.pm @@ -119,6 +119,7 @@ HttpUtils_Connect($) $hash->{loglevel} = 4 if(!$hash->{loglevel}); $hash->{redirects} = 0 if(!$hash->{redirects}); $hash->{displayurl} = $hash->{hideurl} ? "" : $hash->{url}; + $hash->{sslargs} = {} if(!defined($hash->{sslargs})); Log3 $hash, $hash->{loglevel}, "HttpUtils url=$hash->{displayurl}"; @@ -216,7 +217,8 @@ HttpUtils_Connect2($) AttrVal("global", "sslVersion", "SSLv23:!SSLv3:!SSLv2")); IO::Socket::SSL->start_SSL($hash->{conn}, { Timeout => $hash->{timeout}, - SSL_version => $sslVersion + SSL_version => $sslVersion, + %{$hash->{sslargs}} }) || undef $hash->{conn}; $hash->{hu_sslAdded} = 1 if($hash->{keepalive}); } @@ -392,7 +394,7 @@ HttpUtils_ParseAnswer($$) # optional(default): # hideurl(0),timeout(4),data(""),loglevel(4),header(""), # noshutdown(1),shutdown(0),httpversion("1.0"),ignoreredirects(0) -# method($data ? "POST" : "GET") +# method($data ? "POST" : "GET"),keepalive(0),sslargs({}) # Example: # HttpUtils_NonblockingGet({ # url=>"http://192.168.178.112:8888/fhem",