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

76_SolarForecast.pm: contrib 0.26.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24125 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-04-02 12:20:29 +00:00
parent ff7ac1d031
commit 73554a77ae
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -117,7 +117,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"0.26.0" => "02.04.2021 rename attr maxPV to maxValBeam ", "0.26.0" => "02.04.2021 rename attr maxPV to maxValBeam, bugfix in _additionalEvents ",
"0.25.0" => "28.03.2021 changes regarding perlcritic, new getter valCurrent ", "0.25.0" => "28.03.2021 changes regarding perlcritic, new getter valCurrent ",
"0.24.0" => "26.03.2021 the language setting of the system is taken into account in the weather texts ". "0.24.0" => "26.03.2021 the language setting of the system is taken into account in the weather texts ".
"rename weatherColor_night to weatherColorNight, history_hour to historyHour ", "rename weatherColor_night to weatherColorNight, history_hour to historyHour ",
@ -693,7 +693,7 @@ sub _setmoduleTiltAngle { ## no critic "not used"
} }
while (my ($key, $value) = each %$h) { while (my ($key, $value) = each %$h) {
if($value !~ /^(?$tilt)$/x) { if($value !~ /^(?:$tilt)$/x) {
return qq{The tilt angle of "$key" is wrong}; return qq{The tilt angle of "$key" is wrong};
} }
} }
@ -724,7 +724,7 @@ sub _setmoduleDirection { ## no critic "not used"
} }
while (my ($key, $value) = each %$h) { while (my ($key, $value) = each %$h) {
if($value !~ /^(?$dirs)$/x) { if($value !~ /^(?:$dirs)$/x) {
return qq{The module direction of "$key" is wrong: $value}; return qq{The module direction of "$key" is wrong: $value};
} }
} }
@ -1388,6 +1388,7 @@ sub _additionalEvents {
my $tlim = "00"; # bestimmte Aktionen my $tlim = "00"; # bestimmte Aktionen
if($chour =~ /^($tlim)$/x) { if($chour =~ /^($tlim)$/x) {
if(!exists $hash->{HELPER}{H00DONE}) { if(!exists $hash->{HELPER}{H00DONE}) {
$date = strftime "%Y-%m-%d", localtime($t-7200); # Vortag (2 h Differenz reichen aus)
$ts = $date." 23:59:59".$tsmsec; $ts = $date." 23:59:59".$tsmsec;
$pvfc = ReadingsNum($name, "Today_Hour24_PVforecast", undef); $pvfc = ReadingsNum($name, "Today_Hour24_PVforecast", undef);