FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

76_SolarForecast.pm: contrib 0.74.7

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26937 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2023-01-01 18:07:08 +00:00
parent bfb28bcdc6
commit 5dcede333c
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fhem/contrib/DS_Starter/76_SolarForecast.pm
View File

@ -3,7 +3,7 @@
######################################################################################################################### #########################################################################################################################
# 76_SolarForecast.pm # 76_SolarForecast.pm
# #
# (c) 2020-2022 by Heiko Maaz e-mail: Heiko dot Maaz at t-online dot de # (c) 2020-2023 by Heiko Maaz e-mail: Heiko dot Maaz at t-online dot de
# #
# This script is part of fhem. # This script is part of fhem.
# #
@ -134,6 +134,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"0.74.7" => "23.01.2023 fix evaljson evaluation ",
"0.74.6" => "22.11.2022 bugfix consumerLegend tooltip start/end time if language is set to english ", "0.74.6" => "22.11.2022 bugfix consumerLegend tooltip start/end time if language is set to english ",
"0.74.5" => "21.11.2022 new Attr affectSolCastPercentile ", "0.74.5" => "21.11.2022 new Attr affectSolCastPercentile ",
"0.74.4" => "19.11.2022 calculate Today_PVreal from the etotal daily difference after sunset ", "0.74.4" => "19.11.2022 calculate Today_PVreal from the etotal daily difference after sunset ",
@ -1005,8 +1006,8 @@ sub _readCacheFile {
my ($error, @content) = FileRead ($file); my ($error, @content) = FileRead ($file);
if(!$error) { if(!$error) {
my $json = join "", @content; my $json = join "", @content;
my $success = evaljson ($hash, $json); my ($success) = evaljson ($hash, $json);
if($success) { if($success) {
$data{$hash->{TYPE}}{$name}{$cachename} = decode_json ($json); $data{$hash->{TYPE}}{$name}{$cachename} = decode_json ($json);
@ -3057,6 +3058,7 @@ sub centralTask {
$n = sprintf "%02d", $n; $n = sprintf "%02d", $n;
deleteReadingspec ($hash, "pvSolCastPercentile_${n}.*"); deleteReadingspec ($hash, "pvSolCastPercentile_${n}.*");
} }
#Log3 ($name, 1, "$name - all Hash Elemente:\n".Dumper $hash);
############################################################### ###############################################################
setModel ($hash); # Model setzen setModel ($hash); # Model setzen
@ -4820,14 +4822,16 @@ sub __planSwitchTimes {
my $dnp = ___noPlanRelease ($paref); my $dnp = ___noPlanRelease ($paref);
if ($dnp) { if ($dnp) {
if($debug =~ /consumerPlanning/x) { if($debug =~ /consumerPlanning/x) {
Log3 ($name, 4, qq{$name DEBUG> Planning consumer "$c" - name: }.ConsumerVal ($hash, $c, 'name', '')); Log3 ($name, 4, qq{$name DEBUG> Planning consumer "$c" - name: }.ConsumerVal ($hash, $c, 'name', '').
qq{ alias: }.ConsumerVal ($hash, $c, 'alias', ''));
Log3 ($name, 4, qq{$name DEBUG> Planning consumer "$c" - $dnp}); Log3 ($name, 4, qq{$name DEBUG> Planning consumer "$c" - $dnp});
} }
return; return;
} }
if($debug =~ /consumerPlanning/x) { if($debug =~ /consumerPlanning/x) {
Log3 ($name, 1, qq{$name DEBUG> Planning consumer "$c" - name: }.ConsumerVal ($hash, $c, 'name', '')); Log3 ($name, 1, qq{$name DEBUG> Planning consumer "$c" - name: }.ConsumerVal ($hash, $c, 'name', '').
qq{ alias: }.ConsumerVal ($hash, $c, 'alias', ''));
} }
my $type = $paref->{type}; my $type = $paref->{type};