FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 11:16:36 +00:00
Code Issues Releases Wiki Activity

Peters hex-fix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@526 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2009-12-29 11:15:31 +00:00
parent 26fc4be85e
commit 56f1f3b15e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/14_CUL_WS.pm
View File

@ -134,8 +134,8 @@ CUL_WS_Parse($$)
if($typbyte == 3 && int(@a) > 8) { # wind if($typbyte == 3 && int(@a) > 8) { # wind
my $hun = ($firstbyte&8) ? 100 : 0; my $hun = ($firstbyte&8) ? 100 : 0;
$wnd = ($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 = ((hex($a[7])&3).$a[8].$a[5])+0;
my $swing = ($a[7]&6) >> 2; my $swing = (hex($a[7])&6) >> 2;
$val = "W: $wnd D: $dir A: $swing"; $val = "W: $wnd D: $dir A: $swing";
$devtype = "Wind"; $devtype = "Wind";
$family = "WS7000"; $family = "WS7000";