From c17c8477989ece9d50e49db6d33aaaa0779ff0cb Mon Sep 17 00:00:00 2001
From: borisneubert <borisneubert@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 4 Oct 2013 09:47:27 +0000
Subject: [PATCH] Added verbose error message if connect fails.

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

diff --git a/fhem/FHEM/HttpUtils.pm b/fhem/FHEM/HttpUtils.pm
index 6facaae0f..54fede1a0 100644
--- a/fhem/FHEM/HttpUtils.pm
+++ b/fhem/FHEM/HttpUtils.pm
@@ -90,6 +90,7 @@ CustomGetFileFromURL($$@)
   }
 
   my $conn;
+  my $errstr= "";
   if($protocol eq "https") {
     eval "use IO::Socket::SSL";
     if($@) {
@@ -100,9 +101,10 @@ CustomGetFileFromURL($$@)
   } else {
     $conn = IO::Socket::INET->new(PeerAddr=>"$host:$port", Timeout=>$timeout);
   }
+  $errstr= $@ if(!$conn);
   if(!$conn) {
     Log3 undef, $loglevel,
-        "CustomGetFileFromURL $displayurl: Can't connect to $protocol://$host:$port\n";
+        "CustomGetFileFromURL $displayurl: Can't connect to $protocol://$host:$port, $errstr"; 
     undef $conn;
     return undef;
   }