mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-10 09:16:53 +00:00
76_SolarForecast.pm: contrib 0.68.5
git-svn-id: https://svn.fhem.de/fhem/trunk@26481 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1
parent
ae48821114
commit
deb0b30f41
@ -126,6 +126,7 @@ BEGIN {
|
|||||||
|
|
||||||
# Versions History intern
|
# Versions History intern
|
||||||
my %vNotesIntern = (
|
my %vNotesIntern = (
|
||||||
|
"0.68.5 "=> "03.10.2022 extent plant configuration check ",
|
||||||
"0.68.4 "=> "03.10.2022 do ___setLastAPIcallKeyData if response_status, generate events of Today_MaxPVforecast.* in every cycle ".
|
"0.68.4 "=> "03.10.2022 do ___setLastAPIcallKeyData if response_status, generate events of Today_MaxPVforecast.* in every cycle ".
|
||||||
"add SolCast section in _graphicHeader, change default colors and settings, new reading Today_PVreal ".
|
"add SolCast section in _graphicHeader, change default colors and settings, new reading Today_PVreal ".
|
||||||
"fix sub __setConsRcmdState ",
|
"fix sub __setConsRcmdState ",
|
||||||
@ -397,6 +398,8 @@ my %hqtxt = (
|
|||||||
DE => qq{Stand:} },
|
DE => qq{Stand:} },
|
||||||
autoct => { EN => qq{automatic correction:},
|
autoct => { EN => qq{automatic correction:},
|
||||||
DE => qq{automatische Korrektur:} },
|
DE => qq{automatische Korrektur:} },
|
||||||
|
plntck => { EN => qq{Plant Configurationcheck Information},
|
||||||
|
DE => qq{Informationen zur Anlagenkonfigurationsprüfung} },
|
||||||
lbpcq => { EN => qq{correction quality current hour:},
|
lbpcq => { EN => qq{correction quality current hour:},
|
||||||
DE => qq{Korrekturqualität akt. Stunde:} },
|
DE => qq{Korrekturqualität akt. Stunde:} },
|
||||||
lblPvh => { EN => qq{next 4h:},
|
lblPvh => { EN => qq{next 4h:},
|
||||||
@ -413,10 +416,12 @@ my %hqtxt = (
|
|||||||
DE => qq{nach} },
|
DE => qq{nach} },
|
||||||
pstate => { EN => qq{Planning status: <pstate><br>On: <start><br>Off: <stop>},
|
pstate => { EN => qq{Planning status: <pstate><br>On: <start><br>Off: <stop>},
|
||||||
DE => qq{Planungsstatus: <pstate><br>Ein: <start><br>Aus: <stop>} },
|
DE => qq{Planungsstatus: <pstate><br>Ein: <start><br>Aus: <stop>} },
|
||||||
strok => { EN => qq{Congratulations 😊, your system configuration has been checked and is error-free !},
|
strok => { EN => qq{Congratulations 😊, your system configuration has been checked and is error-free !},
|
||||||
DE => qq{Herzlichen Glückwunsch 😊, ihre Anlagenkonfiguration wurde geprüft und ist fehlerfrei !} },
|
DE => qq{Herzlichen Glückwunsch 😊, ihre Anlagenkonfiguration wurde geprüft und ist fehlerfrei !} },
|
||||||
strnok => { EN => qq{Oh no 🙁, your string configuration is inconsistent.\nPlease check the settings !},
|
strwn => { EN => qq{Looks quite good 😐, the check of the plant configuration showed only warnings !},
|
||||||
DE => qq{Oh nein 🙁, Ihre String-Konfiguration ist inkonsistent.\nBitte überprüfen Sie die Einstellungen !} },
|
DE => qq{Sieht ganz gut aus 😐, die Prüfung der Anlagenkonfiguration ergab nur Warnungen !} },
|
||||||
|
strnok => { EN => qq{Oh no 🙁, your string configuration is inconsistent.\nPlease check the settings !},
|
||||||
|
DE => qq{Oh nein 🙁, Ihre String-Konfiguration ist inkonsistent.\nBitte überprüfen Sie die Einstellungen !} },
|
||||||
);
|
);
|
||||||
|
|
||||||
my %htitles = ( # Hash Hilfetexte (Mouse Over)
|
my %htitles = ( # Hash Hilfetexte (Mouse Over)
|
||||||
@ -3614,12 +3619,12 @@ sub _calcMaxEstimateToday {
|
|||||||
for my $idx (sort keys %{$data{$type}{$name}{nexthours}}) {
|
for my $idx (sort keys %{$data{$type}{$name}{nexthours}}) {
|
||||||
next if(!NexthoursVal ($hash, $idx, 'today', 0));
|
next if(!NexthoursVal ($hash, $idx, 'today', 0));
|
||||||
|
|
||||||
my $pvfc = NexthoursVal ($hash, $idx, 'pvforecast', 0);
|
|
||||||
next if($pvfc < $maxest);
|
|
||||||
|
|
||||||
my $stt = NexthoursVal ($hash, $idx, 'starttime', '');
|
my $stt = NexthoursVal ($hash, $idx, 'starttime', '');
|
||||||
next if (!$stt);
|
next if (!$stt);
|
||||||
|
|
||||||
|
my $pvfc = NexthoursVal ($hash, $idx, 'pvforecast', 0);
|
||||||
|
next if($pvfc < $maxest);
|
||||||
|
|
||||||
$maxest = $pvfc;
|
$maxest = $pvfc;
|
||||||
$maxtim = $stt;
|
$maxtim = $stt;
|
||||||
}
|
}
|
||||||
@ -8365,19 +8370,18 @@ sub checkPlantConfig {
|
|||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
my $type = $hash->{TYPE};
|
my $type = $hash->{TYPE};
|
||||||
my $lang = AttrVal ("global", 'language', 'EN');
|
my $lang = AttrVal ("global", 'language', 'EN');
|
||||||
|
|
||||||
my $sc;
|
|
||||||
my $result = { 'stringconfig' => '', 'result' => '', 'state' => '', 'note' => '', 'fault' => 0 }; # Ergebnishash
|
|
||||||
my $cf = 0; # config fault: 1 -> Konfig fehlerhaft, 0 -> Konfig ok
|
|
||||||
|
|
||||||
my $err = createStringConfig ($hash);
|
|
||||||
|
|
||||||
if ($err) {
|
|
||||||
$cf = 1;
|
|
||||||
$sc .= $err."<br><br>";
|
|
||||||
}
|
|
||||||
|
|
||||||
my $stch = $data{$type}{$name}{strings};
|
my $stch = $data{$type}{$name}{strings};
|
||||||
|
my $cf = 0; # config fault: 1 -> Konfig fehlerhaft, 0 -> Konfig ok
|
||||||
|
my $wn = 0; # Warnung wenn 1
|
||||||
|
|
||||||
|
my $ok = FW_makeImage('10px-kreis-gruen.png', '');
|
||||||
|
my $nok = FW_makeImage('10px-kreis-rot.png', '');
|
||||||
|
my $warn = FW_makeImage('10px-kreis-gelb.png', '');
|
||||||
|
|
||||||
|
my $result = { # Ergebnishash
|
||||||
|
'String Configuration' => { 'state' => $ok, 'result' => '', 'note' => '', 'fault' => 0 },
|
||||||
|
'DWD Weather Attributes' => { 'state' => $ok, 'result' => '', 'note' => '', 'fault' => 0 },
|
||||||
|
};
|
||||||
|
|
||||||
my $sub = sub {
|
my $sub = sub {
|
||||||
my $string = shift;
|
my $string = shift;
|
||||||
@ -8391,47 +8395,188 @@ sub checkPlantConfig {
|
|||||||
return $ret;
|
return $ret;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
## Check Strings
|
||||||
|
##################
|
||||||
|
|
||||||
|
my $err = createStringConfig ($hash);
|
||||||
|
|
||||||
|
if ($err) {
|
||||||
|
$result->{'String Configuration'}{state} = $nok;
|
||||||
|
$result->{'String Configuration'}{result} = $err;
|
||||||
|
$result->{'String Configuration'}{fault} = 1;
|
||||||
|
}
|
||||||
|
|
||||||
for my $sn (sort keys %{$stch}) {
|
for my $sn (sort keys %{$stch}) {
|
||||||
my $sp = $sn." => ".$sub->($sn)."<br>";
|
my $sp = $sn." => ".$sub->($sn)."<br>";
|
||||||
|
$result->{'String Configuration'}{result} .= $sn." => ".$sub->($sn)."<br>";
|
||||||
|
|
||||||
if (!isSolCastUsed ($hash)) { # Strahlungsdevice DWD
|
if (!isSolCastUsed ($hash)) { # Strahlungsdevice DWD
|
||||||
$cf = 1 if($sp !~ /dir.*?peak.*?tilt/x); # Test Vollständigkeit: z.B. Süddach => dir: S, peak: 5.13, tilt: 45
|
$result->{'String Configuration'}{fault} = 1 if($sp !~ /dir.*?peak.*?tilt/x); # Test Vollständigkeit: z.B. Süddach => dir: S, peak: 5.13, tilt: 45
|
||||||
}
|
}
|
||||||
else { # Strahlungsdevice SolCast-API
|
else { # Strahlungsdevice SolCast-API
|
||||||
$cf = 1 if($sp !~ /peak.*?pk/x); # Test Vollständigkeit
|
$result->{'String Configuration'}{fault} = 1 if($sp !~ /peak.*?pk/x); # Test Vollständigkeit
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
$sc .= $sp;
|
## Check Attribute DWD Wetterdevice
|
||||||
}
|
#####################################
|
||||||
|
my $fcname = ReadingsVal($name, 'currentForecastDev', '');
|
||||||
|
|
||||||
$sc .= "<br><br>";
|
if (!$fcname || !$defs{$fcname}) {
|
||||||
|
$result->{'DWD Weather Attributes'}{state} = $nok;
|
||||||
if($cf) {
|
$result->{'DWD Weather Attributes'}{result} = qq{The DWD device "$fcname" doesn't exist};
|
||||||
$sc .= encode ("utf8", $hqtxt{strnok}{$lang});
|
$result->{'DWD Weather Attributes'}{fault} = 1;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
$sc .= encode ("utf8", $hqtxt{strok}{$lang});
|
$result->{'DWD Weather Attributes'}{note} = qq{checked attributes of device "$fcname":<br>}. join ' ', @dweattrmust;
|
||||||
|
$err = checkdwdattr ($name, $fcname, \@dweattrmust);
|
||||||
|
|
||||||
|
if ($err) {
|
||||||
|
$result->{'DWD Weather Attributes'}{state} = $nok;
|
||||||
|
$result->{'DWD Weather Attributes'}{result} = $err;
|
||||||
|
$result->{'DWD Weather Attributes'}{fault} = 1;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$result->{'DWD Weather Attributes'}{result} = 'fullfilled';
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
## Check Attribute DWD Radiation Device
|
||||||
|
#########################################
|
||||||
|
if (!isSolCastUsed ($hash)) {
|
||||||
|
$result->{'DWD Radiation Attributes'}{state} = $ok;
|
||||||
|
$result->{'DWD Radiation Attributes'}{result} = '';
|
||||||
|
$result->{'DWD Radiation Attributes'}{note} = '';
|
||||||
|
$result->{'DWD Radiation Attributes'}{fault} = 0;
|
||||||
|
|
||||||
|
my $raname = ReadingsVal($name, 'currentRadiationDev', '');
|
||||||
|
|
||||||
|
if (!$raname || !$defs{$raname}) {
|
||||||
|
$result->{'DWD Radiation Attributes'}{state} = $nok;
|
||||||
|
$result->{'DWD Radiation Attributes'}{result} = qq{The DWD device "$raname" doesn't exist};
|
||||||
|
$result->{'DWD Radiation Attributes'}{fault} = 1;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$result->{'DWD Radiation Attributes'}{note} = qq{checked attributes of device "$raname":<br>}. join ' ', @draattrmust;
|
||||||
|
$err = checkdwdattr ($name, $raname, \@draattrmust);
|
||||||
|
|
||||||
|
if ($err) {
|
||||||
|
$result->{'DWD Radiation Attributes'}{state} = $nok;
|
||||||
|
$result->{'DWD Radiation Attributes'}{result} = $err;
|
||||||
|
$result->{'DWD Radiation Attributes'}{fault} = 1;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$result->{'DWD Radiation Attributes'}{result} = 'fullfilled';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
## Check Roof Ident Pair Settings
|
||||||
|
###################################
|
||||||
|
if (isSolCastUsed ($hash)) {
|
||||||
|
$result->{'Roof Ident Pair Settings'}{state} = $ok;
|
||||||
|
$result->{'Roof Ident Pair Settings'}{result} = '';
|
||||||
|
$result->{'Roof Ident Pair Settings'}{note} = '';
|
||||||
|
$result->{'Roof Ident Pair Settings'}{fault} = 0;
|
||||||
|
|
||||||
|
my $rft = ReadingsVal($name, "moduleRoofTops", "");
|
||||||
|
my ($a,$h) = parseParams ($rft);
|
||||||
|
|
||||||
|
while (my ($is, $pk) = each %$h) {
|
||||||
|
my $rtid = SolCastAPIVal ($hash, '?IdPair', '?'.$pk, 'rtid', '');
|
||||||
|
my $apikey = SolCastAPIVal ($hash, '?IdPair', '?'.$pk, 'apikey', '');
|
||||||
|
|
||||||
|
if(!$rtid || !$apikey) {
|
||||||
|
my $res = qq{String "$is" has no Roof Ident Pair "$pk" defined or has no Rooftop-ID and/or SolCast-API key assigned. <br>};
|
||||||
|
my $note = qq{Set the Roof Ident Pair "$pk" with "set $name roofIdentPair". <br>};
|
||||||
|
|
||||||
|
$result->{'Roof Ident Pair Settings'}{state} = $nok;
|
||||||
|
$result->{'Roof Ident Pair Settings'}{result} .= $res;
|
||||||
|
$result->{'Roof Ident Pair Settings'}{note} .= $note;
|
||||||
|
$result->{'Roof Ident Pair Settings'}{fault} = 1;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$result->{'Roof Ident Pair Settings'}{result} = 'fullfilled' if(!$result->{'Roof Ident Pair Settings'}{fault});
|
||||||
|
$result->{'Roof Ident Pair Settings'}{note} .= qq{checked "$is" Roof Ident Pair "$pk":<br>rtid=$rtid, apikey=$apikey <br>};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
## Attr. Settings für SolCast
|
||||||
|
###############################
|
||||||
|
if (isSolCastUsed ($hash)) {
|
||||||
|
$result->{'SolCast Settings'}{state} = $ok;
|
||||||
|
$result->{'SolCast Settings'}{result} = '';
|
||||||
|
$result->{'SolCast Settings'}{note} = '';
|
||||||
|
$result->{'SolCast Settings'}{warn} = 0;
|
||||||
|
|
||||||
|
my $cfd = AttrVal ($name, 'cloudFactorDamping', '');
|
||||||
|
my $rfd = AttrVal ($name, 'rainFactorDamping', '');
|
||||||
|
my $pcf = ReadingsVal ($name, 'pvCorrectionFactor_Auto', '');
|
||||||
|
|
||||||
|
if ($cfd eq '' || $cfd != 0) {
|
||||||
|
$result->{'SolCast Settings'}{state} = $warn;
|
||||||
|
$result->{'SolCast Settings'}{result} .= qq{Attribute cloudFactorDamping is set to "$cfd"<br>};
|
||||||
|
$result->{'SolCast Settings'}{note} .= qq{It is recommended to set cloudFactorDamping explicitly to "0"<br>};
|
||||||
|
$result->{'SolCast Settings'}{warn} = 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($rfd eq '' || $rfd != 0) {
|
||||||
|
$result->{'SolCast Settings'}{state} = $warn;
|
||||||
|
$result->{'SolCast Settings'}{result} .= qq{Attribute rainFactorDamping is set to "$rfd"<br>};
|
||||||
|
$result->{'SolCast Settings'}{note} .= qq{It is recommended to set rainFactorDamping explicitly to "0"<br>};
|
||||||
|
$result->{'SolCast Settings'}{warn} = 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$pcf || $pcf ne 'off') {
|
||||||
|
$result->{'SolCast Settings'}{state} = $warn;
|
||||||
|
$result->{'SolCast Settings'}{result} .= qq{pvCorrectionFactor_Auto is set to "$pcf"<br>};
|
||||||
|
$result->{'SolCast Settings'}{note} .= qq{It is recommended to set pvCorrectionFactor_Auto to "off"<br>};
|
||||||
|
$result->{'SolCast Settings'}{warn} = 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
$result->{'SolCast Settings'}{result} = 'fullfilled' if(!$result->{'SolCast Settings'}{warn});
|
||||||
|
}
|
||||||
|
|
||||||
|
## Ausgabe
|
||||||
|
############
|
||||||
|
|
||||||
my $out = qq{<html>};
|
my $out = qq{<html>};
|
||||||
$out .= qq{<b>Plant Configuration check Info</b> <br><br>};
|
$out .= qq{<b>}.$hqtxt{plntck}{$lang}.qq{</b> <br><br>};
|
||||||
|
|
||||||
$out .= qq{<table class="roomoverview" style="text-align:left; border:1px solid; padding:5px; border-spacing:5px; margin-left:auto; margin-right:auto;">};
|
$out .= qq{<table class="roomoverview" style="text-align:left; border:1px solid; padding:5px; border-spacing:5px; margin-left:auto; margin-right:auto;">};
|
||||||
$out .= qq{<tr><td> <b>Object</b> </td><td> <b>Result</b> </td><td> <b>State</b> </td><td> <b>Note</b> </td></tr>};
|
$out .= qq{<tr style="text-decoration:underline; font-weight:bold;"><td> Object </td><td> State </td><td> Result </td><td> Note </td></tr>};
|
||||||
$out .= qq{<tr><td> </td><td> </td><td> </td><td> </td></tr>};
|
$out .= qq{<tr></tr>};
|
||||||
|
|
||||||
for my $key (sort keys %{$result}) {
|
for my $key (sort keys %{$result}) {
|
||||||
|
$cf = $result->{$key}{fault} if($result->{$key}{fault});
|
||||||
|
$wn = $result->{$key}{warn} if($result->{$key}{warn});
|
||||||
$out .= qq{<tr>};
|
$out .= qq{<tr>};
|
||||||
$out .= qq{<td> $result->{stringconfig} </td>};
|
$out .= qq{<td> <b>$key</b> </td>};
|
||||||
$out .= qq{<td> $result->{result} </td>};
|
$out .= qq{<td style="text-align: center"> $result->{$key}{state} </td>};
|
||||||
$out .= qq{<td style="text-align: center"> $result->{state} </td>};
|
$out .= qq{<td> $result->{$key}{result} </td>};
|
||||||
$out .= qq{<td style="text-align: center"> $result->{note} </td>};
|
$out .= qq{<td style="text-align: left"> $result->{$key}{note} </td>};
|
||||||
$out .= qq{</tr>};
|
$out .= qq{</tr>};
|
||||||
|
|
||||||
|
$out .= qq{<tr></tr>};
|
||||||
}
|
}
|
||||||
|
|
||||||
$out .= qq{</table>};
|
$out .= qq{</table>};
|
||||||
$out .= qq{</html>};
|
$out .= qq{</html>};
|
||||||
|
|
||||||
return $sc;
|
$out .= "<br><br>";
|
||||||
|
|
||||||
|
if($cf) {
|
||||||
|
$out .= encode ("utf8", $hqtxt{strnok}{$lang});
|
||||||
|
}
|
||||||
|
elsif ($wn) {
|
||||||
|
$out .= encode ("utf8", $hqtxt{strwn}{$lang});
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$out .= encode ("utf8", $hqtxt{strok}{$lang});
|
||||||
|
}
|
||||||
|
|
||||||
|
return $out;
|
||||||
}
|
}
|
||||||
|
|
||||||
################################################################
|
################################################################
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user