FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 13:26:02 +00:00
Code Issues Releases Wiki Activity

HttpUtils.pm: dump header on global verbose 5 (Forum #67511)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@13471 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2017-02-20 17:27:22 +00:00
parent c2ee5cb9bc
commit e04cdcbf13
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/HttpUtils.pm
View File

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