FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-07 23:09:26 +00:00
Code Issues Releases Wiki Activity

76_SolarForecast.pm: contrib 0.34.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24208 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-04-10 11:55:03 +00:00
parent 3d2f15b811
commit 5197fe30a8
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -987,9 +987,10 @@ sub _setwriteHistory { ## no critic "not used"
my $hash = $paref->{hash};
my $name = $paref->{name};
my $ret = writeCacheToFile ($hash, "pvhist", $pvhcache.$name); # Cache File für PV History schreiben
my $ret;
writeCacheToFile ($hash, "circular", $pvccache.$name); # Cache File für PV Circular schreiben
$ret = writeCacheToFile ($hash, "circular", $pvccache.$name); # Cache File für PV Circular schreiben
$ret = writeCacheToFile ($hash, "pvhist", $pvhcache.$name); # Cache File für PV History schreiben
return $ret;
}
@ -1472,8 +1473,8 @@ sub periodicWriteCachefiles {
return if(IsDisabled($name));
writeCacheToFile ($hash, "pvhist", $pvhcache.$name); # Cache File für PV History schreiben
writeCacheToFile ($hash, "circular", $pvccache.$name); # Cache File für PV Circular schreiben
writeCacheToFile ($hash, "pvhist", $pvhcache.$name); # Cache File für PV History schreiben
return;
}
@ -1501,11 +1502,13 @@ sub writeCacheToFile {
if ($error) {
my $err = qq{ERROR writing cache file "$file": $error};
Log3 ($name, 2, "$name - $err");
readingsSingleUpdate($hash, "state", "ERROR writing cache file $file - $error", 1);
return $err;
}
else {
my $lw = gettimeofday();
$hash->{HISTFILE} = "last write time: ".FmtTime($lw)." File: $file" if($cachename eq "pvhist");
readingsSingleUpdate($hash, "state", "wrote successfully cachefile $cachename", 1);
}
return;
@ -2567,7 +2570,7 @@ sub forecastGraphic {
## Update-Icon
##############
my $upicon;
if ($upstate =~ /updated/ix) {
if ($upstate =~ /updated|successfully/ix) {
$upicon = "<a onClick=$cmdupdate><img src=\"$FW_ME/www/images/default/10px-kreis-gruen.png\"></a>";
}
elsif ($upstate =~ /running/ix) {