From aeac196b215a606748ef3727f7b1c569f40a8d10 Mon Sep 17 00:00:00 2001 From: DS_Starter Date: Thu, 24 Jul 2025 20:25:33 +0000 Subject: [PATCH] 76_SolarForecast: minor debug info change git-svn-id: https://svn.fhem.de/fhem/trunk@30149 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 1 + fhem/FHEM/76_SolarForecast.pm | 18 +++++++++++++----- 2 files changed, 14 insertions(+), 5 deletions(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index dfaefe271..c8ccf9ddd 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it + - change: 76_SolarForecast: minor debug info change - feature: 76_SolarForecast: Version 1.54.4 - feature: 76_SolarForecast: ctrlDebug new collectData_long - change: 76_SolarForecast: version 1.54.2, more debug info diff --git a/fhem/FHEM/76_SolarForecast.pm b/fhem/FHEM/76_SolarForecast.pm index f2ae72465..ef8bf7407 100644 --- a/fhem/FHEM/76_SolarForecast.pm +++ b/fhem/FHEM/76_SolarForecast.pm @@ -160,6 +160,7 @@ BEGIN { # Versions History intern my %vNotesIntern = ( + "1.54.5" => "24.07.2025 isAddSwitchOnCond/isAddSwitchOffCond: change debug info ", "1.54.4" => "22.07.2025 replace length by new sub strlength, Consumer attr new key 'aliasshort', change code of medianArray ". "medianArray: can optional use newest 3..20 elements, avgArray: use the newest elements if num is set ". "Debug consumerSwitching: print out info message of compare operation, remove attr graphicShowDiff ". @@ -641,6 +642,13 @@ my %svicons = ( # '3' => 'message_attention@red', # Standard Mitteilungs-Icon 3 - Fehler / Problem ); +my %intrptcatic = ( # Unterbrechungscharakteristik + '0' => 'simple false', + '1' => 'simple true', + '2' => 'Code return true', + '3' => 'Code return false', +); + my %hset = ( # Hash der Set-Funktion consumerImmediatePlanning => { fn => \&_setconsumerImmediatePlanning }, consumerNewPlanning => { fn => \&_setconsumerNewPlanning }, @@ -13131,7 +13139,7 @@ sub ___switchConsumerOn { my $isintable = isInterruptable ($hash, $c, 0, 1); # mit Ausgabe Interruptable Info im Debug if ($debug =~ /consumerSwitching${c}/x) { - Log3 ($name, 1, qq{$name DEBUG> consumer "$c" - Interrupt Characteristic value: $isintable}); + Log3 ($name, 1, qq{$name DEBUG> consumer "$c" - Interrupt Characteristic value: $isintable -> $intrptcatic{$isintable}}); } my $isConsRcmd = isConsRcmd ($hash, $c); @@ -23074,12 +23082,12 @@ sub isAddSwitchOnCond { } if ($true) { - $info = qq{The value “$condval” resulted in 'true' after exec "$swoncode" \n}; + $info = qq{The return value “$true” resulted in 'true' after exec "$swoncode" \n}; $info .= "-> Check successful "; $swon = 1; } else { - $info = qq{The value “$condval” resulted in 'false' after exec "$swoncode" \n}; + $info = qq{The return value “$true” resulted in 'false' after exec "$swoncode" \n}; $swon = 0; } } @@ -23148,12 +23156,12 @@ sub isAddSwitchOffCond { } if ($true) { - $info = qq{The reference value “$condval” resulted in 'true' after exec "$swoffcode" \n}; + $info = qq{The return value “$true” resulted in 'true' after exec "$swoffcode" \n}; $info .= "-> Check successful "; $swoff = 1; } else { - $info = qq{The reference value “$condval” resulted in 'false' after exec "$swoffcode" \n}; + $info = qq{The return value “$true” resulted in 'false' after exec "$swoffcode" \n}; $swoff = 0; } }