mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-03 16:56:54 +00:00
Reformatted, Moved devicetype / family to separate READINGS,
reporting BOGUS for negative $hum values git-svn-id: https://svn.fhem.de/fhem/trunk@400 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
parent
2ad1654c24
commit
a49f5c1d95
@ -12,9 +12,6 @@ my %defptr;
|
|||||||
# WS2000/WS7000
|
# WS2000/WS7000
|
||||||
#
|
#
|
||||||
|
|
||||||
my $Station8 = "WS300";
|
|
||||||
my $Station4 = "WS7000";
|
|
||||||
|
|
||||||
#####################################
|
#####################################
|
||||||
sub
|
sub
|
||||||
CUL_WS_Initialize($)
|
CUL_WS_Initialize($)
|
||||||
@ -91,11 +88,10 @@ CUL_WS_Parse($$)
|
|||||||
$def = $defptr{$cde} if(!$def);
|
$def = $defptr{$cde} if(!$def);
|
||||||
return "" if($def->{IODev} && $def->{IODev}{NAME} ne $hash->{NAME});
|
return "" if($def->{IODev} && $def->{IODev}{NAME} ne $hash->{NAME});
|
||||||
|
|
||||||
if(!$def)
|
if(!$def) {
|
||||||
{
|
Log 1, "CUL_WS UNDEFINED $type sensor detected, code $cde";
|
||||||
Log 1, "CUL_WS UNDEFINED $type sensor detected, code $cde";
|
return "UNDEFINED CUL_WS: $cde";
|
||||||
# return "UNDEFINED CUL_WS: $cde";
|
}
|
||||||
}
|
|
||||||
|
|
||||||
my $tm=TimeNow();
|
my $tm=TimeNow();
|
||||||
$hash = $def;
|
$hash = $def;
|
||||||
@ -104,61 +100,60 @@ CUL_WS_Parse($$)
|
|||||||
my $sfirstbyte = $firstbyte & 7;
|
my $sfirstbyte = $firstbyte & 7;
|
||||||
my $val = "";
|
my $val = "";
|
||||||
my $devtype = "unknown";
|
my $devtype = "unknown";
|
||||||
|
my $family = "unknown";
|
||||||
|
my ($sgn, $tmp, $rain, $hum, $prs, $wnd);
|
||||||
|
|
||||||
if($sfirstbyte == 7)
|
if($sfirstbyte == 7) {
|
||||||
{
|
|
||||||
if($typbyte == 0)
|
if($typbyte == 0) { # temp
|
||||||
{
|
$sgn = ($firstbyte&8) ? -1 : 1;
|
||||||
my $sgn = ($firstbyte&8) ? -1 : 1;
|
$tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
||||||
my $tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
|
||||||
$val = "T: $tmp";
|
$val = "T: $tmp";
|
||||||
$devtype = "??? Temp";
|
$devtype = "Temp";
|
||||||
}
|
}
|
||||||
|
|
||||||
if($typbyte == 1)
|
if($typbyte == 1) { # temp/hum
|
||||||
{
|
$sgn = ($firstbyte&8) ? -1 : 1;
|
||||||
my $sgn = ($firstbyte&8) ? -1 : 1;
|
$tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
||||||
my $tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
$hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
||||||
my $hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
|
||||||
$val = "T: $tmp H: $hum";
|
$val = "T: $tmp H: $hum";
|
||||||
$devtype = "$Station8 PS50";
|
$devtype = "PS50";
|
||||||
}
|
$family = "WS300";
|
||||||
|
}
|
||||||
|
|
||||||
if($typbyte == 2)
|
if($typbyte == 2) { # rain
|
||||||
{
|
|
||||||
#my $more = ($firstbyte&8) ? 0 : 1000;
|
#my $more = ($firstbyte&8) ? 0 : 1000;
|
||||||
my $c = $hash->{corr1} ? $hash->{corr1} : 1;
|
my $c = $hash->{corr1} ? $hash->{corr1} : 1;
|
||||||
my $hexcount = hex($a[5].$a[3].$a[4]) + $c;
|
$rain = hex($a[5].$a[3].$a[4]) + $c;
|
||||||
$val = "R: $hexcount";
|
$val = "R: $rain";
|
||||||
$devtype = "$Station4 Rain";
|
$devtype = "Rain";
|
||||||
}
|
$family = "WS300";
|
||||||
|
}
|
||||||
|
|
||||||
if($typbyte == 3)
|
if($typbyte == 3) { # wind
|
||||||
{
|
|
||||||
my $hun = ($firstbyte&8) ? 100 : 0;
|
my $hun = ($firstbyte&8) ? 100 : 0;
|
||||||
my $speed = ($a[6].$a[3].".".$a[4])+$hun;
|
$wnd = ($a[6].$a[3].".".$a[4])+$hun;
|
||||||
my $dir = (($a[7]&3).$a[8].$a[5])+0;
|
my $dir = (($a[7]&3).$a[8].$a[5])+0;
|
||||||
my $swing = ($a[7]&6) >> 2;
|
my $swing = ($a[7]&6) >> 2;
|
||||||
$val = "W: $speed D: $dir A: $swing";
|
$val = "W: $wnd D: $dir A: $swing";
|
||||||
$devtype = "$Station4 Wind";
|
$devtype = "Wind";
|
||||||
}
|
$family = "WS300";
|
||||||
|
}
|
||||||
|
|
||||||
if($typbyte == 4)
|
if($typbyte == 4) { # temp/hum/press
|
||||||
{
|
$sgn = ($firstbyte&8) ? -1 : 1;
|
||||||
my $sgn = ($firstbyte&8) ? -1 : 1;
|
$tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
||||||
my $tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
$hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
||||||
my $hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
$prs = ($a[9].$a[10])+ 900 + $hash->{corr3};
|
||||||
my $prs = ($a[9].$a[10])+ 900 + $hash->{corr3};
|
if($prs < 930) {
|
||||||
if ($prs < 930)
|
$prs = $prs + 100;
|
||||||
{
|
}
|
||||||
$prs = $prs + 100;
|
|
||||||
}
|
|
||||||
$val = "T: $tmp H: $hum P: $prs";
|
$val = "T: $tmp H: $hum P: $prs";
|
||||||
$devtype = "$Station4 Indoor";
|
$devtype = "Indoor";
|
||||||
}
|
$family = "WS300";
|
||||||
|
}
|
||||||
|
|
||||||
if($typbyte == 5)
|
if($typbyte == 5) { # brightness
|
||||||
{
|
|
||||||
my $fakt = 1;
|
my $fakt = 1;
|
||||||
my $rawfakt = ($a[5])+0;
|
my $rawfakt = ($a[5])+0;
|
||||||
if($rawfakt == 1) { $fakt = 10; }
|
if($rawfakt == 1) { $fakt = 10; }
|
||||||
@ -167,94 +162,80 @@ if($sfirstbyte == 7)
|
|||||||
|
|
||||||
my $br = (hex($a[5].$a[4].$a[3])*$fakt) + $hash->{corr1};
|
my $br = (hex($a[5].$a[4].$a[3])*$fakt) + $hash->{corr1};
|
||||||
$val = "B: $br";
|
$val = "B: $br";
|
||||||
$devtype = "$Station4 Brightness";
|
$devtype = "Brightness";
|
||||||
}
|
$family = "WS300";
|
||||||
|
}
|
||||||
|
|
||||||
if($typbyte == 6)
|
if($typbyte == 6) { # Pyro: wurde nie gebaut
|
||||||
{ #wurde nie gebaut
|
$devtype = "Pyro";
|
||||||
$devtype = "$Station4 Pyro";
|
$family = "WS300";
|
||||||
}
|
}
|
||||||
|
|
||||||
if($typbyte == 7)
|
if($typbyte == 7) { # Temp/hum
|
||||||
{
|
$sgn = ($firstbyte&8) ? -1 : 1;
|
||||||
# if(@a == 9)
|
$tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
||||||
# { # S300TH
|
$hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
||||||
# my $sgn = ($firstbyte&8) ? -1 : 1;
|
|
||||||
# my $tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
|
||||||
# my $hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
|
||||||
# $val = "T: $tmp H: $hum";
|
|
||||||
# $devtype = "S300TH";
|
|
||||||
# }
|
|
||||||
# elsif(@a == 15)
|
|
||||||
# { # KS300/2#
|
|
||||||
#
|
|
||||||
# my $c = $hash->{corr4} ? $hash->{corr4} : 255;
|
|
||||||
# my $rain = sprintf("%0.1f", hex("$a[14]$a[11]$a[12]") * $c / 1000);
|
|
||||||
# my $wnd = sprintf("%0.1f", "$a[9]$a[10].$a[7]" + $hash->{corr3});
|
|
||||||
# my $hum = sprintf( "%02d", "$a[8]$a[5]" + $hash->{corr2});
|
|
||||||
# my $tmp = sprintf("%0.1f", ("$a[6]$a[3].$a[4]"+$hash->{corr1}) *
|
|
||||||
# (($a[1] & 0xC) ? -1 : 1));
|
|
||||||
# my $ir = ((hex($a[1]) & 2)) ? "yes" : "no";
|
|
||||||
|
|
||||||
# $val = "T: $tmp H: $hum W: $wnd R: $rain IR: $ir";
|
|
||||||
# $devtype = "KS300/2";
|
|
||||||
# }
|
|
||||||
# else
|
|
||||||
# {
|
|
||||||
my $sgn = ($firstbyte&8) ? -1 : 1;
|
|
||||||
my $tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
|
||||||
my $hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
|
||||||
$val = "T: $tmp H: $hum";
|
|
||||||
$devtype = "??? Temp/Hum";
|
|
||||||
# }
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
#$firstbyte not 7
|
|
||||||
if(@a == 9)
|
|
||||||
{ # S300TH
|
|
||||||
my $sgn = ($firstbyte&8) ? -1 : 1;
|
|
||||||
my $tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
|
||||||
my $hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
|
||||||
$val = "T: $tmp H: $hum";
|
|
||||||
$devtype = "$Station8 S300TH";
|
|
||||||
}
|
|
||||||
elsif(@a == 15)
|
|
||||||
{ # KS300/2
|
|
||||||
|
|
||||||
my $c = $hash->{corr4} ? $hash->{corr4} : 255;
|
|
||||||
my $rain = sprintf("%0.1f", hex("$a[14]$a[11]$a[12]") * $c / 1000);
|
|
||||||
my $wnd = sprintf("%0.1f", "$a[9]$a[10].$a[7]" + $hash->{corr3});
|
|
||||||
my $hum = sprintf( "%02d", "$a[8]$a[5]" + $hash->{corr2});
|
|
||||||
my $tmp = sprintf("%0.1f", ("$a[6]$a[3].$a[4]"+ $hash->{corr1}),
|
|
||||||
(($a[1] & 0xC) ? -1 : 1));
|
|
||||||
my $ir = ((hex($a[1]) & 2)) ? "yes" : "no";
|
|
||||||
|
|
||||||
$val = "T: $tmp H: $hum W: $wnd R: $rain IR: $ir";
|
|
||||||
$devtype = "$Station8 KS300/2";
|
|
||||||
}
|
|
||||||
else #WS7000 Temp/Hum sensors
|
|
||||||
{
|
|
||||||
my $sgn = ($firstbyte&8) ? -1 : 1;
|
|
||||||
my $tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
|
||||||
my $hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
|
||||||
$val = "T: $tmp H: $hum";
|
$val = "T: $tmp H: $hum";
|
||||||
$devtype = "WS7000 TH".$sfirstbyte;
|
$devtype = "Temp/Hum";
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
my $name = $hash->{NAME};
|
}
|
||||||
Log GetLogLevel($name,4), "CUL_WS $devtype $name: $val";
|
|
||||||
|
|
||||||
$hash->{STATE} = $val; # List overview
|
} else { # $firstbyte not 7
|
||||||
$hash->{READINGS}{state}{TIME} = TimeNow(); # For list
|
|
||||||
$hash->{READINGS}{state}{VAL} = $val;
|
|
||||||
$hash->{CHANGED}[0] = $val; # For notify
|
|
||||||
$hash->{READINGS}{$devtype}{VAL}=$val;
|
|
||||||
$hash->{READINGS}{$devtype}{TIME}=$tm;
|
|
||||||
|
|
||||||
return $name;
|
if(@a == 9) { # S300TH
|
||||||
|
$sgn = ($firstbyte&8) ? -1 : 1;
|
||||||
|
$tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
||||||
|
$hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
||||||
|
$val = "T: $tmp H: $hum";
|
||||||
|
$devtype = "S300TH";
|
||||||
|
$family = "WS300";
|
||||||
|
|
||||||
|
} elsif(@a == 15) { # KS300/2
|
||||||
|
|
||||||
|
my $c = $hash->{corr4} ? $hash->{corr4} : 255;
|
||||||
|
$rain = sprintf("%0.1f", hex("$a[14]$a[11]$a[12]") * $c / 1000);
|
||||||
|
$wnd = sprintf("%0.1f", "$a[9]$a[10].$a[7]" + $hash->{corr3});
|
||||||
|
$hum = sprintf( "%02d", "$a[8]$a[5]" + $hash->{corr2});
|
||||||
|
$tmp = sprintf("%0.1f", ("$a[6]$a[3].$a[4]"+ $hash->{corr1}),
|
||||||
|
(($a[1] & 0xC) ? -1 : 1));
|
||||||
|
my $ir = ((hex($a[1]) & 2)) ? "yes" : "no";
|
||||||
|
|
||||||
|
$val = "T: $tmp H: $hum W: $wnd R: $rain IR: $ir";
|
||||||
|
$devtype = "KS300/2";
|
||||||
|
$family = "WS300";
|
||||||
|
|
||||||
|
} else { # WS7000 Temp/Hum sensors
|
||||||
|
|
||||||
|
$sgn = ($firstbyte&8) ? -1 : 1;
|
||||||
|
$tmp = $sgn * ($a[6].$a[3].".".$a[4]) + $hash->{corr1};
|
||||||
|
$hum = ($a[7].$a[8].".".$a[5]) + $hash->{corr2};
|
||||||
|
$val = "T: $tmp H: $hum";
|
||||||
|
$devtype = "TH".$sfirstbyte;
|
||||||
|
$family = "WS7000";
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
my $name = $hash->{NAME};
|
||||||
|
Log GetLogLevel($name,4), "CUL_WS $devtype $name: $val";
|
||||||
|
|
||||||
|
if($hum < 0) {
|
||||||
|
Log 1, "BOGUS: $name reading: $val, skipping it";
|
||||||
|
return $name;
|
||||||
|
}
|
||||||
|
|
||||||
|
$hash->{STATE} = $val; # List overview
|
||||||
|
$hash->{READINGS}{state}{TIME} = TimeNow(); # For list
|
||||||
|
$hash->{READINGS}{state}{VAL} = $val;
|
||||||
|
$hash->{CHANGED}[0] = $val; # For notify
|
||||||
|
|
||||||
|
$hash->{READINGS}{DEVTYPE}{VAL}=$devtype;
|
||||||
|
$hash->{READINGS}{DEVTYPE}{TIME}=$tm;
|
||||||
|
$hash->{READINGS}{DEVFAMILY}{VAL}=$family;
|
||||||
|
$hash->{READINGS}{DEVFAMILY}{TIME}=$tm;
|
||||||
|
|
||||||
|
return $name;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub
|
sub
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user