mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-04-29 23:47:10 +00:00
added set for KD101 alert and pair
git-svn-id: https://svn.fhem.de/fhem/trunk@2245 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
wherzig
parent
e7c2c4e394
commit
02b0d44545
@ -1,10 +1,10 @@
|
|||||||
# $Id$
|
# $Id$
|
||||||
##############################################################################
|
##############################################################################
|
||||||
#
|
#
|
||||||
# 46_TRX_LIGHT.pm
|
# 46_TRX_SECURITY.pm
|
||||||
# FHEM module for X10, KD101, Visonic
|
# FHEM module for X10, KD101, Visonic
|
||||||
# Copyright by Willi Herzig
|
#
|
||||||
# e-mail:
|
# Copyright (C) 2012 Willi Herzig
|
||||||
#
|
#
|
||||||
# This file is part of fhem.
|
# This file is part of fhem.
|
||||||
#
|
#
|
||||||
@ -22,14 +22,12 @@
|
|||||||
# along with fhem. If not, see <http://www.gnu.org/licenses/>.
|
# along with fhem. If not, see <http://www.gnu.org/licenses/>.
|
||||||
#
|
#
|
||||||
##############################################################################
|
##############################################################################
|
||||||
|
|
||||||
#
|
#
|
||||||
#
|
#
|
||||||
# values for "set global verbose"
|
# values for "set global verbose"
|
||||||
# 4: log unknown protocols
|
# 4: log unknown protocols
|
||||||
# 5: log decoding hexlines for debugging
|
# 5: log decoding hexlines for debugging
|
||||||
#
|
#
|
||||||
# $Id$
|
|
||||||
package main;
|
package main;
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
@ -44,12 +42,38 @@ my $TRX_SECURITY_type_default = "ds10a";
|
|||||||
|
|
||||||
my $DOT = q{_};
|
my $DOT = q{_};
|
||||||
|
|
||||||
|
my %security_device_codes = ( # HEXSTRING => "NAME", "name of reading",
|
||||||
|
# 0x20: X10, KD101, Visonic, Meiantech
|
||||||
|
0x2000 => [ "DS10A", "Window" ],
|
||||||
|
0x2001 => [ "MS10A", "motion" ],
|
||||||
|
0x2002 => [ "KR18", "key" ],
|
||||||
|
0x2003 => [ "KD101", "smoke" ],
|
||||||
|
0x2004 => [ "VISONIC_WINDOW", "window" ],
|
||||||
|
0x2005 => [ "VISONIC_REMOTE", "key" ],
|
||||||
|
0x2006 => [ "VISONIC_WINDOW", "window" ],
|
||||||
|
0x2007 => [ "Meiantech", "alarm" ],
|
||||||
|
);
|
||||||
|
|
||||||
|
my %security_device_commands = ( # HEXSTRING => commands
|
||||||
|
# 0x20: X10, KD101, Visonic, Meiantech
|
||||||
|
0x2000 => [ "", "", "", "", "", "", ""], # DS10A
|
||||||
|
0x2003 => [ "", "", "", "", "", "", "alert", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "pair",], # KD101
|
||||||
|
);
|
||||||
|
|
||||||
|
my %security_device_c2b; # DEVICE_TYPE->hash (reverse of security_device_codes)
|
||||||
|
|
||||||
|
#####################################
|
||||||
sub
|
sub
|
||||||
TRX_SECURITY_Initialize($)
|
TRX_SECURITY_Initialize($)
|
||||||
{
|
{
|
||||||
my ($hash) = @_;
|
my ($hash) = @_;
|
||||||
|
|
||||||
|
foreach my $k (keys %security_device_codes) {
|
||||||
|
$security_device_c2b{$security_device_codes{$k}->[0]} = $k;
|
||||||
|
}
|
||||||
|
|
||||||
$hash->{Match} = "^..(20).*";
|
$hash->{Match} = "^..(20).*";
|
||||||
|
$hash->{SetFn} = "TRX_SECURITY_Set";
|
||||||
$hash->{DefFn} = "TRX_SECURITY_Define";
|
$hash->{DefFn} = "TRX_SECURITY_Define";
|
||||||
$hash->{UndefFn} = "TRX_SECURITY_Undef";
|
$hash->{UndefFn} = "TRX_SECURITY_Undef";
|
||||||
$hash->{ParseFn} = "TRX_SECURITY_Parse";
|
$hash->{ParseFn} = "TRX_SECURITY_Parse";
|
||||||
@ -57,6 +81,100 @@ TRX_SECURITY_Initialize($)
|
|||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
###################################
|
||||||
|
sub
|
||||||
|
TRX_SECURITY_Set($@)
|
||||||
|
{
|
||||||
|
my ($hash, @a) = @_;
|
||||||
|
my $ret = undef;
|
||||||
|
my $na = int(@a);
|
||||||
|
|
||||||
|
return "no set value specified" if($na < 2 || $na > 3);
|
||||||
|
|
||||||
|
# look for device_type
|
||||||
|
|
||||||
|
my $name = $a[0];
|
||||||
|
my $command = $a[1];
|
||||||
|
my $level;
|
||||||
|
|
||||||
|
if ($na == 3) {
|
||||||
|
$level = $a[2];
|
||||||
|
} else {
|
||||||
|
$level = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
my $device_type = $hash->{TRX_SECURITY_type};
|
||||||
|
my $deviceid = $hash->{TRX_SECURITY_deviceid};
|
||||||
|
|
||||||
|
if ($device_type ne "KD101") {
|
||||||
|
return "No set implemented for $device_type";
|
||||||
|
}
|
||||||
|
|
||||||
|
my $device_type_num = $security_device_c2b{$device_type};
|
||||||
|
if(!defined($device_type_num)) {
|
||||||
|
return "Unknown device_type, choose one of " .
|
||||||
|
join(" ", sort keys %security_device_c2b);
|
||||||
|
}
|
||||||
|
my $protocol_type = $device_type_num >> 8; # high bytes
|
||||||
|
|
||||||
|
# Now check if the command is valid and retrieve the command id:
|
||||||
|
my $rec = $security_device_commands{$device_type_num};
|
||||||
|
my $i;
|
||||||
|
for ($i=0; $i <= $#$rec && ($rec->[$i] ne $command); $i++) { ;}
|
||||||
|
|
||||||
|
if($i > $#$rec) {
|
||||||
|
my $l = join(" ", sort @$rec);
|
||||||
|
if ($device_type eq "AC" || $device_type eq "HOMEEASY" || $device_type eq "ANSLUT") {
|
||||||
|
$l =~ s/ level / level:slider,0,1,15 /;
|
||||||
|
}
|
||||||
|
my $error = "Unknown command $command, choose one of $l";
|
||||||
|
|
||||||
|
Log 4, $error;
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($na == 4 && $command ne "level") {
|
||||||
|
my $error = "Error: level not possible for command $command";
|
||||||
|
}
|
||||||
|
|
||||||
|
my $seqnr = 0;
|
||||||
|
my $cmnd = $i;
|
||||||
|
|
||||||
|
my $hex_prefix;
|
||||||
|
my $hex_command;
|
||||||
|
if ($protocol_type == 0x20) {
|
||||||
|
my $id1;
|
||||||
|
my $id2;
|
||||||
|
my $id3;
|
||||||
|
if ($deviceid =~ /(..)(..)(..)/ ) {
|
||||||
|
$id1 = $1;
|
||||||
|
$id2 = $2;
|
||||||
|
$id3 = $3;
|
||||||
|
} else {
|
||||||
|
Log 4,"TRX_SECURITY_Set lightning1 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid";
|
||||||
|
return "error set name=$name deviceid=$deviceid";
|
||||||
|
}
|
||||||
|
|
||||||
|
# lightning1
|
||||||
|
$hex_prefix = sprintf "0820";
|
||||||
|
$hex_command = sprintf "%02x%02x%02s%02s%02s%02x00", $device_type_num & 0xff, $seqnr, $id1, $id2, $id3, $cmnd;
|
||||||
|
Log 1,"TRX_SECURITY_Set name=$name device_type=$device_type, deviceid=$deviceid id1=$id1, id1=$id2, id1=$id3, command=$command" if ($TRX_SECURITY_debug == 1);
|
||||||
|
Log 1,"TRX_SECURITY_Set hexline=$hex_prefix$hex_command" if ($TRX_SECURITY_debug == 1);
|
||||||
|
} else {
|
||||||
|
return "No set implemented for $device_type . Unknown protocol type";
|
||||||
|
}
|
||||||
|
|
||||||
|
IOWrite($hash, $hex_prefix, $hex_command);
|
||||||
|
|
||||||
|
my $tn = TimeNow();
|
||||||
|
$hash->{CHANGED}[0] = $command;
|
||||||
|
$hash->{STATE} = $command;
|
||||||
|
$hash->{READINGS}{state}{TIME} = $tn;
|
||||||
|
$hash->{READINGS}{state}{VAL} = $command;
|
||||||
|
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
#####################################
|
#####################################
|
||||||
sub
|
sub
|
||||||
TRX_SECURITY_Define($$)
|
TRX_SECURITY_Define($$)
|
||||||
@ -440,7 +558,19 @@ TRX_SECURITY_Parse($$)
|
|||||||
<br>
|
<br>
|
||||||
|
|
||||||
<a name="TRX_SECURITYset"></a>
|
<a name="TRX_SECURITYset"></a>
|
||||||
<b>Set</b> <ul>N/A</ul><br>
|
<b>Set </b>
|
||||||
|
<ul>
|
||||||
|
<code>set <name> <value> </code>
|
||||||
|
<br><br>
|
||||||
|
where <code>value</code> is one of:<br>
|
||||||
|
<pre>
|
||||||
|
alert # only for KD101
|
||||||
|
pair # only for KD101
|
||||||
|
</pre>
|
||||||
|
Example: <br>
|
||||||
|
<code>set TRX_KD101_a5ca00 alert</code>
|
||||||
|
<br>
|
||||||
|
</ul><br>
|
||||||
|
|
||||||
<a name="TRX_SECURITYget"></a>
|
<a name="TRX_SECURITYget"></a>
|
||||||
<b>Get</b> <ul>N/A</ul><br>
|
<b>Get</b> <ul>N/A</ul><br>
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user