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

00_OWX.pm: Neue Debug-Routine zur Vorbereitung einer neuen Hauptversion.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14108 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
phenning 2017-04-26 04:03:51 +00:00
parent 223b8ca22c
commit 67d4e5defb
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
fhem/FHEM/00_OWX.pm
View File

@ -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>