FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-17 05:16:02 +00:00
Code Issues Releases Wiki Activity

76_SolarForecast: contrib 0.79.2

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@27600 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2023-05-21 06:21:36 +00:00
parent 146f418a7b
commit 74218cb0b0
1 changed files with 36 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
######################################################################################################################## ########################################################################################################################
# $Id: 76_SolarForecast.pm 21735 2023-05-19 23:53:24Z DS_Starter $ # $Id: 76_SolarForecast.pm 21735 2023-05-21 23:53:24Z DS_Starter $
######################################################################################################################### #########################################################################################################################
# 76_SolarForecast.pm # 76_SolarForecast.pm
# #
@ -136,6 +136,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"0.79.2" => "21.05.2023 change process to calculate solCastAPIcallMultiplier, todayMaxAPIcalls ",
"0.79.1" => "19.05.2023 extend debug solcastProcess, new key solcastAPIcall ", "0.79.1" => "19.05.2023 extend debug solcastProcess, new key solcastAPIcall ",
"0.79.0" => "13.05.2023 new consumer key locktime ", "0.79.0" => "13.05.2023 new consumer key locktime ",
"0.78.2" => "11.05.2023 extend debug radiationProcess ", "0.78.2" => "11.05.2023 extend debug radiationProcess ",
@ -1301,7 +1302,7 @@ sub _setmoduleRoofTops { ## no critic "not used"
} }
readingsSingleUpdate ($hash, "moduleRoofTops", $arg, 1); readingsSingleUpdate ($hash, "moduleRoofTops", $arg, 1);
writeCacheToFile ($hash, "plantconfig", $plantcfg.$name); # Anlagenkonfiguration File schreiben writeCacheToFile ($hash, "plantconfig", $plantcfg.$name); # Anlagenkonfiguration File schreiben
return if(_checkSetupNotComplete ($hash)); # keine Stringkonfiguration wenn Setup noch nicht komplett return if(_checkSetupNotComplete ($hash)); # keine Stringkonfiguration wenn Setup noch nicht komplett
@ -2043,9 +2044,9 @@ sub Get {
return qq{Credentials of $name are not set."}; return qq{Credentials of $name are not set."};
} }
$params->{force} = 1 if($opt eq 'roofTopData'); $params->{force} = 1 if($opt eq 'roofTopData'); # forcierter (manueller) Abruf SolCast API
$ret = &{$hget{$opt}{fn}} ($params); # forcierter (manueller) Abruf SolCast API $ret = &{$hget{$opt}{fn}} ($params);
return $ret; return $ret;
} }
@ -2109,30 +2110,38 @@ sub _getRoofTopData {
my $type = $hash->{TYPE}; my $type = $hash->{TYPE};
## statische SolCast API Kennzahlen bereitstellen ## statische SolCast API Kennzahlen
################################################### ## (solCastAPIcallMultiplier, todayMaxAPIcalls) berechnen
##########################################################
my %seen; my %seen;
my $debug = AttrVal ($name, 'ctrlDebug', 'none'); my $debug = AttrVal ($name, 'ctrlDebug', 'none');
my @as = map { $data{$type}{$name}{solcastapi}{'?IdPair'}{$_}{apikey}; } keys %{$data{$type}{$name}{solcastapi}{'?IdPair'}};
my @unique = grep { !$seen{$_}++ } @as;
my $upc = scalar @unique; # Anzahl unique API Keys
my $asc = CurrentVal ($hash, 'allstringscount', 1); # Anzahl der Strings my %mx;
my $apimaxreq = AttrVal ($name, 'ctrlSolCastAPImaxReq', $apimaxreqdef); my $maxcnt;
my $madr = sprintf "%.0f", (($apimaxreq / $asc) * $upc); # max. tägliche Anzahl API Calls
my $mpk = sprintf "%.4f", ($apimaxreq / $madr); # Requestmultiplikator
$data{$type}{$name}{solcastapi}{'?All'}{'?All'}{solCastAPIcallMultiplier} = $mpk; for my $pk (keys %{$data{$type}{$name}{solcastapi}{'?IdPair'}}) {
$data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayMaxAPIcalls} = $madr; my $apikey = SolCastAPIVal ($hash, '?IdPair', $pk, 'apikey', '');
next if(!$apikey);
if($debug =~ /solcastAPIcall/x) { $mx{$apikey} += 1;
Log3 ($name, 1, "$name DEBUG> SolCast API Call - count unique API Keys: $upc"); $maxcnt = $mx{$apikey} if(!$maxcnt || $mx{$apikey} > $maxcnt);
Log3 ($name, 1, "$name DEBUG> SolCast API Call - all strings count: $asc");
Log3 ($name, 1, "$name DEBUG> SolCast API Call - max possible daily API calls: $madr");
Log3 ($name, 1, "$name DEBUG> SolCast API Call - Requestmultiplier: $mpk");
} }
## my $asc = CurrentVal ($hash, 'allstringscount', 1); # Anzahl der Strings
my $apimaxreq = AttrVal ($name, 'ctrlSolCastAPImaxReq', $apimaxreqdef);
my $madc = sprintf "%.0f", ($apimaxreq / $maxcnt); # max. tägliche Anzahl API Calls
my $mpk = $maxcnt // 1; # Requestmultiplikator
$data{$type}{$name}{solcastapi}{'?All'}{'?All'}{solCastAPIcallMultiplier} = $mpk;
$data{$type}{$name}{solcastapi}{'?All'}{'?All'}{todayMaxAPIcalls} = $madc;
if($debug =~ /solcastAPIcall/x) {
Log3 ($name, 1, "$name DEBUG> SolCast API Call - max possible daily API requests: $apimaxreq");
Log3 ($name, 1, "$name DEBUG> SolCast API Call - Requestmultiplier: $mpk");
Log3 ($name, 1, "$name DEBUG> SolCast API Call - possible daily API Calls: $madc");
}
#########################
$paref->{allstrings} = ReadingsVal($name, 'inverterStrings', ''); $paref->{allstrings} = ReadingsVal($name, 'inverterStrings', '');
$paref->{lang} = $lang; $paref->{lang} = $lang;
@ -2286,6 +2295,10 @@ sub __solCast_ApiResponse {
___setLastAPIcallKeyData ($paref); ___setLastAPIcallKeyData ($paref);
if($debug =~ /solcastAPIcall/x) {
Log3 ($name, 1, "$name DEBUG> SolCast API Call - response status: ".$jdata->{'response_status'}{'message'});
}
$data{$type}{$name}{solcastapi}{'?All'}{'?All'}{response_message} = $jdata->{'response_status'}{'message'}; $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{response_message} = $jdata->{'response_status'}{'message'};
singleUpdateState ( {hash => $hash, state => $msg, evt => 1} ); singleUpdateState ( {hash => $hash, state => $msg, evt => 1} );
@ -2476,7 +2489,7 @@ sub ___setLastAPIcallKeyData {
$data{$type}{$name}{solcastapi}{'?All'}{'?All'}{currentAPIinterval} = int ($dart / $drc) if($dart && $drc); $data{$type}{$name}{solcastapi}{'?All'}{'?All'}{currentAPIinterval} = int ($dart / $drc) if($dart && $drc);
if($debug =~ /solcastProcess|solcastAPIcall/x) { if($debug =~ /solcastProcess|solcastAPIcall/x) {
Log3 ($name, 1, "$name DEBUG> SolCast API Call - Sunset: $sstime, remain Sec to Sunset: $dart, new calc interval: ".SolCastAPIVal ($hash, '?All', '?All', 'currentAPIinterval', $apirepetdef)); Log3 ($name, 1, "$name DEBUG> SolCast API Call - Sunset: $sstime, remain Sec to Sunset: $dart, new interval: ".SolCastAPIVal ($hash, '?All', '?All', 'currentAPIinterval', $apirepetdef));
} }
} }
else { else {