FHEM/mod-Weather
1
0
Fork 0
Code Issues Pull Requests Releases 3 Wiki Activity

testing #29

Merged
marko merged 73 commits from testing into main 2023-01-07 12:49:01 +00:00
Conversation 0 Commits 73 Files Changed 12 +170 -1592
3 changed files with 170 additions and 1592 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit ddefbac55a - Show all commits

49
59_Weather.pm
View File

@ -269,8 +269,9 @@ sub Weather_Initialize($) {
$hash->{SetFn} = 'Weather_Set';
$hash->{AttrList} =
'disable:0,1 '
. 'forecast:hourly,daily,every,off '
. 'forecast:multiple-strict,hourly,daily '
. 'forecastLimit '
. 'alerts:0,1 '
. $readingFnAttributes;
$hash->{NotifyFn} = 'Weather_Notify';
@ -328,7 +329,12 @@ sub Weather_RetrieveCallbackFn($) {
sub Weather_WriteReadings($$) {
my ( $hash, $dataRef ) = @_;
my $name = $hash->{NAME};
my $name = $hash->{NAME};
my $hourly = ( AttrVal( $name, 'forecast', '' ) =~ m{hourly}xms ? 1: 0 );
my $daily = ( AttrVal( $name, 'forecast', '' ) =~ m{daily}xms ? 1 : 0 );
my $alerts = ( AttrVal( $name, 'forecast', '' ) =~ m{alerts}xms ? 1 : 0 );
readingsBeginUpdate($hash);
# delete some unused readings
@ -381,16 +387,15 @@ sub Weather_WriteReadings($$) {
}
### forecast
if ( ref( $dataRef->{forecast} ) eq 'HASH'
and AttrVal( $name, 'forecast', 'every' ) ne 'off' )
if ( ref( $dataRef->{forecast} ) eq 'HASH'
and ($hourly or $daily) )
{
## hourly
if (
defined( $dataRef->{forecast}->{hourly} )
and ref( $dataRef->{forecast}->{hourly} ) eq 'ARRAY'
and scalar( @{ $dataRef->{forecast}->{hourly} } ) > 0
and ( AttrVal( $name, 'forecast', 'every' ) eq 'every'
or AttrVal( $name, 'forecast', 'hourly' ) eq 'hourly' )
and $hourly
)
{
my $i = 0;
@ -445,8 +450,7 @@ sub Weather_WriteReadings($$) {
defined( $dataRef->{forecast}->{daily} )
and ref( $dataRef->{forecast}->{daily} ) eq 'ARRAY'
and scalar( @{ $dataRef->{forecast}->{daily} } ) > 0
and ( AttrVal( $name, 'forecast', 'every' ) eq 'every'
or AttrVal( $name, 'forecast', 'daily' ) eq 'daily' )
and $daily
)
{
my $i = 0;
@ -496,6 +500,16 @@ sub Weather_WriteReadings($$) {
}
}
if ( ref( $dataRef->{alerts} ) eq 'HASH'
and $alerts )
{
while ( my ( $r, $v ) = each %{ $dataRef->{alerts} } ) {
readingsBulkUpdate( $hash, $r, $v )
if ( ref( $dataRef->{$r} ) ne 'HASH'
and ref( $dataRef->{$r} ) ne 'ARRAY' );
}
}
my $val = 'T: '
. $dataRef->{current}->{temperature} . ' °C' . ' '
. substr( $status_items_txt_i18n{1}, 0, 1 ) . ': '
@ -529,7 +543,7 @@ sub Weather_GetUpdate($) {
Weather_RearmTimer( $hash, gettimeofday() + $hash->{INTERVAL} );
}
else {
# Weather_RetrieveData($name, 0);
$hash->{fhem}->{api}->{exclude} = Weather_parseForcastAttr($hash);
$hash->{fhem}->{api}->setRetrieveData;
}
@ -537,6 +551,20 @@ sub Weather_GetUpdate($) {
}
###################################
sub Weather_parseForcastAttr {
my $hash = shift;
my $name = $hash->{NAME};
my @exclude = qw 'alerts minutely hourly daily';
my @forecast = split(',',AttrVal($name,'forcast','') . (AttrVal($name,'alerts',0) ? ',alerts' : ''));
my %exclude =();
@exclude{@exclude} = @exclude;
delete @exclude{@forecast};
return join(',',keys %exclude);
}
sub Weather_Get($@) {
my ( $hash, @a ) = @_;
@ -712,6 +740,7 @@ sub Weather_Define($$) {
location => $hash->{fhem}->{LOCATION},
apioptions => $hash->{APIOPTIONS},
language => $hash->{LANG}
exclude => Weather_parseForcastAttr($hash),
}
);
@ -1373,7 +1402,7 @@ sub WeatherCheckOptions($@) {
],
"release_status": "stable",
"license": "GPL_2",
"version": "v2.1.4",
"version": "v2.2.5",
"author": [
"Marko Oldenburg <leongaultier@gmail.com>"
],

190
OpenWeatherMapAPI.pm
View File

@ -118,7 +118,7 @@ eval { use Readonly; 1 }
Readonly my $URL => 'https://api.openweathermap.org/data/2.5/';
## URL . 'weather?' for current data
## URL . 'forecast?' for forecast data
## URL . 'onecall?' for forecast data
my %codes = (
200 => 45,
@ -194,6 +194,7 @@ sub new {
long => ( split( ',', $argsRef->{location} ) )[1],
fetchTime => 0,
endpoint => 'none',
exclude => $argsRef->{exclude},
};
$self->{cachemaxage} = (
@ -201,8 +202,9 @@ sub new {
? $apioptions->{cachemaxage}
: 900
);
$self->{cached} = _CreateForecastRef($self);
$self->{cached} = _CreateForecastRef($self);
bless $self, $class;
return $self;
}
@ -315,7 +317,8 @@ sub _RetrieveDataFromOpenWeatherMap {
. $self->{long} . '&'
. 'APPID='
. $self->{key} . '&' . 'lang='
. $self->{lang};
. $self->{lang} . '&' . 'exclude='
. $self->{exclude};
::HttpUtils_NonblockingGet($paramRef);
}
@ -369,7 +372,8 @@ sub _ProcessingRetrieveData {
}
else {
### Debug
# print 'Response: ' . Dumper $data;
# print '!!! DEBUG !!! - Endpoint: ' . $self->{endpoint} . "\n";
# print '!!! DEBUG !!! - Response: ' . Dumper $data;
###### Ab hier wird die ResponseHash Referenze für die Rückgabe zusammen gestellt
$self->{cached}->{current_date_time} =
strftimeWrapper( "%a, %e %b %Y %H:%M",
@ -489,7 +493,7 @@ sub _ProcessingRetrieveData {
"%.1f",
(
$data->{hourly}->[$i]
->{main}->{temp} - 273.15
->{temp} - 273.15
)
) + 0.5
),
@ -498,52 +502,12 @@ sub _ProcessingRetrieveData {
"%.1f",
(
$data->{hourly}->[$i]
->{main}->{temp} - 273.15
)
) + 0.5
),
'low_c' => int(
sprintf(
"%.1f",
(
$data->{hourly}->[$i]
->{main}->{temp_min} -
273.15
)
) + 0.5
),
'high_c' => int(
sprintf(
"%.1f",
(
$data->{hourly}->[$i]
->{main}->{temp_max} -
273.15
)
) + 0.5
),
'tempLow' => int(
sprintf(
"%.1f",
(
$data->{hourly}->[$i]
->{main}->{temp_min} -
273.15
)
) + 0.5
),
'tempHigh' => int(
sprintf(
"%.1f",
(
$data->{hourly}->[$i]
->{main}->{temp_max} -
273.15
->{temp} - 273.15
)
) + 0.5
),
'humidity' =>
$data->{hourly}->[$i]->{main}
$data->{hourly}->[$i]
->{humidity},
'condition' => encode_utf8(
$data->{hourly}->[$i]->{weather}
@ -551,7 +515,7 @@ sub _ProcessingRetrieveData {
),
'pressure' => int(
sprintf( "%.1f",
$data->{hourly}->[$i]->{main}
$data->{hourly}->[$i]
->{pressure} ) + 0.5
),
'wind' => int(
@ -559,7 +523,7 @@ sub _ProcessingRetrieveData {
"%.1f",
(
$data->{hourly}->[$i]
->{wind}->{speed} * 3.6
->{wind_speed} * 3.6
)
) + 0.5
),
@ -568,7 +532,7 @@ sub _ProcessingRetrieveData {
"%.1f",
(
$data->{hourly}->[$i]
->{wind}->{speed} * 3.6
->{wind_speed} * 3.6
)
) + 0.5
),
@ -577,13 +541,13 @@ sub _ProcessingRetrieveData {
"%.1f",
(
$data->{hourly}->[$i]
->{wind}->{gust} * 3.6
->{wind_gust} * 3.6
)
) + 0.5
),
'cloudCover' =>
$data->{hourly}->[$i]->{clouds}
->{all},
$data->{hourly}->[$i]
->{clouds},
'code' => $codes{
$data->{hourly}->[$i]->{weather}
->[0]->{id}
@ -592,13 +556,9 @@ sub _ProcessingRetrieveData {
$data->{hourly}->[$i]->{weather}->[0]
->{icon},
'rain1h' =>
$data->{hourly}->[$i]->{rain}->{'1h'},
'rain3h' =>
$data->{hourly}->[$i]->{rain}->{'3h'},
$data->{hourly}->[$i]->{rain}->{'1h'},
'snow1h' =>
$data->{hourly}->[$i]->{snow}->{'1h'},
'snow3h' =>
$data->{hourly}->[$i]->{snow}->{'3h'},
$data->{hourly}->[$i]->{snow}->{'1h'},
},
);
@ -673,6 +633,69 @@ sub _ProcessingRetrieveData {
)
) + 0.5
),
'temperature_morn' => int(
sprintf(
"%.1f",
(
$data->{daily}->[$i]
->{temp}->{morn} - 273.15
)
) + 0.5
),
'temperature_eve' => int(
sprintf(
"%.1f",
(
$data->{daily}->[$i]
->{temp}->{eve} - 273.15
)
) + 0.5
),
'temperature_night' => int(
sprintf(
"%.1f",
(
$data->{daily}->[$i]
->{temp}->{night} - 273.15
)
) + 0.5
),
'tempFeelsLike_morn' => int(
sprintf(
"%.1f",
(
$data->{daily}->[$i]
->{feels_like}->{morn} - 273.15
)
) + 0.5
),
'tempFeelsLike_eve' => int(
sprintf(
"%.1f",
(
$data->{daily}->[$i]
->{feels_like}->{eve} - 273.15
)
) + 0.5
),
'tempFeelsLike_night' => int(
sprintf(
"%.1f",
(
$data->{daily}->[$i]
->{feels_like}->{night} - 273.15
)
) + 0.5
),
'tempFeelsLike_day' => int(
sprintf(
"%.1f",
(
$data->{daily}->[$i]
->{feels_like}->{day} - 273.15
)
) + 0.5
),
'temp_c' => int(
sprintf(
"%.1f",
@ -718,6 +741,14 @@ sub _ProcessingRetrieveData {
)
) + 0.5
),
'dew_point' => int(
sprintf(
"%.1f",
(
$data->{daily}->[$i]->{dew_point} - 273.15
)
) + 0.5
),
'humidity' =>
$data->{daily}->[$i]->{humidity},
'condition' => encode_utf8(
@ -783,6 +814,47 @@ sub _ProcessingRetrieveData {
$i++;
}
}
if ( ref( $data->{alerts} ) eq "ARRAY"
&& scalar( @{ $data->{alerts} } ) > 0 )
{
## löschen des alten Datensatzes
delete $self->{cached}->{alerts};
my $i = 0;
for ( @{ $data->{alerts} } ) {
push(
@{ $self->{cached}->{alerts} },
{
'warn_'.$i.'_End' => strftimeWrapper(
"%a, %e %b %Y %H:%M",
localtime(
( $data->{alerts}->[$i]->{end} )
- 3600
)
),
'warn_'.$i.'_Start' => strftimeWrapper(
"%a, %e %b %Y %H:%M",
localtime(
( $data->{alerts}->[$i]->{start} )
- 3600
)
),
'warn_'.$i.'_Description' => encode_utf8(
$data->{alerts}->[$i]->{description}
),
'warn_'.$i.'_SenderName' => encode_utf8(
$data->{alerts}->[$i]->{sender_name}
),
'warn_'.$i.'_Event' => encode_utf8(
$data->{alerts}->[$i]->{event}
),
},
);
$i++;
}
}
}
}
}

1523
fhem-2022-11.log
View File

File diff suppressed because it is too large Load Diff