FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

79_BDKM.pm: fixed perl warning on communication error

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12754 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
arnoaugustin 2016-12-12 14:39:24 +00:00
parent 0caca986f1
commit 6f5b1014a6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/FHEM/79_BDKM.pm
View File

@ -446,9 +446,6 @@ sub BDKM_JobQueueNextIdHttpDone($)
my $name = $hash ->{NAME}; my $name = $hash ->{NAME};
my $json; my $json;
my $hth= $param->{httpheader};
$hth =~ s/[\r\n]//g;
Log3 $name, 5, "$name HTTP done @{$hash->{JOBQUEUE}}[0],$hth";
if($err) { if($err) {
readingsSingleUpdate($hash, "state", readingsSingleUpdate($hash, "state",
"reading ids ERROR - retrying every 60s", 1); "reading ids ERROR - retrying every 60s", 1);
@ -457,6 +454,9 @@ sub BDKM_JobQueueNextIdHttpDone($)
BDKM_Timer($hash,60,"BDKM_JobQueueNextId"); BDKM_Timer($hash,60,"BDKM_JobQueueNextId");
return; return;
} }
my $hth= $param->{httpheader};
$hth =~ s/[\r\n]//g;
Log3 $name, 5, "$name HTTP done @{$hash->{JOBQUEUE}}[0],$hth";
# did this type, remove from job queue: # did this type, remove from job queue:
my $id = shift(@{$hash->{JOBQUEUE}}); my $id = shift(@{$hash->{JOBQUEUE}});
@ -1101,6 +1101,9 @@ sub BDKM_MapSwitchPrograms
# perl ./contrib/commandref_join.pl # perl ./contrib/commandref_join.pl
=pod =pod
=item device
=item summary support for Buderus KM-Gateways
=item summary_DE Unterstützung für Buderus KM-Gateways
=begin html =begin html
<a name="BDKM"></a> <a name="BDKM"></a>