From 211b11bc13eaac15a36f0bbeda1a7add1f45672c Mon Sep 17 00:00:00 2001 From: justme1968 Date: Fri, 13 Feb 2015 19:39:14 +0000 Subject: [PATCH] 30_LIGHTIFY.pm: log canditade for type git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7962 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/30_LIGHTIFY.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/30_LIGHTIFY.pm b/fhem/FHEM/30_LIGHTIFY.pm index 0ab5f32b0..ec6614d26 100644 --- a/fhem/FHEM/30_LIGHTIFY.pm +++ b/fhem/FHEM/30_LIGHTIFY.pm @@ -367,6 +367,7 @@ LIGHTIFY_Parse($$) for( my $i = 0; $i < $nr_lights; ++$i ) { my $short = substr($hex,$i*42*2+2*11,2*2); my $id = substr($hex,$i*42*2+2*13,2*8); + my $type = substr($hex,$i*42*2+2*21,2*1); my $onoff = hex(substr($hex,$i*42*2+2*29,2*1)); my $dim = hex(substr($hex,$i*42*2+2*30,2*1)); my $ct = hex(substr($hex,$i*42*2+2*32,2*1).substr($hex,$i*42*2+2*31,2*1)); @@ -374,7 +375,7 @@ LIGHTIFY_Parse($$) my $g = (substr($hex,$i*42*2+2*34,2*1)); my $b = (substr($hex,$i*42*2+2*35,2*1)); my $alias = pack('H*', substr($hex,$i*42*2+2*37,2*16)); -Log 3, "$alias: $id:$short, onoff: $onoff, dim: $dim, ct: $ct, rgb: $r$g$b"; +Log 3, "$alias: $id:$short, type?: $type, onoff: $onoff, dim: $dim, ct: $ct, rgb: $r$g$b"; #my $code = $id; @@ -451,7 +452,7 @@ LIGHTIFY_Read($) } my $hex = unpack('H*', $buf); - Log3 $name, 3, "$name: received: $hex"; + Log3 $name, 4, "$name: received: $hex"; LIGHTIFY_Parse($hash, $hex); }