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

46_TRX_SECURITY.pm: Added RM174RF

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20805 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
KernSani 2019-12-22 15:31:48 +00:00
parent 55415f47c0
commit be5831cb72
1 changed files with 461 additions and 424 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

151
fhem/FHEM/46_TRX_SECURITY.pm
View File

@ -32,6 +32,7 @@
#
# CHANGELOG
#
# 20.12.2019 Added RM174RF
# 30.12.2018 Added standardized Reading batteryState
# 29.03.2018 Summary for Commandref
#
@ -65,27 +66,34 @@ my %security_device_codes = ( # HEXSTRING => "NAME", "name of reading",
0x2007 => [ "VISONIC_WINDOW_AUX", "window" ],
0x2008 => [ "MEIANTECH", "alarm" ],
0x2009 => [ "SA30", "alarm" ],
0x200a => [ "RM174RF", "smoke" ],
);
my %security_device_commands = ( # HEXSTRING => commands
# 0x20: X10, KD101, Visonic, Meiantech
0x2000 => [ "Closed", "", "Open", "", "", "", "" ], # DS10A
0x2001 => [ "", "", "", "", "alert", "normal", "" ], # MS10A
0x2002 => [ "", "", "", "", "", "", "Panic", "EndPanic", "", "Arm_Away", "Arm_Away_Delayed", "Arm_Home", "Arm_Home_Delayed", "Disarm"], # KR18
0x2003 => [ "", "", "", "", "", "", "alert", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "pair"], # KD101
0x2002 => [
"", "", "", "", "", "", "Panic", "EndPanic", "", "Arm_Away", "Arm_Away_Delayed", "Arm_Home",
"Arm_Home_Delayed", "Disarm"
], # KR18
0x2003 =>
[ "", "", "", "", "", "", "alert", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "pair" ]
, # KD101
0x2004 => [ "normal", "", "alert" ], #VISONIC_WINDOW
0x2005 => [ "", "", "", "", "motion", "nomotion", "alert" ], #VISONIC_MOTION
0x2008 => [ "", "", "", "", "", "", "Panic", "", "IR", "Arm_Away", "", "Arm_Home", "", "Disarm" ], #MEIANTECH
0x2009 => [ "", "", "", "", "", "", "alert", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "pair"], #SA30
0x2009 =>
[ "", "", "", "", "", "", "alert", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "pair" ], #SA30
0x200a => [ "", "", "", "", "", "", "Panic", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "" ]
, #RM174RF
);
my %security_device_c2b; # DEVICE_TYPE->hash (reverse of security_device_codes)
#####################################
sub
TRX_SECURITY_Initialize($)
{
sub TRX_SECURITY_Initialize($) {
my ($hash) = @_;
foreach my $k ( keys %security_device_codes ) {
@ -97,15 +105,12 @@ TRX_SECURITY_Initialize($)
$hash->{DefFn} = "TRX_SECURITY_Define";
$hash->{UndefFn} = "TRX_SECURITY_Undef";
$hash->{ParseFn} = "TRX_SECURITY_Parse";
$hash->{AttrList} = "IODev ignore:1,0 do_not_notify:1,0 ".
$readingFnAttributes;
$hash->{AttrList} = "IODev ignore:1,0 do_not_notify:1,0 " . $readingFnAttributes;
}
###################################
sub
TRX_SECURITY_Set($@)
{
sub TRX_SECURITY_Set($@) {
my ( $hash, @a ) = @_;
my $ret = undef;
my $na = int(@a);
@ -120,7 +125,8 @@ TRX_SECURITY_Set($@)
if ( $na == 3 ) {
$level = $a[2];
} else {
}
else {
$level = 0;
}
@ -133,8 +139,7 @@ TRX_SECURITY_Set($@)
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);
return "Unknown device_type, choose one of " . join( " ", sort keys %security_device_c2b );
}
my $protocol_type = $device_type_num >> 8; # high bytes
@ -171,19 +176,23 @@ TRX_SECURITY_Set($@)
$id1 = $2;
$id2 = "00";
$id3 = $1;
} elsif ($deviceid =~ /^(..)(..)(..)$/) {
}
elsif ( $deviceid =~ /^(..)(..)(..)$/ ) {
$id1 = $1;
$id2 = $2;
$id3 = $3;
} else {
Log3 $name, 1,"TRX_SECURITY_Set() security1 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid";
}
else {
Log3 $name, 1,
"TRX_SECURITY_Set() security1 wrong deviceid: name=$name device_type=$device_type, deviceid=$deviceid";
return "error set name=$name deviceid=$deviceid";
}
# security1
$hex_prefix = sprintf "0820";
$hex_command = sprintf "%02x%02x%02s%02s%02s%02x00", $device_type_num & 0xff, $seqnr, $id1, $id2, $id3, $cmnd;
Log3 $name, 5,"TRX_SECURITY_Set() name=$name device_type=$device_type, deviceid=$deviceid id1=$id1, id2=$id2, id3=$id3, command=$command";
Log3 $name, 5,
"TRX_SECURITY_Set() name=$name device_type=$device_type, deviceid=$deviceid id1=$id1, id2=$id2, id3=$id3, command=$command";
Log3 $name, 5, "TRX_SECURITY_Set() hexline=$hex_prefix$hex_command";
if ( $device_type ne "KD101" ) {
@ -209,7 +218,8 @@ TRX_SECURITY_Set($@)
readingsEndUpdate( $hash, 1 );
}
} else {
}
else {
return "No set implemented for $device_type . Unknown protocol type";
}
@ -225,38 +235,54 @@ TRX_SECURITY_Set($@)
}
#####################################
sub
TRX_SECURITY_Define($$)
{
sub TRX_SECURITY_Define($$) {
my ( $hash, $def ) = @_;
my @a = split( "[ \t][ \t]*", $def );
my $a = int(@a);
if ( int(@a) != 5 && int(@a) != 7 ) {
Log3 $hash, 1,"TRX_SECURITY_Define() wrong syntax '@a'. \nCorrect syntax is 'define <name> TRX_SECURITY <type> <deviceid> <devicelog> [<deviceid2> <devicelog2>]'";
Log3 $hash, 1,
"TRX_SECURITY_Define() wrong syntax '@a'. \nCorrect syntax is 'define <name> TRX_SECURITY <type> <deviceid> <devicelog> [<deviceid2> <devicelog2>]'";
return "wrong syntax: define <name> TRX_SECURITY <type> <deviceid> <devicelog> [<deviceid2> <devicelog2>]";
}
my $name = $a[0];
my $type = lc( $a[2] );
my $deviceid = $a[3];
my $devicelog = $a[4];
$type = uc($type);
my $my_type;
if ( $type eq "WD18" || $type eq "GD18" || $type eq "SD18" || $type eq "COD18" || $type eq "GB10E" ) {
$my_type = "DS10A"; # device will be received as DS10A
} else {
}
else {
$my_type = $type;
}
my $device_name = "TRX" . $DOT . $my_type . $DOT . $deviceid;
if ($type ne "DS10A" && $type ne "SD90" && $type ne "MS10A" && $type ne "MS14A" && $type ne "KR18" && $type ne "KD101" && $type ne "VISONIC_WINDOW" && $type ne "VISONIC_MOTION" && $type ne "VISONIC_WINDOW_AUX" && $type ne "VISONIC_REMOTE" && $type ne "MEIANTECH" && $type ne "SA30" && $type ne "GD18" && $type ne "WD18" && $type ne "SD18" && $type ne "COD18" && $type ne "GB10E") {
if ( $type ne "DS10A"
&& $type ne "SD90"
&& $type ne "MS10A"
&& $type ne "MS14A"
&& $type ne "KR18"
&& $type ne "KD101"
&& $type ne "VISONIC_WINDOW"
&& $type ne "VISONIC_MOTION"
&& $type ne "VISONIC_WINDOW_AUX"
&& $type ne "VISONIC_REMOTE"
&& $type ne "MEIANTECH"
&& $type ne "SA30"
&& $type ne "GD18"
&& $type ne "WD18"
&& $type ne "SD18"
&& $type ne "COD18"
&& $type ne "GB10E"
&& $type ne "RM174RF" )
{
Log3 $hash, 1, "TRX_SECURITY_Define() wrong type: $type";
return "TRX_SECURITY: wrong type: $type";
}
@ -264,11 +290,12 @@ TRX_SECURITY_Define($$)
$hash->{TRX_SECURITY_deviceid} = $deviceid;
$hash->{TRX_SECURITY_devicelog} = $devicelog;
$hash->{TRX_SECURITY_type} = $type;
#$hash->{TRX_SECURITY_CODE} = $deviceid;
$modules{TRX_SECURITY}{defptr}{$device_name} = $hash;
if ( int(@a) == 7 ) {
# there is a second deviceid:
#
my $deviceid2 = $a[5];
@ -278,6 +305,7 @@ TRX_SECURITY_Define($$)
$hash->{TRX_SECURITY_deviceid2} = $deviceid2;
$hash->{TRX_SECURITY_devicelog2} = $devicelog2;
#$hash->{TRX_SECURITY_CODE2} = $deviceid2;
$modules{TRX_SECURITY}{defptr2}{$device_name2} = $hash;
}
@ -288,16 +316,12 @@ TRX_SECURITY_Define($$)
}
#####################################
sub
TRX_SECURITY_Undef($$)
{
sub TRX_SECURITY_Undef($$) {
my ( $hash, $name ) = @_;
delete( $modules{TRX_SECURITY}{defptr}{$name} );
return undef;
}
#####################################
sub TRX_SECURITY_parse_X10Sec($$) {
my ( $hash, $bytes ) = @_;
@ -309,21 +333,24 @@ sub TRX_SECURITY_parse_X10Sec($$) {
my $device;
if ( $subtype >= 3 ) {
$device = sprintf '%02x%02x%02x', $bytes->[3], $bytes->[4], $bytes->[5];
} else {
}
else {
# that's how we do it on 43_RFXX10REC.pm
$device = sprintf '%02x%02x', $bytes->[5], $bytes->[3];
}
my %security_devtype =
( # HEXSTRING =>
my %security_devtype = ( # HEXSTRING =>
0x00 => [ "DS10A", "Window" ], # X10 security door/window sensor
0x01 => [ "MS10A", "motion" ], # X10 security motion sensor
0x02 => [ "KR18", "key" ], # X10 security remote (no alive packets)
0x03 => [ "KD101", "smoke" ], # KD101 (no alive packets)
0x04 => [ "VISONIC_WINDOW", "window" ], # Visonic PowerCode door/window sensor – primary contact (with alive packets)
0x04 => [ "VISONIC_WINDOW", "window" ]
, # Visonic PowerCode door/window sensor – primary contact (with alive packets)
0x05 => [ "VISONIC_MOTION", "motion" ], # Visonic PowerCode motion sensor (with alive packets)
0x06 => [ "VISONIC_REMOTE", "key" ], # Visonic CodeSecure (no alive packets)
0x07 => [ "VISONIC_WINDOW_AUX", "window" ], # Visonic PowerCode door/window sensor – auxiliary contact (no alive packets)
0x07 => [ "VISONIC_WINDOW_AUX", "window" ]
, # Visonic PowerCode door/window sensor – auxiliary contact (no alive packets)
0x0a => [ "RM174RF", "smoke" ], # RM174RF (no alive packets)
);
my $dev_type;
@ -332,12 +359,14 @@ sub TRX_SECURITY_parse_X10Sec($$) {
my $rec = $security_devtype{$subtype};
if ( ref $rec ) {
( $dev_type, $dev_reading ) = @$rec;
} else {
}
else {
$error = "TRX_SECURITY: x10_devtype wrong for subtype=$subtype";
Log3 $hash, 1, "TRX_SECURITY_parse_X10Sec() " . $error;
return "";
}
} else {
}
else {
$error = "TRX_SECURITY: error undefined subtype=$subtype";
Log3 $hash, 1, "TRX_SECURITY_parse_X10Sec() " . $error;
return "";
@ -353,7 +382,8 @@ sub TRX_SECURITY_parse_X10Sec($$) {
$firstdevice = 0;
$def = $modules{TRX_SECURITY}{defptr2}{$device_name};
if ( !$def ) {
Log3 $hash, 1, "TRX_SECURITY_parse_X10Sec() UNDEFINED $device_name TRX_SECURITY $dev_type $device $dev_reading";
Log3 $hash, 1,
"TRX_SECURITY_parse_X10Sec() UNDEFINED $device_name TRX_SECURITY $dev_type $device $dev_reading";
Log3 $hash, 3, "TRX_SECURITY_parse_X10Sec() Unknown device $device_name, please define it";
return "UNDEFINED $device_name TRX_SECURITY $dev_type $device $dev_reading";
}
@ -367,8 +397,7 @@ sub TRX_SECURITY_parse_X10Sec($$) {
my $hexdata = sprintf '%02x', $data;
my %x10_security =
(
my %x10_security = (
0x00 => [ 'X10Sec', 'normal', 'min_delay', '', '' ],
0x01 => [ 'X10Sec', 'normal', 'max_delay', '', '' ],
@ -420,10 +449,12 @@ sub TRX_SECURITY_parse_X10Sec($$) {
my $rec = $x10_security{$data};
if ( ref $rec ) {
( $type, $command, $delay, $battery, $option ) = @$rec;
} else {
}
else {
$command = $rec;
}
} else {
}
else {
Log3 $name, 1, "TRX_SECURITY_parse_X10Sec() undefined command cmd=$data device-nr=$device, hex=$hexdata";
return "";
}
@ -450,22 +481,28 @@ sub TRX_SECURITY_parse_X10Sec($$) {
my $device_type = uc( $def->{TRX_SECURITY_type} );
Log3 $name, 5, "TRX_SECURITY_parse_X10Sec() $name devn=$device_name first=$firstdevice subtype=$subtype device_type=$device_type command=$command, delay=$delay, batt=$battery cmd=$hexdata";
Log3 $name, 5,
"TRX_SECURITY_parse_X10Sec() $name devn=$device_name first=$firstdevice subtype=$subtype device_type=$device_type command=$command, delay=$delay, batt=$battery cmd=$hexdata";
my $sensor = "";
if ( $device_type eq "SD90" ) {
$sensor = $firstdevice == 1 ? $def->{TRX_SECURITY_devicelog} : $def->{TRX_SECURITY_devicelog2};
} else {
}
else {
$sensor = $def->{TRX_SECURITY_devicelog};
}
$current = $command;
if (($device_type eq "DS10A") || ($device_type eq "VISONIC_WINDOW") || ($device_type eq "VISONIC_WINDOW_AUX")) {
if ( ( $device_type eq "DS10A" )
|| ( $device_type eq "VISONIC_WINDOW" )
|| ( $device_type eq "VISONIC_WINDOW_AUX" ) )
{
$current = "Error";
$current = "Open" if ( $command eq "alert" );
$current = "Closed" if ( $command eq "normal" );
} elsif ($device_type eq "WD18" || $device_type eq "GD18") {
}
elsif ( $device_type eq "WD18" || $device_type eq "GD18" ) {
$current = "Error";
$current = "normal" if ( $command eq "alert" );
$current = "alert" if ( $command eq "normal" );
@ -486,7 +523,8 @@ sub TRX_SECURITY_parse_X10Sec($$) {
$sensor = "statechange";
readingsBulkUpdate( $def, $sensor, $current );
}
} else {
}
else {
# kr18 remote control or VISONIC_REMOTE
$current = $command;
@ -518,7 +556,6 @@ sub TRX_SECURITY_parse_X10Sec($$) {
readingsBulkUpdate( $def, $sensor, $rssi );
}
if ( $delay ne '' ) {
$sensor = "delay";
$current = "Error";
@ -540,10 +577,7 @@ sub TRX_SECURITY_parse_X10Sec($$) {
return $name;
}
sub
TRX_SECURITY_Parse($$)
{
sub TRX_SECURITY_Parse($$) {
my ( $iohash, $hexline ) = @_;
$trx_rssi = 0;
@ -553,11 +587,13 @@ TRX_SECURITY_Parse($$)
}
my $time = time();
# convert to binary
my $msg = pack( 'H*', $hexline );
if ( $time_old == 0 ) {
Log3 $iohash, 5, "TRX_SECURITY_Parse() decoding delay=0 hex=$hexline";
} else {
}
else {
my $time_diff = $time - $time_old;
Log3 $iohash, 5, "TRX_SECURITY_Parse() decoding delay=$time_diff hex=$hexline";
}
@ -584,7 +620,8 @@ TRX_SECURITY_Parse($$)
$res = TRX_SECURITY_parse_X10Sec( $iohash, \@rfxcom_data_array );
Log3 $iohash, 1, "TRX_SECURITY_Parse() unsupported hex=$hexline" if ( $res eq "" );
return $res;
} else {
}
else {
Log3 $iohash, 1, "TRX_SECURITY_Parse() not implemented num_bytes=$num_bytes hex=$hexline";
}