mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-03 16:56:54 +00:00
New module for handling X10 security and X10 light messages
git-svn-id: https://svn.fhem.de/fhem/trunk@829 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
wherzig
parent
154403a07f
commit
db42f33b1a
565
fhem/FHEM/43_RFXX10REC.pm
Executable file
565
fhem/FHEM/43_RFXX10REC.pm
Executable file
@ -0,0 +1,565 @@
|
||||
#################################################################################
|
||||
# 44_RFXX10REC.pm
|
||||
# Modul for FHEM for unkown RFXCOM X11security
|
||||
#
|
||||
# - X10 security messages for
|
||||
# - ds10a: X10 Door / Window Sensor or compatible devices
|
||||
# - ss10a: X10 motion sensor
|
||||
# - sd90: Marmitek smoke detector
|
||||
# - kr18: X10 remote control
|
||||
# - X10 light messages for
|
||||
# - ms14a: motion sensor
|
||||
# - x10: generic X10 sensor
|
||||
#
|
||||
# This script is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
#
|
||||
##################################
|
||||
#
|
||||
# Special thanks to RFXCOM, http://www.rfxcom.com/, for their
|
||||
# help. I own an USB-RFXCOM-Receiver (433.92MHz, USB, order code 80002)
|
||||
# and highly recommend it.
|
||||
#
|
||||
##################################
|
||||
#
|
||||
# Some code from X10security code is derived from http://www.xpl-perl.org.uk/.
|
||||
# xpl-perl/lib/xPL/RF/X10Security.pm:
|
||||
# Thanks a lot to Mark Hindess who wrote xPL.
|
||||
#
|
||||
#SEE ALSO
|
||||
# Project website: http://www.xpl-perl.org.uk/
|
||||
# AUTHOR: Mark Hindess, soft-xpl-perl@temporalanomaly.com
|
||||
#
|
||||
#Copyright (C) 2007, 2009 by Mark Hindess
|
||||
#
|
||||
#This library is free software; you can redistribute it and/or modify
|
||||
#it under the same terms as Perl itself, either Perl version 5.8.7 or,
|
||||
#at your option, any later version of Perl 5 you may have available.
|
||||
#
|
||||
##################################
|
||||
#
|
||||
# values for "set global verbose"
|
||||
# 4: log unknown protocols
|
||||
# 5: log decoding hexlines for debugging
|
||||
#
|
||||
package main;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Switch;
|
||||
|
||||
# Debug this module? YES = 1, NO = 0
|
||||
my $RFXX10REC_debug = 0;
|
||||
|
||||
my $time_old = 0;
|
||||
|
||||
my $RFXX10REC_type_default = "ds10a";
|
||||
my $RFXX10REC_X10_type_default = "x10";
|
||||
|
||||
my $DOT = q{_};
|
||||
|
||||
sub
|
||||
RFXX10REC_Initialize($)
|
||||
{
|
||||
my ($hash) = @_;
|
||||
|
||||
#$hash->{Match} = "^\\).*"; # 0x29
|
||||
$hash->{Match} = "^(\\ |\\)).*"; # 0x20 or 0x29
|
||||
$hash->{DefFn} = "RFXX10REC_Define";
|
||||
$hash->{UndefFn} = "RFXX10REC_Undef";
|
||||
$hash->{ParseFn} = "RFXX10REC_Parse";
|
||||
$hash->{AttrList} = "IODev do_not_notify:1,0 loglevel:0,1,2,3,4,5,6";
|
||||
#Log 1, "RFXX10REC: Initialize";
|
||||
|
||||
}
|
||||
|
||||
#####################################
|
||||
sub
|
||||
RFXX10REC_Define($$)
|
||||
{
|
||||
my ($hash, $def) = @_;
|
||||
my @a = split("[ \t][ \t]*", $def);
|
||||
|
||||
my $a = int(@a);
|
||||
|
||||
if(int(@a) != 5 && int(@a) != 7) {
|
||||
Log 1,"RFXX10REC wrong syntax '@a'. \nCorrect syntax is 'define <name> RFXX10REC <type> <deviceid> <devicelog> [<deviceid2> <devicelog2>]'";
|
||||
return "wrong syntax: define <name> RFXX10REC <type> <deviceid> <devicelog> [<deviceid2> <devicelog2>]";
|
||||
}
|
||||
|
||||
|
||||
my $name = $a[0];
|
||||
|
||||
my $type = lc($a[2]);
|
||||
my $deviceid = $a[3];
|
||||
my $devicelog = $a[4];
|
||||
|
||||
|
||||
my $device_name = "RFXX10REC".$DOT.$deviceid;
|
||||
|
||||
if ($type ne "ds10a" && $type ne "sd90" && $type ne "x10" && $type ne "ms10a" && $type ne "ms14a" && $type ne "kr18") {
|
||||
Log 1,"RFX10SEC define: wrong type: $type";
|
||||
return "RFX10SEC: wrong type: $type";
|
||||
}
|
||||
|
||||
$hash->{RFXX10REC_deviceid} = $deviceid;
|
||||
$hash->{RFXX10REC_devicelog} = $devicelog;
|
||||
$hash->{RFXX10REC_type} = $type;
|
||||
#$hash->{RFXX10REC_CODE} = $deviceid;
|
||||
$modules{RFXX10REC}{defptr}{$device_name} = $hash;
|
||||
|
||||
|
||||
if (int(@a) == 7) {
|
||||
# there is a second deviceid:
|
||||
#
|
||||
my $deviceid2 = $a[5];
|
||||
my $devicelog2 = $a[6];
|
||||
|
||||
my $device_name2 = "RFXX10REC".$DOT.$deviceid2;
|
||||
|
||||
$hash->{RFXX10REC_deviceid2} = $deviceid2;
|
||||
$hash->{RFXX10REC_devicelog2} = $devicelog2;
|
||||
#$hash->{RFXX10REC_CODE2} = $deviceid2;
|
||||
$modules{RFXX10REC}{defptr2}{$device_name2} = $hash;
|
||||
}
|
||||
|
||||
AssignIoPort($hash);
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
#####################################
|
||||
sub
|
||||
RFXX10REC_Undef($$)
|
||||
{
|
||||
my ($hash, $name) = @_;
|
||||
delete($modules{RFXX10REC}{defptr}{$name});
|
||||
return undef;
|
||||
}
|
||||
|
||||
|
||||
#####################################
|
||||
sub RFXX10REC_parse_X10 {
|
||||
my $bytes = shift;
|
||||
|
||||
|
||||
# checksum test
|
||||
(($bytes->[0]^0xff) == $bytes->[1] && ($bytes->[2]^0xff) == $bytes->[3])
|
||||
or return "";
|
||||
|
||||
#RFXX10REC_reverse_bits($bytes);
|
||||
|
||||
my %x10_devname =
|
||||
(
|
||||
0x60 => "A",
|
||||
0x70 => "B",
|
||||
0x40 => "C",
|
||||
0x50 => "D",
|
||||
0x80 => "E",
|
||||
0x90 => "F",
|
||||
0xA0 => "G",
|
||||
0xB0 => "H",
|
||||
0xE0 => "I",
|
||||
0xF0 => "J",
|
||||
0xC0 => "K",
|
||||
0xD0 => "L",
|
||||
0x00 => "M",
|
||||
0x10 => "N",
|
||||
0x20 => "O",
|
||||
0x30 => "P",
|
||||
);
|
||||
|
||||
my $dev_first = "?";
|
||||
|
||||
my $devnr = $bytes->[0] & 0xf0;
|
||||
if (exists $x10_devname{$devnr}) {
|
||||
$dev_first = $x10_devname{$devnr};
|
||||
}
|
||||
|
||||
my $unit_bit0 = ($bytes->[2] & 0x10) ? 1 : 0;
|
||||
my $unit_bit1 = ($bytes->[2] & 0x08) ? 1 : 0;
|
||||
my $unit_bit2 = ($bytes->[2] & 0x40) ? 1 : 0;
|
||||
my $unit_bit3 = ($bytes->[0] & 0x04) ? 1 : 0;
|
||||
my $unit = $unit_bit0 * 1 + $unit_bit1 * 2 + $unit_bit2 * 4 +$unit_bit3 * 8 + 1;
|
||||
|
||||
my $device = sprintf '%s%0d', $dev_first, $unit;
|
||||
|
||||
my $data = $bytes->[2];
|
||||
my $hexdata = sprintf '%02x', $bytes->[2];
|
||||
my $error;
|
||||
if ($data == 0x98) {
|
||||
$error = "RFXX10REC: X10 command 'Dim' not implemented, device=".$dev_first;
|
||||
Log 1,$error;
|
||||
return $error;
|
||||
} elsif ($data == 0x88) {
|
||||
$error = "RFXX10REC: X10 command 'Bright' not implemented, device=".$dev_first;
|
||||
Log 1,$error;
|
||||
return $error;
|
||||
} elsif ($data == 0x90) {
|
||||
$error = "RFXX10REC: X10 command 'All Lights on' not implemented, device=".$dev_first;
|
||||
Log 1,$error;
|
||||
return $error;
|
||||
} elsif ($data == 0x80) {
|
||||
$error = "RFXX10REC: X10 command 'All Lights off' not implemented, device=".$dev_first;
|
||||
Log 1,$error;
|
||||
return $error;
|
||||
}
|
||||
my $command;
|
||||
if ($data & 0x20) {
|
||||
$command = "off";
|
||||
} else {
|
||||
$command = "on";
|
||||
}
|
||||
|
||||
my @res;
|
||||
my $current = "";
|
||||
|
||||
#--------------
|
||||
my $device_name = "RFXX10REC".$DOT.$device;
|
||||
#Log 1, "RFXX10REC: device_name=$device_name command=$command" if ($RFXX10REC_debug == 1);
|
||||
|
||||
my $firstdevice = 1;
|
||||
my $def = $modules{RFXX10REC}{defptr}{$device_name};
|
||||
if(!$def) {
|
||||
#Log 1, "-1- not device_name=$device_name";
|
||||
$firstdevice = 0;
|
||||
$def = $modules{RFXX10REC}{defptr2}{$device_name};
|
||||
if (!$def) {
|
||||
#Log 1, "-2- not device_name=$device_name";
|
||||
Log 3, "RFXX10REC: RFXX10REC Unknown device $device_name, please define it";
|
||||
return "UNDEFINED $device_name RFXX10REC $RFXX10REC_X10_type_default $device Unknown";
|
||||
}
|
||||
}
|
||||
|
||||
# Use $def->{NAME}, because the device may be renamed:
|
||||
my $name = $def->{NAME};
|
||||
|
||||
Log 1, "RFXX10REC: $name devn=$device_name first=$firstdevice type=$command, cmd=$hexdata" if ($RFXX10REC_debug == 1);
|
||||
|
||||
my $n = 0;
|
||||
my $tm = TimeNow();
|
||||
my $val = "";
|
||||
|
||||
my $device_type = $def->{RFXX10REC_type};
|
||||
#Log 1,"device_name=$device_name name=$name, type=$type";
|
||||
|
||||
my $sensor = "";
|
||||
|
||||
if ($device_type eq "ms14a") {
|
||||
# for ms14a behave like x11, but flip second deviceid
|
||||
$device_type = "x10";
|
||||
if ($firstdevice == 1) {
|
||||
$command = ($command eq "on") ? "alert" : "normal" ;
|
||||
} else {
|
||||
$command = ($command eq "on") ? "off" : "on" ;
|
||||
}
|
||||
}
|
||||
|
||||
if ($device_type eq "x10") {
|
||||
|
||||
$current = $command;
|
||||
|
||||
$sensor = $firstdevice == 1 ? $def->{RFXX10REC_devicelog} : $def->{RFXX10REC_devicelog2};
|
||||
$val .= $current;
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
} else {
|
||||
Log 1, "RFXX10REC: X10 error unknown sensor type=$device_type $name devn=$device_name first=$firstdevice type=$command, user=$device (hex $hexdata)";
|
||||
return "RFXX10REC X10 error unknown sensor type=$device_type for $device_name device=$device";
|
||||
}
|
||||
|
||||
if (($firstdevice == 1) && $val) {
|
||||
$def->{STATE} = $val;
|
||||
$def->{TIME} = $tm;
|
||||
$def->{CHANGED}[$n++] = $val;
|
||||
}
|
||||
|
||||
DoTrigger($name, undef);
|
||||
|
||||
return "";
|
||||
}
|
||||
|
||||
#####################################
|
||||
sub RFXX10REC_parse_X10Sec {
|
||||
my $bytes = shift;
|
||||
|
||||
|
||||
# checksum test
|
||||
(($bytes->[0]^0x0f) == $bytes->[1] && ($bytes->[2]^0xff) == $bytes->[3])
|
||||
or return "";
|
||||
|
||||
#RFXX10REC_reverse_bits($bytes);
|
||||
|
||||
#my $device = sprintf 'x10sec%02x', $bytes->[0];
|
||||
my $device = sprintf '%02x%02x', $bytes->[4], $bytes->[0];
|
||||
#Log 1, "X10Sec device-nr=$device";
|
||||
my $short_device = $bytes->[0];
|
||||
my $data = $bytes->[2];
|
||||
|
||||
my $hexdata = sprintf '%02x', $bytes->[2];
|
||||
#Log 1, "X10Sec data=$hexdata";
|
||||
|
||||
my %x10_security =
|
||||
(
|
||||
0x00 => ['X10Sec', 'alert', 'max_delay', 'batt_ok'],
|
||||
0x01 => ['X10Sec', 'alert', 'max_delay', 'batt_low'],
|
||||
0x04 => ['X10Sec', 'alert', 'min_delay', 'batt_ok'],
|
||||
0x05 => ['X10Sec', 'alert', 'min_delay', 'batt_low'],
|
||||
0x80 => ['X10Sec', 'normal', 'max_delay', 'batt_ok'],
|
||||
0x81 => ['X10Sec', 'normal', 'max_delay', 'batt_low'],
|
||||
0x84 => ['X10Sec', 'normal', 'min_delay', 'batt_ok'],
|
||||
0x85 => ['X10Sec', 'normal', 'min_delay', 'batt_low'],
|
||||
0x26 => ['X10Sec', 'alert', '', ''],
|
||||
#
|
||||
0x0c => ['X10Sec', 'alert', '', 'batt_ok'], # MS10a
|
||||
0x0d => ['X10Sec', 'alert', '', 'batt_low'], # MS10a
|
||||
0x8c => ['X10Sec', 'normal', '', 'batt_ok'], # MS10a
|
||||
0x8d => ['X10Sec', 'normal', '', 'batt_low'], # MS10a
|
||||
#
|
||||
0x06 => ['X10Sec', 'Security-Arm', '', ''], # kr18
|
||||
0x86 => ['X10Sec', 'Security-Disarm', '', ''], # kr18
|
||||
0x42 => ['X10Sec', 'ButtonA-on', '', ''], # kr18
|
||||
0xc2 => ['X10Sec', 'ButtonA-off', '', ''], # kr18
|
||||
0x46 => ['X10Sec', 'ButtonB-on', '', ''], # kr18
|
||||
0xc6 => ['X10Sec', 'ButtonB-off', '', ''], # kr18
|
||||
|
||||
);
|
||||
|
||||
my $command = "";
|
||||
my $type = "";
|
||||
my $delay = "";
|
||||
my $battery = "";
|
||||
|
||||
my @res;
|
||||
my %args;
|
||||
if (exists $x10_security{$data}) {
|
||||
|
||||
my $rec = $x10_security{$data};
|
||||
if (ref $rec) {
|
||||
($type, $command, $delay, $battery) = @$rec;
|
||||
} else {
|
||||
$command = $rec;
|
||||
}
|
||||
|
||||
} else {
|
||||
Log 1, "RFXX10REC undefined command cmd=$data device-nr=$device, hex=$hexdata";
|
||||
return "RFXX10REC undefined command";
|
||||
}
|
||||
|
||||
my $current = "";
|
||||
|
||||
#--------------
|
||||
my $device_name = "RFXX10REC".$DOT.$device;
|
||||
#Log 1, "device_name=$device_name";
|
||||
Log 4, "device_name=$device_name";
|
||||
|
||||
|
||||
my $firstdevice = 1;
|
||||
my $def = $modules{RFXX10REC}{defptr}{$device_name};
|
||||
if(!$def) {
|
||||
#Log 1, "-1- not device_name=$device_name";
|
||||
$firstdevice = 0;
|
||||
$def = $modules{RFXX10REC}{defptr2}{$device_name};
|
||||
if (!$def) {
|
||||
#Log 1, "-2- not device_name=$device_name";
|
||||
Log 3, "RFXX10REC: RFXX10REC Unknown device $device_name, please define it";
|
||||
return "UNDEFINED $device_name RFXX10REC $RFXX10REC_type_default $device Window";
|
||||
}
|
||||
}
|
||||
|
||||
# Use $def->{NAME}, because the device may be renamed:
|
||||
my $name = $def->{NAME};
|
||||
#Log 1, "name=$new_name";
|
||||
|
||||
Log 1, "RFXX10REC: $name devn=$device_name first=$firstdevice type=$command, delay=$delay, batt=$battery cmd=$hexdata" if ($RFXX10REC_debug == 1);
|
||||
|
||||
my $n = 0;
|
||||
my $tm = TimeNow();
|
||||
my $val = "";
|
||||
|
||||
my $device_type = $def->{RFXX10REC_type};
|
||||
#Log 1,"device_name=$device_name name=$name, type=$type";
|
||||
|
||||
my $sensor = "";
|
||||
|
||||
if ($device_type eq "ds10a") {
|
||||
|
||||
|
||||
$current = "Error";
|
||||
$current = "Open" if ($command eq "alert");
|
||||
$current = "Closed" if ($command eq "normal");
|
||||
|
||||
$sensor = $def->{RFXX10REC_devicelog};
|
||||
$val .= $current;
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
|
||||
if (($def->{STATE} ne $val)) {
|
||||
$sensor = "statechange";
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
}
|
||||
|
||||
if ($battery ne '') {
|
||||
$sensor = "battery";
|
||||
$current = "Error";
|
||||
$current = "ok" if ($battery eq "batt_ok");
|
||||
$current = "low" if ($battery eq "batt_low");
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
}
|
||||
|
||||
if ($delay ne '') {
|
||||
$sensor = "delay";
|
||||
$current = "Error";
|
||||
$current = "min" if ($delay eq "min_delay");
|
||||
$current = "max" if ($delay eq "max_delay");
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
}
|
||||
|
||||
} elsif ($device_type eq "sd90") {
|
||||
|
||||
|
||||
$sensor = $firstdevice == 1 ? $def->{RFXX10REC_devicelog} : $def->{RFXX10REC_devicelog2};
|
||||
|
||||
$current = $command;
|
||||
|
||||
if ($firstdevice == 1) {
|
||||
$val .= $current;
|
||||
}
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
|
||||
if ($battery) {
|
||||
$sensor = "battery";
|
||||
$current = "Error";
|
||||
$current = "ok" if ($battery eq "batt_ok");
|
||||
$current = "low" if ($battery eq "bat_low");
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
}
|
||||
|
||||
# sd90 does not have a delay switch
|
||||
if (0 && $delay) {
|
||||
$sensor = "delay";
|
||||
$current = "Error";
|
||||
$current = "min" if ($delay eq "min_delay");
|
||||
$current = "max" if ($delay eq "max_delay");
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
}
|
||||
|
||||
} elsif ($device_type eq "ms10a") {
|
||||
|
||||
$current = $command;
|
||||
|
||||
$sensor = $def->{RFXX10REC_devicelog};
|
||||
$val .= $current;
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
|
||||
if (($def->{STATE} ne $val)) {
|
||||
$sensor = "statechange";
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
}
|
||||
|
||||
if ($battery ne '') {
|
||||
$sensor = "battery";
|
||||
$current = "Error";
|
||||
$current = "ok" if ($battery eq "batt_ok");
|
||||
$current = "low" if ($battery eq "batt_low");
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
}
|
||||
|
||||
} elsif ($device_type eq "kr18") {
|
||||
|
||||
$current = $command;
|
||||
|
||||
#$sensor = $def->{RFXX10REC_devicelog};
|
||||
$val = $current;
|
||||
#$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
#$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
#$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
|
||||
my @cmd_split = split(/-/, $command);
|
||||
$sensor = $cmd_split[0];
|
||||
$current = $cmd_split[1];
|
||||
$def->{READINGS}{$sensor}{TIME} = $tm;
|
||||
$def->{READINGS}{$sensor}{VAL} = $current;
|
||||
$def->{CHANGED}[$n++] = $sensor . ": " . $current;
|
||||
|
||||
} else {
|
||||
Log 1, "RFXX10REC: error unknown sensor type=$device_type $name devn=$device_name first=$firstdevice type=$command, user=$device, delay=$delay, batt=$battery (hex $hexdata)";
|
||||
return "RFXX10REC error unknown sensor type=$device_type for $device_name device=$device";
|
||||
}
|
||||
|
||||
if (($firstdevice == 1) && $val) {
|
||||
$def->{STATE} = $val;
|
||||
$def->{TIME} = $tm;
|
||||
$def->{CHANGED}[$n++] = $val;
|
||||
}
|
||||
|
||||
DoTrigger($name, undef);
|
||||
|
||||
return "";
|
||||
}
|
||||
|
||||
|
||||
sub
|
||||
RFXX10REC_Parse($$)
|
||||
{
|
||||
my ($hash, $msg) = @_;
|
||||
|
||||
my $time = time();
|
||||
my $hexline = unpack('H*', $msg);
|
||||
if ($time_old ==0) {
|
||||
Log 5, "RFXX10REC: decoding delay=0 hex=$hexline";
|
||||
} else {
|
||||
my $time_diff = $time - $time_old ;
|
||||
Log 5, "RFXX10REC: decoding delay=$time_diff hex=$hexline";
|
||||
}
|
||||
$time_old = $time;
|
||||
|
||||
# convert string to array of bytes. Skip length byte
|
||||
my @rfxcom_data_array = ();
|
||||
foreach (split(//, substr($msg,1))) {
|
||||
push (@rfxcom_data_array, ord($_) );
|
||||
}
|
||||
|
||||
my $bits = ord($msg);
|
||||
my $num_bytes = $bits >> 3; if (($bits & 0x7) != 0) { $num_bytes++; }
|
||||
|
||||
my $res = "";
|
||||
if ($bits == 41) {
|
||||
Log 1, "RFXX10REC: bits=$bits num_bytes=$num_bytes hex=$hexline" if ($RFXX10REC_debug == 1);
|
||||
$res = RFXX10REC_parse_X10Sec(\@rfxcom_data_array);
|
||||
Log 1, "RFXX10REC: unsupported hex=$hexline" if ($res ne "" && $res !~ /^UNDEFINED.*/);
|
||||
return $res;
|
||||
} elsif ($bits == 32) {
|
||||
Log 1, "RFXX10REC: bits=$bits num_bytes=$num_bytes hex=$hexline" if ($RFXX10REC_debug == 1);
|
||||
$res = RFXX10REC_parse_X10(\@rfxcom_data_array);
|
||||
Log 1, "RFXX10REC: unsupported hex=$hexline" if ($res ne "" && $res !~ /^UNDEFINED.*/);
|
||||
return $res;
|
||||
} else {
|
||||
Log 0, "RFXX10REC: bits=$bits num_bytes=$num_bytes hex=$hexline";
|
||||
}
|
||||
|
||||
return "";
|
||||
}
|
||||
|
||||
1;
|
||||
Loading…
x
Reference in New Issue
Block a user