FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 23:06:37 +00:00
Code Issues Releases Wiki Activity

CUL_HM:set trigLast for FHEM commands

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17144 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2018-08-15 12:54:16 +00:00
parent c0f0ea1451
commit 17c8e6d49c
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fhem/FHEM/10_CUL_HM.pm
View File

@ -140,6 +140,7 @@ sub CUL_HM_appFromQ($$);
sub CUL_HM_autoReadReady($);
sub CUL_HM_calcDisWm($$$);
sub CUL_HM_statCnt(@);
sub CUL_HM_trigLastEvent($$$$$);
# ----------------modul globals-----------------------
my $respRemoved; # used to control trigger of stack processing
@ -7066,6 +7067,13 @@ sub CUL_HM_statCntRfresh($) {# update statistic once a day
InternalTimer(gettimeofday()+3600*20,"CUL_HM_statCntRfresh","StatCntRfresh",0);
}
sub CUL_HM_trigLastEvent($$$$$){#set trigLast for central setting commands
my ($dst,$mTp,$p01,$p02,$chn) = @_;
my $name = CUL_HM_id2Name($dst.$chn);
return if (!defined $defs{$name});
CUL_HM_UpdtReadSingle($defs{$name},"trigLast","fhem:".$p01,1);
}
sub CUL_HM_respPendRm($) {#del response related entries in messageing entity
my ($hash) = @_;
@ -7810,14 +7818,15 @@ sub CUL_HM_DumpProtocol($$@) {
my $hmProtocolEvents = int (AttrVal(CUL_HM_id2Name($src), "hmProtocolEvents",
AttrVal(InternalVal($iname,"owner_CCU",$iname), "hmProtocolEvents", 0)));
use warnings;
return if(!$hmProtocolEvents);
my $p01 = substr($p,0,2);
my $p02 = substr($p,0,4);
my $p11 = (length($p) > 2 ? substr($p,2,2) : "");
CUL_HM_trigLastEvent($dst,$mTp,$p01,$p02,$p11) if ($mTp eq "11" && $p01 =~ m/(02|03|80|81)/ && $p11);
return if(!$hmProtocolEvents);
# decode message flags for printing
my $msgFlLong="";
my $msgFlLong = "";
my $msgFlagsHex = hex($msgFlags);
for(my $i = 0; $i < @{$culHmCmdFlags}; $i++) {
$msgFlLong .= ",".${$culHmCmdFlags}[$i] if($msgFlagsHex & (1<<$i));