From fae67acfd008fb04df6ec1a38a4bb2cd0d1e7c57 Mon Sep 17 00:00:00 2001 From: hcs-svn <> Date: Fri, 19 Jun 2015 16:29:21 +0000 Subject: [PATCH] 36_LaCrosse.pm: added default for autocreateThreshold and changed logging for unknown sensors git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@8778 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- FHEM/36_LaCrosse.pm | 48 ++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 45 insertions(+), 3 deletions(-) diff --git a/FHEM/36_LaCrosse.pm b/FHEM/36_LaCrosse.pm index 9c69e7d19..3b89fcfa0 100644 --- a/FHEM/36_LaCrosse.pm +++ b/FHEM/36_LaCrosse.pm @@ -29,6 +29,8 @@ sub LaCrosse_Initialize($) { ." filterThreshold" ." resolution" ." $readingFnAttributes"; + + $hash->{AutoCreate} = { "LaCrosse.*" => { autocreateThreshold => "2:120" } }; } sub LaCrosse_Define($$) { @@ -339,9 +341,40 @@ sub LaCrosse_Parse($$) { return ""; } } - Log3 $name, 3, "LaCrosse: Unknown device $rname, please define it"; - - Log3 $name, 3, "LaCrosse: check commandref on usage of LaCrossePairForSec" if( !$hash->{LaCrossePair} && !defined($modules{LaCrosse}{defptr}) ); + + # get info about autocreate + my $autoCreateState = 0; + my $laCrosseInIgnoreTypes = 0; + foreach my $d (keys %defs) { + next if($defs{$d}{TYPE} ne "autocreate"); + $autoCreateState = 1; + $autoCreateState = 2 if(!AttrVal($defs{$d}{NAME}, "disable", undef)); + + my $it = AttrVal($defs{$d}{NAME}, "ignoreTypes", ""); + if("LaCrosse" =~ m/$it/i) { + $laCrosseInIgnoreTypes = 1 + } + } + + # $autoCreateState + # ---------------- + # 0 = autoreate not defined + # 1 = autocreate defined + # 2 = autocreate active + + #$laCrosseInIgnoreTypes + #---------------------- + # 0 = no + # 1 = yes + + # decide how to log + my $loglevel = 4; + if($autoCreateState < 2 && $laCrosseInIgnoreTypes == 0) { + $loglevel = 3; + } + + Log3 $name, $loglevel, "LaCrosse: Unknown device $rname, please define it"; + Log3 $name, $loglevel, "LaCrosse: check commandref on usage of LaCrossePairForSec" if( !$hash->{LaCrossePair} && !defined($modules{LaCrosse}{defptr}) ); return "" if( !$hash->{LaCrossePair} ); @@ -547,6 +580,15 @@ sub LaCrosse_Parse($$) {