add snow and rain for the last 1 and/or 3 hour

This commit is contained in:
Marko Oldenburg 2019-01-15 14:51:50 +01:00
parent ed308a1f26
commit 7c6ef32a94

View File

@ -259,7 +259,8 @@ sub _ProcessingRetrieveData($$) {
_ErrorHandling( $self, $data->{cod} . ': ' . $data->{message} ); _ErrorHandling( $self, $data->{cod} . ': ' . $data->{message} );
} }
else { else {
### Debug
# print 'Response: ' . Dumper $data;
###### Ab hier wird die ResponseHash Referenze für die Rückgabe zusammen gestellt ###### Ab hier wird die ResponseHash Referenze für die Rückgabe zusammen gestellt
$self->{cached}->{current_date_time} = $self->{cached}->{current_date_time} =
strftime( "%a, %e %b %Y %H:%M", strftime( "%a, %e %b %Y %H:%M",
@ -403,7 +404,7 @@ sub _ProcessingRetrieveData($$) {
) + 0.5 ) + 0.5
), ),
'humidity' => 'humidity' =>
$data->{list}->[$i]->{main}->{humidity}, $data->{list}->[$i]->{main}->{humidity},
'condition' => encode_utf8( 'condition' => encode_utf8(
$data->{list}->[$i]->{weather}->[0] $data->{list}->[$i]->{weather}->[0]
->{description} ->{description}
@ -424,12 +425,20 @@ sub _ProcessingRetrieveData($$) {
+ 0.5 + 0.5
), ),
'cloudCover' => 'cloudCover' =>
$data->{list}->[$i]->{clouds}->{all}, $data->{list}->[$i]->{clouds}->{all},
'code' => 'code' =>
$codes{ $data->{list}->[$i]->{weather}->[0] $codes{ $data->{list}->[$i]->{weather}->[0]
->{id} }, ->{id} },
'iconAPI' => 'iconAPI' =>
$data->{list}->[$i]->{weather}->[0]->{icon}, $data->{list}->[$i]->{weather}->[0]->{icon},
'rain1h' =>
$data->{list}->[$i]->{rain}->{'1h'},
'rain3h' =>
$data->{list}->[$i]->{rain}->{'3h'},
'snow1h' =>
$data->{list}->[$i]->{snow}->{'1h'},
'snow3h' =>
$data->{list}->[$i]->{snow}->{'3h'},
}, },
); );