From b067a67fedf20762c2a7a38c0f008b1064f711d6 Mon Sep 17 00:00:00 2001 From: KernSani Date: Tue, 6 Feb 2018 18:34:15 +0000 Subject: [PATCH] 98_freezemon:fixed incomplete renaming of attribute fm_freezeThreshold git-svn-id: https://svn.fhem.de/fhem/trunk@16103 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_freezemon.pm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/fhem/FHEM/98_freezemon.pm b/fhem/FHEM/98_freezemon.pm index 4da6d88ad..e8459b3bf 100644 --- a/fhem/FHEM/98_freezemon.pm +++ b/fhem/FHEM/98_freezemon.pm @@ -22,6 +22,7 @@ # ############################################################################## # Changelog: +# 0.0.09: fixed incomplete renaming of Attribute fm_freezeThreshold # 0.0.08: trimming of very long lines in "get freeze" # start freezemon only after INITIALIZED|REREADCFG (and as late as possible) # 0.0.07: just for fun - added some color to "get freeze" @@ -46,7 +47,7 @@ ############################################################################## ############################################################################## # Todo: -# currently nothing... +# adjust to optimized handleTimeout # # # @@ -64,7 +65,7 @@ use B qw(svref_2object); -my $version = "0.0.07"; +my $version = "0.0.09"; ################################### sub freezemon_Initialize($) { @@ -119,7 +120,7 @@ sub freezemon_Define($$) { my $next = int(gettimeofday()) + 1; $hash->{helper}{TIMER} = $next; InternalTimer($next, 'freezemon_ProcessTimer', $hash, 0); - Log3 $name, 2, "FreezeMon: $name ready to watch out for delays greater than ".AttrVal($name, "fm_freezeTime",1)." second(s)"; + Log3 $name, 2, "FreezeMon: $name ready to watch out for delays greater than ".AttrVal($name, "fm_freezeThreshold",1)." second(s)"; } $hash->{VERSION} = $version; @@ -148,7 +149,7 @@ sub freezemon_Notify($$) my $next = int(gettimeofday()) + 1; $hash->{helper}{TIMER} = $next; InternalTimer($next, 'freezemon_ProcessTimer', $hash, 0); - Log3 $name, 2, "FreezeMon: $name ready to watch out for delays greater than ".AttrVal($name, "fm_freezeTime",1)." second(s)"; + Log3 $name, 2, "FreezeMon: $name ready to watch out for delays greater than ".AttrVal($name, "fm_freezeThreshold",1)." second(s)"; } ################################### sub freezemon_ProcessTimer($) @@ -163,7 +164,7 @@ sub freezemon_ProcessTimer($) #Check Freezes - if ($freeze > AttrVal($name, "fm_freezeTime",1)) + if ($freeze > AttrVal($name, "fm_freezeThreshold",1)) { my $dev = $hash->{helper}{apptime}; my $guys = ""; @@ -490,7 +491,7 @@ if(%prioQueues) { Attributes