mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

00_MQTT2_SERVER.pm: do not send retained topics to deleted dev (Forum #114425)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@23269 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2020-12-01 12:52:03 +00:00
parent 293fe3f9ce
commit 8d9714bc7a
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
fhem/FHEM/00_MQTT2_SERVER.pm
View File

@@ -381,6 +381,7 @@ MQTT2_SERVER_Read($@)
if(!$hash->{answerScheduled}) {
$hash->{answerScheduled} = 1;
InternalTimer($hash->{lastMsgTime}+1, sub(){
return if(!$hash->{FD}); # Closed in the meantime, #114425
delete($hash->{answerScheduled});
my $r = $defs{$sname}{retain};
foreach my $tp (sort { $r->{$a}{ts} <=> $r->{$b}{ts} } keys %{$r}) {
@@ -488,7 +489,7 @@ MQTT2_SERVER_sendto($$$$)
my ($shash, $hash, $topic, $val) = @_;
return if(IsDisabled($hash->{NAME}));
$val = "" if(!defined($val));
my $dump = (AttrVal($shash->{NAME},"verbose",1) >= 5) ? $shash->{NAME} :undef;
my $dump = (AttrVal($shash->{NAME},"verbose",1)>=5) ? $shash->{NAME} :undef;
foreach my $s (keys %{$hash->{subscriptions}}) {
my $re = $s;
$re =~ s,^#$,.*,g;