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:
justme1968
2015-11-21 19:01:37 +00:00
parent a6a6990e31
commit ed5b086be1

View File

@@ -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