From 56f1f3b15ee5ad963abab36c41f88c614475da9c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 29 Dec 2009 11:15:31 +0000
Subject: [PATCH] Peters hex-fix

git-svn-id: https://svn.fhem.de/fhem/trunk@526 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/14_CUL_WS.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/14_CUL_WS.pm b/fhem/FHEM/14_CUL_WS.pm
index 0bda0666f..eb4b8583a 100755
--- a/fhem/FHEM/14_CUL_WS.pm
+++ b/fhem/FHEM/14_CUL_WS.pm
@@ -134,8 +134,8 @@ CUL_WS_Parse($$)
     if($typbyte == 3 && int(@a) > 8) {           # wind
       my $hun = ($firstbyte&8) ? 100 : 0;
       $wnd = ($a[6].$a[3].".".$a[4])+$hun;
-      my $dir  = (($a[7]&3).$a[8].$a[5])+0;
-      my $swing = ($a[7]&6) >> 2;
+      my $dir  = ((hex($a[7])&3).$a[8].$a[5])+0;
+      my $swing = (hex($a[7])&6) >> 2;
       $val = "W: $wnd D: $dir A: $swing";
       $devtype = "Wind";
       $family = "WS7000";