FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-07 19:04:20 +00:00
Code Issues Releases Wiki Activity

76_Solarforcast: contrib 0.71.2

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26606 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2022-10-28 09:40:53 +00:00
parent 2d944a08dc
commit 1231d595c5
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -530,14 +530,14 @@ my %hqtxt = (
DE => qq{Stand:} },
wfmdcf => { EN => qq{Wait for more days with a consumption figure},
DE => qq{Warte auf weitere Tage mit einer Verbrauchszahl} },
autoct => { EN => qq{automatic correction:},
DE => qq{automatische Korrektur:} },
autoct => { EN => qq{Autocorrection:},
DE => qq{Autokorrektur:} },
plntck => { EN => qq{Plant Configurationcheck Information},
DE => qq{Informationen zur Anlagenkonfigurationsprüfung} },
lbpcq => { EN => qq{correction quality current hour:},
DE => qq{Korrekturqualität akt. Stunde:} },
lbpcq => { EN => qq{Quality:},
DE => qq{Qualität:} },
lblPvh => { EN => qq{next 4h:},
DE => qq{nächste 4h:} },
DE => qq{nächste 4h:} },
lblPRe => { EN => qq{remain today:},
DE => qq{Rest heute:} },
lblPTo => { EN => qq{tomorrow:},
@ -575,6 +575,8 @@ my %htitles = (
DE => qq{Ein -> Verbraucher ausschalten} },
iens => { EN => qq{On -> no off-command defined!},
DE => qq{Ein -> kein off-Kommando definiert!} },
natc => { EN => qq{automatic cycle:},
DE => qq{automatischer Zyklus:} },
upd => { EN => qq{Click for update},
DE => qq{Klick für Update} },
on => { EN => qq{switched on},
@ -2989,7 +2991,7 @@ sub centralTask {
if($init_done == 1) {
if(!$interval) {
$hash->{MODE} = "Manual";
readingsSingleUpdate($hash, "nextCycletime", "Manual", 1);
readingsSingleUpdate($hash, 'nextCycletime', 'Manual', 1);
}
else {
my $new = gettimeofday()+$interval;
@ -2997,7 +2999,7 @@ sub centralTask {
if(!IsDisabled($name)) {
$hash->{MODE} = "Automatic - next Cycletime: ".FmtTime($new);
readingsSingleUpdate($hash, "nextCycletime", FmtTime($new), 1);
readingsSingleUpdate($hash, 'nextCycletime', FmtTime($new), 1);
}
}
@ -6505,8 +6507,8 @@ sub _graphicHeader {
my $lupt = $hqtxt{lupt}{$lang};
my $autoct = $hqtxt{autoct}{$lang};
my $lbpcq = encode("utf8", $hqtxt{lbpcq}{$lang});
my $lblPv4h = encode("utf8", $hqtxt{lblPvh}{$lang});
my $lbpcq = $hqtxt{lbpcq}{$lang};
my $lblPv4h = $hqtxt{lblPvh}{$lang};
my $lblPvRe = $hqtxt{lblPRe}{$lang};
my $lblPvTo = $hqtxt{lblPTo}{$lang};
my $lblPvCu = $hqtxt{lblPCu}{$lang};
@ -6585,8 +6587,9 @@ sub _graphicHeader {
## Update-Icon
################
my $naup = ReadingsVal ($name, 'nextCycletime', '');
if ($upstate =~ /updated|successfully|switched/ix) {
$img = FW_makeImage('10px-kreis-gruen.png', $htitles{upd}{$lang});
$img = FW_makeImage('10px-kreis-gruen.png', $htitles{upd}{$lang}.' ('.$htitles{natc}{$lang}.' '.$naup.')');
$upicon = "<a onClick=$cmdupdate>$img</a>";
}
elsif ($upstate =~ /running/ix) {
@ -6598,7 +6601,7 @@ sub _graphicHeader {
$upicon = "<a>$img</a>";
}
else {
$img = FW_makeImage('10px-kreis-rot.png', $htitles{upd}{$lang});
$img = FW_makeImage('10px-kreis-rot.png', $htitles{upd}{$lang}.' ('.$htitles{natc}{$lang}.' '.$naup.')');
$upicon = "<a onClick=$cmdupdate>$img</a>";
}
@ -6610,7 +6613,6 @@ sub _graphicHeader {
}
elsif ($pcfa eq "off") {
$htitles{akorron}{$lang} =~ s/<NAME>/$name/xs;
#$acicon = "<a title='$htitles{akorron}{$lang}'</a>-";
$acicon = FW_makeImage('-', $htitles{akorron}{$lang});
}
elsif ($pcfa =~ /standby/ix) {
@ -6652,8 +6654,8 @@ sub _graphicHeader {
$header .= qq{</tr>};
$header .= qq{<tr>};
$header .= qq{<td colspan="3" align="left" $dstyle> </td>};
$header .= qq{<td colspan="3" align="left" $dstyle> $autoct &nbsp; $acicon </td>};
$header .= qq{<td colspan="3" align="left" $dstyle> $lbpcq &nbsp; $pcqicon </td>};
$header .= qq{<td colspan="3" align="left" $dstyle> $autoct &nbsp; $acicon &nbsp; $lbpcq &nbsp; $pcqicon </td>};
$header .= qq{<td colspan="3" align="left" $dstyle> </td>};
$header .= qq{</tr>};
}
@ -9199,7 +9201,7 @@ sub checkPlantConfig {
if (!$eocr) {
$result->{'Common Settings'}{state} = $info;
$result->{'Common Settings'}{result} .= qq{Attribute 'event-on-change-reading' is not set. <br>};
$result->{'Common Settings'}{note} .= qq{Setting attribute 'event-on-change-reading' is recommended to improve the runtime performance.<br>};
$result->{'Common Settings'}{note} .= qq{Setting attribute 'event-on-change-reading = .*' is recommended to improve the runtime performance and avoid the 'connection lost' message.<br>};
$result->{'Common Settings'}{info} = 1;
}