expand error handling, fix typo in commandref
This commit is contained in:
Marko Oldenburg
parent
133f17427f
commit
1dde02d570
@ -811,7 +811,7 @@ sub WeatherAsHtmlD($;$)
|
|||||||
Beispiele:
|
Beispiele:
|
||||||
<pre>
|
<pre>
|
||||||
define Forecast Weather apikey=987498ghjgf864
|
define Forecast Weather apikey=987498ghjgf864
|
||||||
define MyWeather Weather api=OpenWeatherMapAPI,cachemaxage:600 apikey=09878945fdskv876 location=52.4545,13.4545 interval=3600 language=de
|
define MyWeather Weather API=OpenWeatherMapAPI,cachemaxage:600 apikey=09878945fdskv876 location=52.4545,13.4545 interval=3600 language=de
|
||||||
</pre>
|
</pre>
|
||||||
|
|
||||||
Es folgt die API-spezifische Dokumentation.<p>
|
Es folgt die API-spezifische Dokumentation.<p>
|
||||||
|
|||||||
571
DarkSkyAPI.pm
571
DarkSkyAPI.pm
@ -189,299 +189,302 @@ sub _ProcessingRetrieveData($$) {
|
|||||||
and defined($response)
|
and defined($response)
|
||||||
and $response )
|
and $response )
|
||||||
{
|
{
|
||||||
my $data = eval { decode_json($response) };
|
if ( $response =~ m/^{.*}$/ ) {
|
||||||
|
my $data = eval { decode_json($response) };
|
||||||
|
|
||||||
if ($@) {
|
if ($@) {
|
||||||
_ErrorHandling( $self, 'DarkSky Weather decode JSON err ' . $@ );
|
_ErrorHandling( $self, 'DarkSky Weather decode JSON err ' . $@ );
|
||||||
}
|
}
|
||||||
elsif ( defined( $data->{code} )
|
elsif ( defined( $data->{code} )
|
||||||
and $data->{code}
|
and $data->{code}
|
||||||
and defined( $data->{error} )
|
and defined( $data->{error} )
|
||||||
and $data->{error} )
|
and $data->{error} )
|
||||||
{
|
|
||||||
_ErrorHandling( $self,
|
|
||||||
'Code: ' . $data->{code} . ' Error: ' . $data->{error} );
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
# print Dumper $data; ## für Debugging
|
|
||||||
|
|
||||||
$self->{cached}->{current_date_time} =
|
|
||||||
strftime( "%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime( $self->{fetchTime} ) );
|
|
||||||
$self->{cached}->{timezone} = $data->{timezone};
|
|
||||||
$self->{cached}->{license}{text} =
|
|
||||||
$data->{flags}->{'meteoalarm-license'};
|
|
||||||
$self->{cached}->{current} = {
|
|
||||||
'temperature' => int(
|
|
||||||
sprintf( "%.1f", $data->{currently}->{temperature} ) + 0.5
|
|
||||||
),
|
|
||||||
'temp_c' => int(
|
|
||||||
sprintf( "%.1f", $data->{currently}->{temperature} ) + 0.5
|
|
||||||
),
|
|
||||||
'dewPoint' => int(
|
|
||||||
sprintf( "%.1f", $data->{currently}->{dewPoint} ) + 0.5
|
|
||||||
),
|
|
||||||
'humidity' => $data->{currently}->{humidity} * 100,
|
|
||||||
'condition' => encode_utf8( $data->{currently}->{summary} ),
|
|
||||||
'pressure' => int(
|
|
||||||
sprintf( "%.1f", $data->{currently}->{pressure} ) + 0.5
|
|
||||||
),
|
|
||||||
'wind' => int(
|
|
||||||
sprintf( "%.1f", $data->{currently}->{windSpeed} ) + 0.5
|
|
||||||
),
|
|
||||||
'wind_speed' => int(
|
|
||||||
sprintf( "%.1f", $data->{currently}->{windSpeed} ) + 0.5
|
|
||||||
),
|
|
||||||
'wind_direction' => $data->{currently}->{windBearing},
|
|
||||||
'windGust' => int(
|
|
||||||
sprintf( "%.1f", $data->{currently}->{windGust} ) + 0.5
|
|
||||||
),
|
|
||||||
'cloudCover' => $data->{currently}->{cloudCover} * 100,
|
|
||||||
'uvIndex' => $data->{currently}->{uvIndex},
|
|
||||||
'visibility' => int(
|
|
||||||
sprintf( "%.1f", $data->{currently}->{visibility} ) + 0.5
|
|
||||||
),
|
|
||||||
'ozone' => $data->{currently}->{ozone},
|
|
||||||
'code' => $codes{ $data->{currently}->{icon} },
|
|
||||||
'iconAPI' => $data->{currently}->{icon},
|
|
||||||
'pubDate' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime( $data->{currently}->{'time'} )
|
|
||||||
),
|
|
||||||
'precipProbability' => $data->{currently}->{precipProbability},
|
|
||||||
'apparentTemperature' => int(
|
|
||||||
sprintf(
|
|
||||||
"%.1f", $data->{currently}->{apparentTemperature}
|
|
||||||
) + 0.5
|
|
||||||
),
|
|
||||||
'precipIntensity' => $data->{currently}->{precipIntensity},
|
|
||||||
};
|
|
||||||
|
|
||||||
if ( ref( $data->{daily}->{data} ) eq "ARRAY"
|
|
||||||
and scalar( @{ $data->{daily}->{data} } ) > 0 )
|
|
||||||
{
|
{
|
||||||
### löschen des alten Datensatzes
|
_ErrorHandling( $self,
|
||||||
delete $self->{cached}->{forecast};
|
'Code: ' . $data->{code} . ' Error: ' . $data->{error} );
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
# print Dumper $data; ## für Debugging
|
||||||
|
|
||||||
my $i = 0;
|
$self->{cached}->{current_date_time} =
|
||||||
foreach ( @{ $data->{daily}->{data} } ) {
|
strftime( "%a, %e %b %Y %H:%M %p",
|
||||||
push(
|
localtime( $self->{fetchTime} ) );
|
||||||
@{ $self->{cached}->{forecast}->{daily} },
|
$self->{cached}->{timezone} = $data->{timezone};
|
||||||
{
|
$self->{cached}->{license}{text} =
|
||||||
'pubDate' => strftime(
|
$data->{flags}->{'meteoalarm-license'};
|
||||||
"%a, %e %b %Y %H:%M %p",
|
$self->{cached}->{current} = {
|
||||||
localtime(
|
'temperature' => int(
|
||||||
$data->{daily}->{data}->[$i]->{'time'}
|
sprintf( "%.1f", $data->{currently}->{temperature} ) + 0.5
|
||||||
)
|
),
|
||||||
),
|
'temp_c' => int(
|
||||||
'day_of_week' => strftime(
|
sprintf( "%.1f", $data->{currently}->{temperature} ) + 0.5
|
||||||
"%a",
|
),
|
||||||
localtime(
|
'dewPoint' => int(
|
||||||
$data->{daily}->{data}->[$i]->{'time'}
|
sprintf( "%.1f", $data->{currently}->{dewPoint} ) + 0.5
|
||||||
)
|
),
|
||||||
),
|
'humidity' => $data->{currently}->{humidity} * 100,
|
||||||
'low_c' => int(
|
'condition' => encode_utf8( $data->{currently}->{summary} ),
|
||||||
sprintf( "%.1f",
|
'pressure' => int(
|
||||||
$data->{daily}->{data}->[$i]
|
sprintf( "%.1f", $data->{currently}->{pressure} ) + 0.5
|
||||||
->{temperatureLow} ) + 0.5
|
),
|
||||||
),
|
'wind' => int(
|
||||||
'high_c' => int(
|
sprintf( "%.1f", $data->{currently}->{windSpeed} ) + 0.5
|
||||||
sprintf( "%.1f",
|
),
|
||||||
$data->{daily}->{data}->[$i]
|
'wind_speed' => int(
|
||||||
->{temperatureHigh} ) + 0.5
|
sprintf( "%.1f", $data->{currently}->{windSpeed} ) + 0.5
|
||||||
),
|
),
|
||||||
'tempMin' => int(
|
'wind_direction' => $data->{currently}->{windBearing},
|
||||||
sprintf( "%.1f",
|
'windGust' => int(
|
||||||
$data->{daily}->{data}->[$i]
|
sprintf( "%.1f", $data->{currently}->{windGust} ) + 0.5
|
||||||
->{temperatureMin} ) + 0.5
|
),
|
||||||
),
|
'cloudCover' => $data->{currently}->{cloudCover} * 100,
|
||||||
'tempMinTime' => strftime(
|
'uvIndex' => $data->{currently}->{uvIndex},
|
||||||
"%a, %e %b %Y %H:%M %p",
|
'visibility' => int(
|
||||||
localtime(
|
sprintf( "%.1f", $data->{currently}->{visibility} ) + 0.5
|
||||||
$data->{daily}->{data}->[$i]
|
),
|
||||||
->{temperatureMinTime}
|
'ozone' => $data->{currently}->{ozone},
|
||||||
)
|
'code' => $codes{ $data->{currently}->{icon} },
|
||||||
),
|
'iconAPI' => $data->{currently}->{icon},
|
||||||
'tempMax' => int(
|
'pubDate' => strftime(
|
||||||
sprintf( "%.1f",
|
"%a, %e %b %Y %H:%M %p",
|
||||||
$data->{daily}->{data}->[$i]
|
localtime( $data->{currently}->{'time'} )
|
||||||
->{temperatureMax} ) + 0.5
|
),
|
||||||
),
|
'precipProbability' => $data->{currently}->{precipProbability},
|
||||||
'tempMaxTime' => strftime(
|
'apparentTemperature' => int(
|
||||||
"%a, %e %b %Y %H:%M %p",
|
sprintf(
|
||||||
localtime(
|
"%.1f", $data->{currently}->{apparentTemperature}
|
||||||
$data->{daily}->{data}->[$i]
|
) + 0.5
|
||||||
->{temperatureMaxTime}
|
),
|
||||||
)
|
'precipIntensity' => $data->{currently}->{precipIntensity},
|
||||||
),
|
};
|
||||||
'tempLow' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{temperatureLow} ) + 0.5
|
|
||||||
),
|
|
||||||
'tempLowTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{temperatureLowTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'tempHigh' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{temperatureHigh} ) + 0.5
|
|
||||||
),
|
|
||||||
'tempHighTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{temperatureHighTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'apparentTempLow' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{apparentTemperatureLow} ) + 0.5
|
|
||||||
),
|
|
||||||
'apparentTempLowTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{apparentTemperatureLowTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'apparentTempHigh' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{apparentTemperatureHigh} ) + 0.5
|
|
||||||
),
|
|
||||||
'apparentTempHighTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{apparentTemperatureHighTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'apparenttempMin' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{apparentTemperatureMin} ) + 0.5
|
|
||||||
),
|
|
||||||
'apparenttempMinTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{apparentTemperatureMinTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'apparenttempMax' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{apparentTemperatureMax} ) + 0.5
|
|
||||||
),
|
|
||||||
'apparenttempMaxTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{apparentTemperatureMaxTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'code' =>
|
|
||||||
$codes{ $data->{daily}->{data}->[$i]->{icon} },
|
|
||||||
'iconAPI' => $data->{daily}->{data}->[$i]->{icon},
|
|
||||||
'condition' => encode_utf8(
|
|
||||||
$data->{daily}->{data}->[$i]->{summary}
|
|
||||||
),
|
|
||||||
'ozone' => $data->{daily}->{data}->[$i]->{ozone},
|
|
||||||
'uvIndex' =>
|
|
||||||
$data->{daily}->{data}->[$i]->{uvIndex},
|
|
||||||
'uvIndexTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]->{uvIndexTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'precipIntensity' =>
|
|
||||||
$data->{daily}->{data}->[$i]->{precipIntensity},
|
|
||||||
'precipIntensityMax' =>
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{precipIntensityMax},
|
|
||||||
'precipIntensityMaxTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]
|
|
||||||
->{precipIntensityMaxTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'dewPoint' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{daily}->{data}->[$i]->{dewPoint} )
|
|
||||||
+ 0.5
|
|
||||||
),
|
|
||||||
'humidity' =>
|
|
||||||
$data->{daily}->{data}->[$i]->{humidity} * 100,
|
|
||||||
'cloudCover' =>
|
|
||||||
$data->{daily}->{data}->[$i]->{cloudCover} * 100,
|
|
||||||
'precipType' =>
|
|
||||||
$data->{daily}->{data}->[$i]->{precipType},
|
|
||||||
|
|
||||||
'wind_direction' =>
|
if ( ref( $data->{daily}->{data} ) eq "ARRAY"
|
||||||
$data->{daily}->{data}->[$i]->{windBearing},
|
and scalar( @{ $data->{daily}->{data} } ) > 0 )
|
||||||
'wind' => int(
|
{
|
||||||
sprintf( "%.1f",
|
### löschen des alten Datensatzes
|
||||||
$data->{daily}->{data}->[$i]->{windSpeed} )
|
delete $self->{cached}->{forecast};
|
||||||
+ 0.5
|
|
||||||
),
|
|
||||||
'wind_speed' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{daily}->{data}->[$i]->{windSpeed} )
|
|
||||||
+ 0.5
|
|
||||||
),
|
|
||||||
'windGust' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{daily}->{data}->[$i]->{windGust} )
|
|
||||||
+ 0.5
|
|
||||||
),
|
|
||||||
'windGustTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]->{windGustTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'moonPhase' =>
|
|
||||||
$data->{daily}->{data}->[$i]->{moonPhase},
|
|
||||||
'sunsetTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]->{sunsetTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
'sunriseTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime(
|
|
||||||
$data->{daily}->{data}->[$i]->{sunriseTime}
|
|
||||||
)
|
|
||||||
),
|
|
||||||
|
|
||||||
'precipProbability' =>
|
my $i = 0;
|
||||||
$data->{daily}->{data}->[$i]->{precipProbability},
|
foreach ( @{ $data->{daily}->{data} } ) {
|
||||||
'pressure' => int(
|
push(
|
||||||
sprintf( "%.1f",
|
@{ $self->{cached}->{forecast}->{daily} },
|
||||||
$data->{daily}->{data}->[$i]->{pressure} )
|
{
|
||||||
+ 0.5
|
'pubDate' => strftime(
|
||||||
),
|
"%a, %e %b %Y %H:%M %p",
|
||||||
'visibility' => int(
|
localtime(
|
||||||
sprintf( "%.1f",
|
$data->{daily}->{data}->[$i]->{'time'}
|
||||||
$data->{daily}->{data}->[$i]->{visibility} )
|
)
|
||||||
+ 0.5
|
),
|
||||||
),
|
'day_of_week' => strftime(
|
||||||
}
|
"%a",
|
||||||
);
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]->{'time'}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'low_c' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureLow} ) + 0.5
|
||||||
|
),
|
||||||
|
'high_c' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureHigh} ) + 0.5
|
||||||
|
),
|
||||||
|
'tempMin' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureMin} ) + 0.5
|
||||||
|
),
|
||||||
|
'tempMinTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureMinTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'tempMax' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureMax} ) + 0.5
|
||||||
|
),
|
||||||
|
'tempMaxTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureMaxTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'tempLow' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureLow} ) + 0.5
|
||||||
|
),
|
||||||
|
'tempLowTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureLowTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'tempHigh' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureHigh} ) + 0.5
|
||||||
|
),
|
||||||
|
'tempHighTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{temperatureHighTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'apparentTempLow' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{apparentTemperatureLow} ) + 0.5
|
||||||
|
),
|
||||||
|
'apparentTempLowTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{apparentTemperatureLowTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'apparentTempHigh' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{apparentTemperatureHigh} ) + 0.5
|
||||||
|
),
|
||||||
|
'apparentTempHighTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{apparentTemperatureHighTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'apparenttempMin' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{apparentTemperatureMin} ) + 0.5
|
||||||
|
),
|
||||||
|
'apparenttempMinTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{apparentTemperatureMinTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'apparenttempMax' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{apparentTemperatureMax} ) + 0.5
|
||||||
|
),
|
||||||
|
'apparenttempMaxTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{apparentTemperatureMaxTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'code' =>
|
||||||
|
$codes{ $data->{daily}->{data}->[$i]->{icon} },
|
||||||
|
'iconAPI' => $data->{daily}->{data}->[$i]->{icon},
|
||||||
|
'condition' => encode_utf8(
|
||||||
|
$data->{daily}->{data}->[$i]->{summary}
|
||||||
|
),
|
||||||
|
'ozone' => $data->{daily}->{data}->[$i]->{ozone},
|
||||||
|
'uvIndex' =>
|
||||||
|
$data->{daily}->{data}->[$i]->{uvIndex},
|
||||||
|
'uvIndexTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]->{uvIndexTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'precipIntensity' =>
|
||||||
|
$data->{daily}->{data}->[$i]->{precipIntensity},
|
||||||
|
'precipIntensityMax' =>
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{precipIntensityMax},
|
||||||
|
'precipIntensityMaxTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]
|
||||||
|
->{precipIntensityMaxTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'dewPoint' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]->{dewPoint} )
|
||||||
|
+ 0.5
|
||||||
|
),
|
||||||
|
'humidity' =>
|
||||||
|
$data->{daily}->{data}->[$i]->{humidity} * 100,
|
||||||
|
'cloudCover' =>
|
||||||
|
$data->{daily}->{data}->[$i]->{cloudCover} * 100,
|
||||||
|
'precipType' =>
|
||||||
|
$data->{daily}->{data}->[$i]->{precipType},
|
||||||
|
|
||||||
$i++;
|
'wind_direction' =>
|
||||||
|
$data->{daily}->{data}->[$i]->{windBearing},
|
||||||
|
'wind' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]->{windSpeed} )
|
||||||
|
+ 0.5
|
||||||
|
),
|
||||||
|
'wind_speed' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]->{windSpeed} )
|
||||||
|
+ 0.5
|
||||||
|
),
|
||||||
|
'windGust' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]->{windGust} )
|
||||||
|
+ 0.5
|
||||||
|
),
|
||||||
|
'windGustTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]->{windGustTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'moonPhase' =>
|
||||||
|
$data->{daily}->{data}->[$i]->{moonPhase},
|
||||||
|
'sunsetTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]->{sunsetTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'sunriseTime' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
$data->{daily}->{data}->[$i]->{sunriseTime}
|
||||||
|
)
|
||||||
|
),
|
||||||
|
|
||||||
|
'precipProbability' =>
|
||||||
|
$data->{daily}->{data}->[$i]->{precipProbability},
|
||||||
|
'pressure' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]->{pressure} )
|
||||||
|
+ 0.5
|
||||||
|
),
|
||||||
|
'visibility' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{daily}->{data}->[$i]->{visibility} )
|
||||||
|
+ 0.5
|
||||||
|
),
|
||||||
|
}
|
||||||
|
);
|
||||||
|
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
else { _ErrorHandling( $self, 'DarkSky Weather ' . $response ); }
|
||||||
}
|
}
|
||||||
|
|
||||||
## Aufruf der callbackFn
|
## Aufruf der callbackFn
|
||||||
|
|||||||
@ -243,200 +243,203 @@ sub _ProcessingRetrieveData($$) {
|
|||||||
and defined($response)
|
and defined($response)
|
||||||
and $response )
|
and $response )
|
||||||
{
|
{
|
||||||
my $data = eval { decode_json($response) };
|
if ( $response =~ m/^{.*}$/ ) {
|
||||||
|
my $data = eval { decode_json($response) };
|
||||||
|
|
||||||
if ($@) {
|
if ($@) {
|
||||||
_ErrorHandling( $self,
|
_ErrorHandling( $self,
|
||||||
'OpenWeatherMap Weather decode JSON err ' . $@ );
|
'OpenWeatherMap Weather decode JSON err ' . $@ );
|
||||||
}
|
|
||||||
elsif ( defined( $data->{cod} )
|
|
||||||
and $data->{cod}
|
|
||||||
and $data->{cod} != 200
|
|
||||||
and defined( $data->{message} )
|
|
||||||
and $data->{message} )
|
|
||||||
{
|
|
||||||
_ErrorHandling( $self, $data->{cod} . ': ' . $data->{message} );
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
|
|
||||||
###### Ab hier wird die ResponseHash Referenze für die Rückgabe zusammen gestellt
|
|
||||||
$self->{cached}->{current_date_time} =
|
|
||||||
strftime( "%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime( $self->{fetchTime} ) );
|
|
||||||
|
|
||||||
if ( $self->{endpoint} eq 'weather' ) {
|
|
||||||
$self->{cached}->{country} = $data->{sys}->{country};
|
|
||||||
$self->{cached}->{city} = $data->{name};
|
|
||||||
$self->{cached}->{license}{text} = 'none';
|
|
||||||
$self->{cached}->{current} = {
|
|
||||||
'temperature' => int(
|
|
||||||
sprintf( "%.1f", ( $data->{main}->{temp} - 273.15 ) ) +
|
|
||||||
0.5
|
|
||||||
),
|
|
||||||
'temp_c' => int(
|
|
||||||
sprintf( "%.1f", ( $data->{main}->{temp} - 273.15 ) ) +
|
|
||||||
0.5
|
|
||||||
),
|
|
||||||
'low_c' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
( $data->{main}->{temp_min} - 273.15 ) ) + 0.5
|
|
||||||
),
|
|
||||||
'high_c' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
( $data->{main}->{temp_max} - 273.15 ) ) + 0.5
|
|
||||||
),
|
|
||||||
'tempLow' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
( $data->{main}->{temp_min} - 273.15 ) ) + 0.5
|
|
||||||
),
|
|
||||||
'tempHigh' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
( $data->{main}->{temp_max} - 273.15 ) ) + 0.5
|
|
||||||
),
|
|
||||||
'humidity' => $data->{main}->{humidity},
|
|
||||||
'condition' =>
|
|
||||||
encode_utf8( $data->{weather}->[0]->{description} ),
|
|
||||||
'pressure' =>
|
|
||||||
int( sprintf( "%.1f", $data->{main}->{pressure} ) + 0.5 ),
|
|
||||||
'wind' =>
|
|
||||||
int( sprintf( "%.1f", $data->{wind}->{speed} ) + 0.5 ),
|
|
||||||
'wind_speed' =>
|
|
||||||
int( sprintf( "%.1f", $data->{wind}->{speed} ) + 0.5 ),
|
|
||||||
'wind_direction' => $data->{wind}->{deg},
|
|
||||||
'cloudCover' => $data->{clouds}->{all},
|
|
||||||
'visibility' =>
|
|
||||||
int( sprintf( "%.1f", $data->{visibility} ) + 0.5 ),
|
|
||||||
'code' => $codes{ $data->{weather}->[0]->{id} },
|
|
||||||
'iconAPI' => $data->{weather}->[0]->{icon},
|
|
||||||
'sunsetTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime( $data->{sys}->{sunset} )
|
|
||||||
),
|
|
||||||
'sunriseTime' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime( $data->{sys}->{sunrise} )
|
|
||||||
),
|
|
||||||
'pubDate' => strftime(
|
|
||||||
"%a, %e %b %Y %H:%M %p",
|
|
||||||
localtime( $data->{dt} )
|
|
||||||
),
|
|
||||||
};
|
|
||||||
}
|
}
|
||||||
|
elsif ( defined( $data->{cod} )
|
||||||
|
and $data->{cod}
|
||||||
|
and $data->{cod} != 200
|
||||||
|
and defined( $data->{message} )
|
||||||
|
and $data->{message} )
|
||||||
|
{
|
||||||
|
_ErrorHandling( $self, $data->{cod} . ': ' . $data->{message} );
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
|
||||||
if ( $self->{endpoint} eq 'forecast' ) {
|
###### Ab hier wird die ResponseHash Referenze für die Rückgabe zusammen gestellt
|
||||||
if ( ref( $data->{list} ) eq "ARRAY"
|
$self->{cached}->{current_date_time} =
|
||||||
and scalar( @{ $data->{list} } ) > 0 )
|
strftime( "%a, %e %b %Y %H:%M %p",
|
||||||
{
|
localtime( $self->{fetchTime} ) );
|
||||||
## löschen des alten Datensatzes
|
|
||||||
delete $self->{cached}->{forecast};
|
|
||||||
|
|
||||||
my $i = 0;
|
if ( $self->{endpoint} eq 'weather' ) {
|
||||||
foreach ( @{ $data->{list} } ) {
|
$self->{cached}->{country} = $data->{sys}->{country};
|
||||||
push(
|
$self->{cached}->{city} = $data->{name};
|
||||||
@{ $self->{cached}->{forecast}->{hourly} },
|
$self->{cached}->{license}{text} = 'none';
|
||||||
{
|
$self->{cached}->{current} = {
|
||||||
'pubDate' => strftime(
|
'temperature' => int(
|
||||||
"%a, %e %b %Y %H:%M %p",
|
sprintf( "%.1f", ( $data->{main}->{temp} - 273.15 ) ) +
|
||||||
localtime(
|
0.5
|
||||||
( $data->{list}->[$i]->{dt} ) - 3600
|
),
|
||||||
)
|
'temp_c' => int(
|
||||||
),
|
sprintf( "%.1f", ( $data->{main}->{temp} - 273.15 ) ) +
|
||||||
'day_of_week' => strftime(
|
0.5
|
||||||
"%a",
|
),
|
||||||
localtime(
|
'low_c' => int(
|
||||||
( $data->{list}->[$i]->{dt} ) - 3600
|
sprintf( "%.1f",
|
||||||
)
|
( $data->{main}->{temp_min} - 273.15 ) ) + 0.5
|
||||||
),
|
),
|
||||||
'temperature' => int(
|
'high_c' => int(
|
||||||
sprintf(
|
sprintf( "%.1f",
|
||||||
"%.1f",
|
( $data->{main}->{temp_max} - 273.15 ) ) + 0.5
|
||||||
(
|
),
|
||||||
$data->{list}->[$i]->{main}->{temp}
|
'tempLow' => int(
|
||||||
- 273.15
|
sprintf( "%.1f",
|
||||||
)
|
( $data->{main}->{temp_min} - 273.15 ) ) + 0.5
|
||||||
) + 0.5
|
),
|
||||||
),
|
'tempHigh' => int(
|
||||||
'temp_c' => int(
|
sprintf( "%.1f",
|
||||||
sprintf(
|
( $data->{main}->{temp_max} - 273.15 ) ) + 0.5
|
||||||
"%.1f",
|
),
|
||||||
(
|
'humidity' => $data->{main}->{humidity},
|
||||||
$data->{list}->[$i]->{main}->{temp}
|
'condition' =>
|
||||||
- 273.15
|
encode_utf8( $data->{weather}->[0]->{description} ),
|
||||||
)
|
'pressure' =>
|
||||||
) + 0.5
|
int( sprintf( "%.1f", $data->{main}->{pressure} ) + 0.5 ),
|
||||||
),
|
'wind' =>
|
||||||
'low_c' => int(
|
int( sprintf( "%.1f", $data->{wind}->{speed} ) + 0.5 ),
|
||||||
sprintf(
|
'wind_speed' =>
|
||||||
"%.1f",
|
int( sprintf( "%.1f", $data->{wind}->{speed} ) + 0.5 ),
|
||||||
(
|
'wind_direction' => $data->{wind}->{deg},
|
||||||
$data->{list}->[$i]->{main}
|
'cloudCover' => $data->{clouds}->{all},
|
||||||
->{temp_min} - 273.15
|
'visibility' =>
|
||||||
)
|
int( sprintf( "%.1f", $data->{visibility} ) + 0.5 ),
|
||||||
) + 0.5
|
'code' => $codes{ $data->{weather}->[0]->{id} },
|
||||||
),
|
'iconAPI' => $data->{weather}->[0]->{icon},
|
||||||
'high_c' => int(
|
'sunsetTime' => strftime(
|
||||||
sprintf(
|
"%a, %e %b %Y %H:%M %p",
|
||||||
"%.1f",
|
localtime( $data->{sys}->{sunset} )
|
||||||
(
|
),
|
||||||
$data->{list}->[$i]->{main}
|
'sunriseTime' => strftime(
|
||||||
->{temp_max} - 273.15
|
"%a, %e %b %Y %H:%M %p",
|
||||||
)
|
localtime( $data->{sys}->{sunrise} )
|
||||||
) + 0.5
|
),
|
||||||
),
|
'pubDate' => strftime(
|
||||||
'tempLow' => int(
|
"%a, %e %b %Y %H:%M %p",
|
||||||
sprintf(
|
localtime( $data->{dt} )
|
||||||
"%.1f",
|
),
|
||||||
(
|
};
|
||||||
$data->{list}->[$i]->{main}
|
}
|
||||||
->{temp_min} - 273.15
|
|
||||||
)
|
|
||||||
) + 0.5
|
|
||||||
),
|
|
||||||
'tempHigh' => int(
|
|
||||||
sprintf(
|
|
||||||
"%.1f",
|
|
||||||
(
|
|
||||||
$data->{list}->[$i]->{main}
|
|
||||||
->{temp_max} - 273.15
|
|
||||||
)
|
|
||||||
) + 0.5
|
|
||||||
),
|
|
||||||
'humidity' =>
|
|
||||||
$data->{list}->[$i]->{main}->{humidity},
|
|
||||||
'condition' => encode_utf8(
|
|
||||||
$data->{list}->[$i]->{weather}->[0]
|
|
||||||
->{description}
|
|
||||||
),
|
|
||||||
'pressure' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{list}->[$i]->{main}->{pressure}
|
|
||||||
) + 0.5
|
|
||||||
),
|
|
||||||
'wind' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{list}->[$i]->{wind}->{speed} )
|
|
||||||
+ 0.5
|
|
||||||
),
|
|
||||||
'wind_speed' => int(
|
|
||||||
sprintf( "%.1f",
|
|
||||||
$data->{list}->[$i]->{wind}->{speed} )
|
|
||||||
+ 0.5
|
|
||||||
),
|
|
||||||
'cloudCover' =>
|
|
||||||
$data->{list}->[$i]->{clouds}->{all},
|
|
||||||
'code' =>
|
|
||||||
$codes{ $data->{list}->[$i]->{weather}->[0]
|
|
||||||
->{id} },
|
|
||||||
'iconAPI' =>
|
|
||||||
$data->{list}->[$i]->{weather}->[0]->{icon},
|
|
||||||
},
|
|
||||||
);
|
|
||||||
|
|
||||||
$i++;
|
if ( $self->{endpoint} eq 'forecast' ) {
|
||||||
|
if ( ref( $data->{list} ) eq "ARRAY"
|
||||||
|
and scalar( @{ $data->{list} } ) > 0 )
|
||||||
|
{
|
||||||
|
## löschen des alten Datensatzes
|
||||||
|
delete $self->{cached}->{forecast};
|
||||||
|
|
||||||
|
my $i = 0;
|
||||||
|
foreach ( @{ $data->{list} } ) {
|
||||||
|
push(
|
||||||
|
@{ $self->{cached}->{forecast}->{hourly} },
|
||||||
|
{
|
||||||
|
'pubDate' => strftime(
|
||||||
|
"%a, %e %b %Y %H:%M %p",
|
||||||
|
localtime(
|
||||||
|
( $data->{list}->[$i]->{dt} ) - 3600
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'day_of_week' => strftime(
|
||||||
|
"%a",
|
||||||
|
localtime(
|
||||||
|
( $data->{list}->[$i]->{dt} ) - 3600
|
||||||
|
)
|
||||||
|
),
|
||||||
|
'temperature' => int(
|
||||||
|
sprintf(
|
||||||
|
"%.1f",
|
||||||
|
(
|
||||||
|
$data->{list}->[$i]->{main}->{temp}
|
||||||
|
- 273.15
|
||||||
|
)
|
||||||
|
) + 0.5
|
||||||
|
),
|
||||||
|
'temp_c' => int(
|
||||||
|
sprintf(
|
||||||
|
"%.1f",
|
||||||
|
(
|
||||||
|
$data->{list}->[$i]->{main}->{temp}
|
||||||
|
- 273.15
|
||||||
|
)
|
||||||
|
) + 0.5
|
||||||
|
),
|
||||||
|
'low_c' => int(
|
||||||
|
sprintf(
|
||||||
|
"%.1f",
|
||||||
|
(
|
||||||
|
$data->{list}->[$i]->{main}
|
||||||
|
->{temp_min} - 273.15
|
||||||
|
)
|
||||||
|
) + 0.5
|
||||||
|
),
|
||||||
|
'high_c' => int(
|
||||||
|
sprintf(
|
||||||
|
"%.1f",
|
||||||
|
(
|
||||||
|
$data->{list}->[$i]->{main}
|
||||||
|
->{temp_max} - 273.15
|
||||||
|
)
|
||||||
|
) + 0.5
|
||||||
|
),
|
||||||
|
'tempLow' => int(
|
||||||
|
sprintf(
|
||||||
|
"%.1f",
|
||||||
|
(
|
||||||
|
$data->{list}->[$i]->{main}
|
||||||
|
->{temp_min} - 273.15
|
||||||
|
)
|
||||||
|
) + 0.5
|
||||||
|
),
|
||||||
|
'tempHigh' => int(
|
||||||
|
sprintf(
|
||||||
|
"%.1f",
|
||||||
|
(
|
||||||
|
$data->{list}->[$i]->{main}
|
||||||
|
->{temp_max} - 273.15
|
||||||
|
)
|
||||||
|
) + 0.5
|
||||||
|
),
|
||||||
|
'humidity' =>
|
||||||
|
$data->{list}->[$i]->{main}->{humidity},
|
||||||
|
'condition' => encode_utf8(
|
||||||
|
$data->{list}->[$i]->{weather}->[0]
|
||||||
|
->{description}
|
||||||
|
),
|
||||||
|
'pressure' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{list}->[$i]->{main}->{pressure}
|
||||||
|
) + 0.5
|
||||||
|
),
|
||||||
|
'wind' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{list}->[$i]->{wind}->{speed} )
|
||||||
|
+ 0.5
|
||||||
|
),
|
||||||
|
'wind_speed' => int(
|
||||||
|
sprintf( "%.1f",
|
||||||
|
$data->{list}->[$i]->{wind}->{speed} )
|
||||||
|
+ 0.5
|
||||||
|
),
|
||||||
|
'cloudCover' =>
|
||||||
|
$data->{list}->[$i]->{clouds}->{all},
|
||||||
|
'code' =>
|
||||||
|
$codes{ $data->{list}->[$i]->{weather}->[0]
|
||||||
|
->{id} },
|
||||||
|
'iconAPI' =>
|
||||||
|
$data->{list}->[$i]->{weather}->[0]->{icon},
|
||||||
|
},
|
||||||
|
);
|
||||||
|
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
else { _ErrorHandling( $self, 'OpenWeatherMap ' . $response ); }
|
||||||
}
|
}
|
||||||
|
|
||||||
$self->{endpoint} = 'none' if ( $self->{endpoint} eq 'forecast' );
|
$self->{endpoint} = 'none' if ( $self->{endpoint} eq 'forecast' );
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user