30_HUEBridge.pm: eval decode_json and from_json to avoid problems with malformed input
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@9957 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
@@ -830,15 +830,16 @@ HUEBridge_HTTP_Call($$$;$)
|
|||||||
return undef;
|
return undef;
|
||||||
}
|
}
|
||||||
|
|
||||||
# try {
|
my $decoded;
|
||||||
# from_json($ret);
|
if( HUEBridge_isFritzBox() ) {
|
||||||
# } catch {
|
$decoded = eval { decode_json($ret) };
|
||||||
# return undef;
|
Log3 $name, 2, "$name: json error: $@ in $ret" if( $@ );
|
||||||
# }
|
} else {
|
||||||
|
$decoded = eval { from_json($ret) };
|
||||||
|
Log3 $name, 2, "$name: json error: $@ in $ret" if( $@ );
|
||||||
|
}
|
||||||
|
|
||||||
return HUEBridge_ProcessResponse($hash,decode_json($ret)) if( HUEBridge_isFritzBox() );
|
return HUEBridge_ProcessResponse($hash, $decoded);
|
||||||
|
|
||||||
return HUEBridge_ProcessResponse($hash,from_json($ret));
|
|
||||||
}
|
}
|
||||||
|
|
||||||
sub
|
sub
|
||||||
|
|||||||
Reference in New Issue
Block a user