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

Homematic Schliesser-Kontakt Status Update wegen Sabotage

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1452 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
oskarfessel 2012-04-14 18:20:21 +00:00
parent b25401f03f
commit 21a9820d2f
2 changed files with 22 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
fhem/FHEM/10_CUL_HM.pm
View File

@ -667,41 +667,33 @@ CUL_HM_Parse($$)
my $lst = defined($1) ? $1 : "00";
my $chn = "01";
if($p =~ m/^0601000E$/) {
if($p =~ m/^0601..00$/) {
push @event, "alive:yes";
} elsif($p =~ m/^0601..00$/) {
push @event, "cover:closed";
push @event, "alive:yes";
}
# Multi-channel device: Switch to the shadow source hash
# for the HM-SCI-3-FM
$chn = $1 if($p =~ m/^(..)(..)/);
if($chn && $chn ne "01" && $chn ne "00") {
my $sshash = $modules{CUL_HM}{defptr}{"$src$chn"};
$shash = $sshash if($sshash);
$name = $shash->{NAME};
}
} elsif($p =~ m/^0601..0E$/) {
push @event, "cover:open";
push @event, "state:sabotage";
my %txt;
%txt = ("C8"=>"open", "64"=>"tilted", "00"=>"closed");
%txt = ("C8"=>"wet", "64"=>"damp", "00"=>"dry") # by peterp
if($model eq "HM-SEC-WDS");
if($txt{$lst}) {
push @event, "state:$txt{$lst}$target";
} else {
$lst = "00"; # for the ack
}
# Multi-channel device: Switch to the shadow source hash
# for the HM-SCI-3-FM
$chn = $1 if($p =~ m/^(..)(..)/);
if($chn && $chn ne "01" && $chn ne "00") {
my $sshash = $modules{CUL_HM}{defptr}{"$src$chn"};
$shash = $sshash if($sshash);
$name = $shash->{NAME};
}
my %txt;
%txt = ("C8"=>"open", "64"=>"tilted", "00"=>"closed");
%txt = ("C8"=>"wet", "64"=>"damp", "00"=>"dry") # by peterp
if($model eq "HM-SEC-WDS");
if($txt{$lst}) {
push @event, "state:$txt{$lst}$target";
} else {
$lst = "00"; # for the ack
}
if($p =~ m/^0601..0E$/) {
push @event, "state:sabotage";
}
CUL_HM_SendCmd($shash, "++8002$id$src${chn}01${lst}00",1,0) # Send Ack

3
fhem/docs/commandref.html
View File

@ -3105,8 +3105,7 @@ A line ending with \ will be concatenated with the next one, so long lines
alive<br>
test $t<br>
<li>threeStateSensor (all)<br>
cover closed<br>
cover open<br>
sabotage<br>
alive<br>
<li>threeStateSensor (HM-SEC-WDS)<br>
contact wet<br>