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

Homematic Schliesser-Kontakt Status Update wegen Sabotage

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

50
FHEM/10_CUL_HM.pm
View File

@@ -667,41 +667,33 @@ CUL_HM_Parse($$)
my $lst = defined($1) ? $1 : "00"; my $lst = defined($1) ? $1 : "00";
my $chn = "01"; my $chn = "01";
if($p =~ m/^0601000E$/) { if($p =~ m/^0601..00$/) {
push @event, "alive:yes"; push @event, "alive:yes";
} elsif($p =~ m/^0601..00$/) { }
push @event, "cover:closed"; # Multi-channel device: Switch to the shadow source hash
push @event, "alive:yes"; # 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$/) { my %txt;
push @event, "cover:open"; %txt = ("C8"=>"open", "64"=>"tilted", "00"=>"closed");
push @event, "state:sabotage"; %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 { } else {
$lst = "00"; # for the ack
}
# Multi-channel device: Switch to the shadow source hash if($p =~ m/^0601..0E$/) {
# for the HM-SCI-3-FM push @event, "state:sabotage";
$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
}
} }
CUL_HM_SendCmd($shash, "++8002$id$src${chn}01${lst}00",1,0) # Send Ack CUL_HM_SendCmd($shash, "++8002$id$src${chn}01${lst}00",1,0) # Send Ack

3
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> alive<br>
test $t<br> test $t<br>
<li>threeStateSensor (all)<br> <li>threeStateSensor (all)<br>
cover closed<br> sabotage<br>
cover open<br>
alive<br> alive<br>
<li>threeStateSensor (HM-SEC-WDS)<br> <li>threeStateSensor (HM-SEC-WDS)<br>
contact wet<br> contact wet<br>