diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm index 0e7e8c8d4..5c2010808 100755 --- a/FHEM/10_CUL_HM.pm +++ b/FHEM/10_CUL_HM.pm @@ -244,6 +244,7 @@ CUL_HM_Parse($$) if($cmd eq "8002") { # Ack if($shash->{cmdStack}) { # Send next msg from the stack +Log 1, "PopCmd:" . $shash->{cmdStack}->[0]; CUL_HM_SendCmd($shash, shift @{$shash->{cmdStack}}, 1, 1); delete($shash->{cmdStack}) if(!@{$shash->{cmdStack}}); $shash->{lastStackAck} = 1; @@ -781,8 +782,7 @@ CUL_HM_Pair(@) } - delete($hash->{cmdStack}); - + # delete($hash->{cmdStack}); # Why? Disables 4Dis text commands if($stn ne "remote") { CUL_HM_pushConfig($hash, $id, $src, 0, 0, "0201$idstr"); CUL_HM_SendCmd($hash, shift @{$hash->{cmdStack}}, 1, 1); @@ -846,6 +846,7 @@ CUL_HM_PushCmdStack($$) my ($hash, $cmd) = @_; my @arr = (); $hash->{cmdStack} = \@arr if(!$hash->{cmdStack}); + Log 1, "PushStack: $cmd"; push(@{$hash->{cmdStack}}, $cmd); }