From dc19d55b6e4b017cfca669299d9a817397306d03 Mon Sep 17 00:00:00 2001 From: martinp876 Date: Mon, 23 Sep 2013 20:13:04 +0000 Subject: [PATCH] postEvent addition git-svn-id: https://svn.fhem.de/fhem/trunk@3951 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_CUL_HM.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm index 8a0d9934d..0aee88931 100755 --- a/fhem/FHEM/10_CUL_HM.pm +++ b/fhem/FHEM/10_CUL_HM.pm @@ -2968,10 +2968,12 @@ sub CUL_HM_Set($@) { @peerList = CUL_HM_noDup(@peerList); push @peerList,'00000000' if (!@peerList);#send to broadcast if no peer foreach my $peer (sort @peerList){ - my $peerFlag = $peer eq '00000000'?'A4': - CUL_HM_getFlag(CUL_HM_id2Hash($peer)); + my $pHash = CUL_HM_id2Hash($peer); + my $peerFlag = $peer eq '00000000'?'A4':CUL_HM_getFlag($pHash); $peerFlag =~ s/0/4/;# either 'A4' or 'B4' - CUL_HM_PushCmdStack($hash, sprintf("++%s41%s%s%02X%02X%02X" + CUL_HM_SndCmd($hash, "++B412$dst".substr($peer,0,6_)) + if (CUL_HM_getRxType($pHash) & 0x80); + CUL_HM_SndCmd($hash, sprintf("++%s41%s%s%02X%02X%02X" ,$peerFlag,$dst,$peer ,$chn ,$pressCnt