From 94c2b0a387ecb21c59319d2e001243325ee2c30c Mon Sep 17 00:00:00 2001
From: pahenning <>
Date: Sun, 20 Mar 2016 13:03:21 +0000
Subject: [PATCH] OWX.pm: Minimale Anpassung vor Weiterentwicklung

git-svn-id: https://svn.fhem.de/fhem/trunk@11098 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_OWX.pm | 30 ++++++++++++++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/00_OWX.pm b/fhem/FHEM/00_OWX.pm
index bd87698ba..742a340bd 100644
--- a/fhem/FHEM/00_OWX.pm
+++ b/fhem/FHEM/00_OWX.pm
@@ -57,6 +57,8 @@ package main;
 use strict;
 use warnings;
 
+use vars qw{%owg_family %gets %sets $owx_version $owx_debug};
+
 #-- unfortunately some things OS-dependent
 my $owgdevregexp;
 if( $^O =~ /Win/ ) {
@@ -97,7 +99,8 @@ my %attrs = (
 my $owx_baud=9600;
 my $owx_cmdlen;
 #-- Debugging 0,1,2,3
-my $owx_debug=0;
+$owx_debug=0;
+
 #-- 8 byte 1-Wire device address
 my @owx_ROM_ID  =(0,0,0,0 ,0,0,0,0); 
 #-- 16 byte search string
@@ -122,7 +125,7 @@ my $owx_LastDeviceFlag = 0;
 sub OWX_Initialize ($) {
   my ($hash) = @_;
   #-- Provider
-  $hash->{Clients}     = ":OWAD:OWCOUNT:OWID:OWLCD:OWMULTI:OWSWITCH:OWTHERM:";
+  $hash->{Clients}     = ":OWAD:OWCOUNT:OWID:OWLCD:OWMULTI:OWSWITCH:OWTHERM:OWVAR";
 
   #-- Normal Devices
   $hash->{DefFn}   = "OWX_Define";
@@ -1098,6 +1101,29 @@ sub OWX_Verify ($$) {
   }
 }
 
+#######################################################################################
+#
+# OWX_WDBG - Write a debug message
+#
+# Parameter $name= device name
+#           $msg = string message
+#           $bin = binary message
+#
+########################################################################################
+
+sub OWX_WDBG($$$) {
+  my ($name,$msg,$bin) = @_;
+  my ($i,$j,$k);
+    if( $bin ){ 
+      for($i=0;$i<length($bin);$i++){
+        $j=int(ord(substr($bin,$i,1))/16);
+        $k=ord(substr($bin,$i,1))%16;
+        $msg.=sprintf "0x%1x%1x ",$j,$k;
+      }
+    }
+    main::Log3($name, 1, $msg);
+}
+
 ########################################################################################
 #
 # The following subroutines in alphabetical order are only for direct serial bus interface