From e04cdcbf13af97a80ca01a1766b758f0481675ea Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 20 Feb 2017 17:27:22 +0000
Subject: [PATCH] HttpUtils.pm: dump header on global verbose 5 (Forum #67511)

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

diff --git a/fhem/FHEM/HttpUtils.pm b/fhem/FHEM/HttpUtils.pm
index a431e5d33..f12b56a84 100644
--- a/fhem/FHEM/HttpUtils.pm
+++ b/fhem/FHEM/HttpUtils.pm
@@ -400,6 +400,8 @@ HttpUtils_Connect2($)
     $hdr .= "Content-Type: application/x-www-form-urlencoded\r\n"
                 if ($hdr !~ "Content-Type:");
   }
+  Log3 $hash, 5, "HttpUtils request header:\n$hdr"
+        if($attr{global}{verbose} >= 5);
   $hdr .= "\r\n";
 
   my $s = $hash->{shutdown};
@@ -665,14 +667,8 @@ HttpUtils_ParseAnswer($)
   # Debug
   Log3 $hash, $hash->{loglevel},
        "HttpUtils $hash->{displayurl}: Got data, length: ". length($ret);
-  if(!length($ret)) {
-    Log3 $hash, $hash->{loglevel}, "HttpUtils $hash->{displayurl}: ".
-         "Zero length data, header follows:";
-    for (@header) {
-      Log3 $hash, $hash->{loglevel}, "  $_";
-    }
-  }
-
+  Log3 $hash, 5, "HttpUtils response header:\n$hash->{httpheader}"
+        if($attr{global}{verbose} >= 5 && $hash->{httpheader});
   return ("", $ret);
 }