From fe79012af2e9d8fb30e287c0f5f988fca3945451 Mon Sep 17 00:00:00 2001
From: phenning <phenning@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 26 Apr 2017 04:03:51 +0000
Subject: [PATCH] 00_OWX.pm: Neue Debug-Routine zur Vorbereitung einer neuen
 Hauptversion.

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

diff --git a/fhem/FHEM/00_OWX.pm b/fhem/FHEM/00_OWX.pm
index 742a340bd..c1d23c3fb 100644
--- a/fhem/FHEM/00_OWX.pm
+++ b/fhem/FHEM/00_OWX.pm
@@ -1124,6 +1124,40 @@ sub OWX_WDBG($$$) {
     main::Log3($name, 1, $msg);
 }
 
+#######################################################################################
+#
+# OWX_WDBG - Write a debug message according to verbosity level
+#
+# Parameter $name= device name
+#           $lvl = verbosity level
+#           $msg = string message
+#           $bin = binary message
+#           
+########################################################################################
+
+sub OWX_WDBGL($$$$) {
+  my ($name,$lvl,$msg,$bin) = @_;
+     
+  if(defined($name) &&
+    defined($attr{$name}) &&
+    defined (my $devlevel = $attr{$name}{verbose})) {
+    return if($lvl > $devlevel);
+
+  } else {
+    return if($lvl > $attr{global}{verbose});
+  }
+
+  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
@@ -2480,6 +2514,8 @@ sub OWX_Verify_CCC ($$) {
 1;
 
 =pod
+=item device
+=item summary backend module for the OWX system
 =begin html
 
 <a name="OWX"></a>