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

fix some regex formating

Browse Source
This commit is contained in:
Marko Oldenburg 2022-12-29 04:41:10 +01:00
parent 3d4996777f
commit 7ef05e0c00
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
controls_Weather.txt
View File

@ -1,4 +1,4 @@
UPD 2022-12-28_09:21:01 54815 FHEM/59_Weather.pm
UPD 2022-12-28_09:20:44 49883 lib/FHEM/APIs/Weather/DarkSkyAPI.pm
UPD 2022-12-28_09:20:52 32101 lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm
UPD 2022-12-28_09:20:32 35424 lib/FHEM/APIs/Weather/wundergroundAPI.pm
UPD 2022-12-29_04:40:05 35600 lib/FHEM/APIs/Weather/wundergroundAPI.pm

17
lib/FHEM/APIs/Weather/wundergroundAPI.pm
View File

@ -7,6 +7,7 @@ use FHEM::Meta;
use POSIX;
use HttpUtils;
use experimental qw /switch/;
use Encode;
my $META = {};
my $ret = FHEM::Meta::getMetadata( __FILE__, $META );
@ -75,8 +76,10 @@ eval {
my $missingModul = '';
# use Data::Dumper; # for Debug only
## API URL
## no critic (Conditional "use" statement. Use "require" to conditionally include a module (Modules::ProhibitConditionalUseStatements))
eval { use Encode qw /encode_utf8/; 1 }
or $missingModul .= 'Encode ';
eval { use Readonly; 1 }
or $missingModul .= 'Readonly '; # apt install libreadonly-perl
## use critic
@ -370,7 +373,7 @@ sub _ProcessingRetrieveData {
and defined($response)
and $response )
{
if ( $response =~ m/^\{.*\}$/ ) {
if ( $response =~ m/^\{.*\}$/x ) {
my $data = eval { decode_json( encode_utf8($response) ) };
if ($@) {
_ErrorHandling( $self,
@ -486,13 +489,13 @@ sub _ProcessingRetrieveData {
while ( $i < $days ) {
$data->{moonriseTimeLocal}[$i] =~
s/^(....-..-..T..:..).*/$1/;
s/^(....-..-..T..:..).*/$1/x;
$data->{moonsetTimeLocal}[$i] =~
s/^(....-..-..T..:..).*/$1/;
s/^(....-..-..T..:..).*/$1/x;
$data->{sunriseTimeLocal}[$i] =~
s/^(....-..-..T..:..).*/$1/;
s/^(....-..-..T..:..).*/$1/x;
$data->{sunsetTimeLocal}[$i] =~
s/^(....-..-..T..:..).*/$1/;
s/^(....-..-..T..:..).*/$1/x;
push(
@{ $self->{cached}{forecast}{daily} },