mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
2ffb9b2f15
WS2000: Changes from Peter CUL_WS: Sign changes from some strange 433MHz devices. git-svn-id: https://svn.fhem.de/fhem/trunk@243 2b470e98-0d58-463d-a4d8-8e2adae1ed80
98 lines
2.0 KiB
Perl
Executable File
98 lines
2.0 KiB
Perl
Executable File
##############################################
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my %defptr;
|
|
|
|
#####################################
|
|
sub
|
|
CUL_WS_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
# Message is like
|
|
# K41350270
|
|
|
|
$hash->{Match} = "^K........\$";
|
|
$hash->{DefFn} = "CUL_WS_Define";
|
|
$hash->{UndefFn} = "CUL_WS_Undef";
|
|
$hash->{ParseFn} = "CUL_WS_Parse";
|
|
$hash->{AttrList} = "do_not_notify:0,1 showtime:0,1 model:S300TH loglevel";
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
CUL_WS_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
|
|
return "wrong syntax: define <name> CUL_WS <code> [corr1 [corr2]]"
|
|
if(int(@a) < 3 || int(@a) > 5);
|
|
$a[2] = lc($a[2]);
|
|
return "Define $a[0]: wrong CODE format: valid is 1-7"
|
|
if($a[2] !~ m/^[1-7]$/);
|
|
|
|
$hash->{CODE} = $a[2];
|
|
$hash->{corr1} = ((int(@a) > 3) ? $a[3] : 0);
|
|
$hash->{corr2} = ((int(@a) > 4) ? $a[4] : 0);
|
|
$defptr{$a[2]} = $hash;
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
CUL_WS_Undef($$)
|
|
{
|
|
my ($hash, $name) = @_;
|
|
delete($defptr{$hash->{CODE}});
|
|
return undef;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub
|
|
CUL_WS_Parse($$)
|
|
{
|
|
my ($hash,$msg) = @_;
|
|
|
|
# 012345678
|
|
# K41505268 -> Code 5, T: 25.0 H: 68.5
|
|
|
|
my @a = split("", $msg);
|
|
my $firstbyte = hex($a[1]);
|
|
my $cde = ($firstbyte&7) + 1;
|
|
my $sgn = (($a[1]+0)&8) ? -1 : 1;
|
|
my $tmp = $sgn * ($a[6].$a[3].".".$a[4]);
|
|
my $hum = $a[7].$a[8].".".$a[5];
|
|
my $val = "T: $tmp H: $hum";
|
|
|
|
if($defptr{$cde}) {
|
|
$hash = $defptr{$cde};
|
|
$tmp += $hash->{corr1};
|
|
$hum += $hash->{corr2};
|
|
$val = "T: $tmp H: $hum";
|
|
my $n = $hash->{NAME};
|
|
Log GetLogLevel($n,1), "CUL_WS $n: $val";
|
|
$hash->{STATE} = $val;
|
|
|
|
$hash->{CHANGED}[0] = $val;
|
|
$hash->{STATE} = $val;
|
|
$hash->{READINGS}{state}{TIME} = TimeNow();
|
|
$hash->{READINGS}{state}{VAL} = $val;
|
|
|
|
return $hash->{NAME};
|
|
|
|
} else {
|
|
|
|
Log 1, "CUL_WS detected, Code $cde $val";
|
|
|
|
}
|
|
|
|
return "";
|
|
}
|
|
|
|
1;
|