mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-09 08:36:36 +00:00
150 lines
3.6 KiB
Perl
Executable File
150 lines
3.6 KiB
Perl
Executable File
#################################################################################
|
|
# 46_TRX_ELSE.pm
|
|
#
|
|
# FHEM module unkown RFXtrx433 messages
|
|
#
|
|
# Copyright (C) 2012 Willi Herzig
|
|
#
|
|
# This program is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU General Public License
|
|
# as published by the Free Software Foundation; either version 2
|
|
# of the License, or (at your option) any later version.
|
|
#
|
|
# This program 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. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
#
|
|
# The GNU General Public License may also be found at http://www.gnu.org/licenses/gpl-2.0.html .
|
|
###################################
|
|
#
|
|
# values for "set global verbose"
|
|
# 4: log unknown protocols
|
|
# 5: log decoding hexlines for debugging
|
|
#
|
|
# $Id$
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Debug this module? YES = 1, NO = 0
|
|
my $TRX_ELSE_debug = 0;
|
|
|
|
my $time_old = 0;
|
|
|
|
sub
|
|
TRX_ELSE_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
$hash->{Match} = "^...*";
|
|
$hash->{DefFn} = "TRX_ELSE_Define";
|
|
$hash->{UndefFn} = "TRX_ELSE_Undef";
|
|
$hash->{ParseFn} = "TRX_ELSE_Parse";
|
|
$hash->{AttrList} = "IODev do_not_notify:1,0 loglevel:0,1,2,3,4,5,6";
|
|
|
|
Log 1, "TRX_ELSE: Initialize" if ($TRX_ELSE_debug == 1);
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
TRX_ELSE_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
|
|
my $a = int(@a);
|
|
#print "a0 = $a[0]";
|
|
return "wrong syntax: define <name> TRX_ELSE code" if(int(@a) != 3);
|
|
|
|
my $name = $a[0];
|
|
my $code = $a[2];
|
|
|
|
$hash->{CODE} = $code;
|
|
#$modules{TRX_ELSE}{defptr}{$name} = $hash;
|
|
$modules{TRX_ELSE}{defptr}{$code} = $hash;
|
|
AssignIoPort($hash);
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
TRX_ELSE_Undef($$)
|
|
{
|
|
my ($hash, $name) = @_;
|
|
delete($modules{TRX_ELSE}{defptr}{$name});
|
|
return undef;
|
|
}
|
|
|
|
|
|
my $DOT = q{_};
|
|
|
|
sub
|
|
TRX_ELSE_Parse($$)
|
|
{
|
|
my ($hash, $msg) = @_;
|
|
|
|
my $time = time();
|
|
if ($time_old ==0) {
|
|
Log 5, "TRX_ELSE: decoding delay=0 hex=$msg";
|
|
} else {
|
|
my $time_diff = $time - $time_old ;
|
|
Log 5, "TRX_ELSE: decoding delay=$time_diff hex=$msg";
|
|
}
|
|
$time_old = $time;
|
|
|
|
# convert to binary
|
|
my $bin_msg = pack('H*', $msg);
|
|
#Log 1, "TRX_ELSE: 2 hex=$hexline";
|
|
|
|
# convert string to array of bytes. Skip length byte
|
|
my @rfxcom_data_array = ();
|
|
foreach (split(//, substr($bin_msg,1))) {
|
|
push (@rfxcom_data_array, ord($_) );
|
|
}
|
|
|
|
my $num_bytes = ord(substr($msg,0,1));
|
|
|
|
if ($num_bytes < 3) {
|
|
return;
|
|
}
|
|
|
|
my $type = $rfxcom_data_array[0];
|
|
|
|
Log 1, "TRX_ELSE: num_bytes=$num_bytes hex=$msg type=$type" if ($TRX_ELSE_debug == 1);
|
|
my $res = "";
|
|
if ($type == 0x02) {
|
|
my $subtype = $rfxcom_data_array[1];
|
|
my $msg = $rfxcom_data_array[2];
|
|
if (($msg != 0x00) && ($msg != 0x01)) {
|
|
Log 0, "TRX_ELSE: error transmit NACK=".sprintf("%02x",$msg);
|
|
}
|
|
} else {
|
|
Log 0, "TRX_ELSE: hex=$msg";
|
|
}
|
|
|
|
|
|
return "";
|
|
}
|
|
|
|
1;
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="TRX_ELSE"></a>
|
|
<h3>TRX_ELSE</h3>
|
|
<ul>
|
|
The TRX_ELSE module is invoked by TRX if a code is received by RFXCOM RFXtrx433 RF receiver that is currently not handled by a TRX_-Module. There is nothing to be defined for this module. You need to define an RFXtrx433 receiver first. See <a href="#TRX">TRX</a>.
|
|
<a name="TRX_SECURITYdefine"></a>
|
|
</ul>
|
|
|
|
=end html
|
|
=cut
|