From 4256f3690d427d4dd74da7d16f25abc2feca02b3 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 23 Jul 2017 07:40:10 +0000
Subject: [PATCH] 98_update.pm: force using HTTPS ist SSL is installed. (Forum
 #74387)

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

diff --git a/FHEM/98_update.pm b/FHEM/98_update.pm
index 1710925fa..f1a878338 100644
--- a/FHEM/98_update.pm
+++ b/FHEM/98_update.pm
@@ -29,6 +29,8 @@ my $upd_needJoin;
 my $upd_nChanged;
 my $upd_running;
 
+eval "require IO::Socket::SSL";  # Forum #74387
+my $upd_hasSSL = $@ ? 0 : 1;
 
 ########################################
 sub
@@ -239,6 +241,7 @@ doUpdate($$$$)
 {
   my ($curr, $max, $src, $arg) = @_;
   my ($basePath, $ctrlFileName);
+  $src =~ s'^http://fhem\.de'https://fhem.de' if($upd_hasSSL);
   if($src !~ m,^(.*)/([^/]*)$,) {
     uLog 1, "Cannot parse $src, probably not a valid http control file";
     return;