FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-06 06:08:44 +00:00
Code Issues Releases Wiki Activity

OWX.pm: Minimale Anpassung vor Weiterentwicklung

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11098 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
pahenning 2016-03-20 13:03:21 +00:00
parent ee18a00576
commit 94c2b0a387
1 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
fhem/FHEM/00_OWX.pm
View File

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