FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-09 20:57:11 +00:00
Code Issues Releases Wiki Activity

74_HusqvarnaAutomower: Updated decode_json error handling

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19113 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
krannich 2019-04-04 20:12:17 +00:00
parent 1d575d3124
commit 8946a3c8d0
1 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
fhem/FHEM/74_HusqvarnaAutomower.pm
View File

@ -364,11 +364,10 @@ sub HusqvarnaAutomower_APIAuthResponse($) {
} elsif($data ne "") {
my $result = {};
eval { $result = decode_json($data) };
if ($@) {
my $result = eval { decode_json($data) };
if ($@) {
Log3( $name, 3, " - JSON error while request: $@");
return undef;
return;
}
if ($result->{errors}) {
@ -507,13 +506,12 @@ sub HusqvarnaAutomower_getMowerResponse($) {
Log3 $name, 5, "Automower(s) found";
Log3 $name, 5, $data;
my $result = {};
eval { $result = decode_json($data) };
if ($@) {
my $result = eval { decode_json($data) };
if ($@) {
Log3( $name, 3, " - JSON error while request: $@");
return undef;
}
return;
}
my $mower = $hash->{HusqvarnaAutomower}->{mower};
Log3 $name, 5, $result->[$mower]->{'name'};
@ -592,13 +590,11 @@ sub HusqvarnaAutomower_getMowerStatusResponse($) {
} elsif($data ne "") {
#Log3 $name, 5, $data;
my $result = {};
eval { $result = decode_json($data) };
if ($@) {
my $result = eval { decode_json($data) };
if ($@) {
Log3( $name, 3, " - JSON error while request: $@");
return undef;
return;
}
$hash->{HusqvarnaAutomower}->{mower_battery} = $result->{'batteryPercent'};
$hash->{HusqvarnaAutomower}->{mower_activity} = HusqvarnaAutomower_ToGerman($hash, $result->{'mowerStatus'}->{'activity'});
@ -710,11 +706,10 @@ sub HusqvarnaAutomower_CMDResponse($) {
} elsif($data ne "") {
my $result = {};
eval { $result = decode_json($data) };
my $result = eval { decode_json($data) };
if ($@) {
Log3( $name, 3, " - JSON error while request: $@");
return undef;
return;
}
if ($result->{errors}) {