mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-25 09:55:38 +00:00
76_SolarForecast.pm: contrib 0.68.7
git-svn-id: https://svn.fhem.de/fhem/trunk@26506 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
8be0fb9c8e
commit
a27e67936e
@ -1798,20 +1798,18 @@ sub _getRoofTopData {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
if (isSolCastUsed ($hash)) {
|
my $msg;
|
||||||
my $msg;
|
if($ctzAbsent) {
|
||||||
if($ctzAbsent) {
|
$msg = qq{The library FHEM::Utility::CTZ is missed. Please update FHEM completely.};
|
||||||
$msg = qq{The library FHEM::Utility::CTZ is missed. Please update FHEM completely.};
|
Log3 ($name, 2, "$name - ERROR - $msg");
|
||||||
Log3 ($name, 2, "$name - ERROR - $msg");
|
return $msg;
|
||||||
return $msg;
|
}
|
||||||
}
|
|
||||||
|
my $rmf = reqModFail();
|
||||||
my $rmf = reqModFail();
|
if($rmf) {
|
||||||
if($rmf) {
|
$msg = "You have to install the required perl module: ".$rmf;
|
||||||
$msg = "You have to install the required perl module: ".$rmf;
|
Log3 ($name, 2, "$name - ERROR - $msg");
|
||||||
Log3 ($name, 2, "$name - ERROR - $msg");
|
return $msg;
|
||||||
return $msg;
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
$paref->{allstrings} = ReadingsVal($name, "inverterStrings", "");
|
$paref->{allstrings} = ReadingsVal($name, "inverterStrings", "");
|
||||||
@ -1855,6 +1853,7 @@ sub __solCast_ApiRequest {
|
|||||||
my $url = "https://api.solcast.com.au/rooftop_sites/".
|
my $url = "https://api.solcast.com.au/rooftop_sites/".
|
||||||
$roofid.
|
$roofid.
|
||||||
"/forecasts?format=json".
|
"/forecasts?format=json".
|
||||||
|
"&hours=72".
|
||||||
"&api_key=".
|
"&api_key=".
|
||||||
$apikey;
|
$apikey;
|
||||||
|
|
||||||
@ -7779,7 +7778,8 @@ sub _calcCAQwithSolCastPercentil {
|
|||||||
}
|
}
|
||||||
|
|
||||||
if ($debug) { # nur für Debugging
|
if ($debug) { # nur für Debugging
|
||||||
Log (1, qq{DEBUG> $name summary PV estimates for hour of day $h - est: $est, est10: $est10, est40: $est40, est70: $est70, est90: $est90});
|
Log (1, qq{DEBUG> $name summary PV estimates for hour of day "$h":\n}.
|
||||||
|
qq{est: $est, est10: $est10, est20: $est20, est30: $est30, est40: $est40, est60: $est60, est70: $est70, est80: $est80, est90: $est90});
|
||||||
}
|
}
|
||||||
|
|
||||||
my %pc = (
|
my %pc = (
|
||||||
@ -11022,6 +11022,8 @@ Ein/Ausschaltzeiten sowie deren Ausführung vom SolarForecast Modul übernehmen
|
|||||||
"recommends": {
|
"recommends": {
|
||||||
"FHEM::Meta": 0,
|
"FHEM::Meta": 0,
|
||||||
"FHEM::Utility::CTZ": 1.00,
|
"FHEM::Utility::CTZ": 1.00,
|
||||||
|
"DateTime": 0,
|
||||||
|
"DateTime::Format::Strptime": 0,
|
||||||
"Storable": 0,
|
"Storable": 0,
|
||||||
"Data::Dumper": 0
|
"Data::Dumper": 0
|
||||||
},
|
},
|
||||||
|
Loading…
x
Reference in New Issue
Block a user