diff --git a/73_AMADCommBridge.pm b/73_AMADCommBridge.pm index b947e46..54ff1eb 100644 --- a/73_AMADCommBridge.pm +++ b/73_AMADCommBridge.pm @@ -65,10 +65,12 @@ use warnings; use HttpUtils; use TcpServerUtils; + +eval "use Encode qw(encode encode_utf8);1" or $missingModul .= "Encode "; eval "use JSON;1" or $missingModul .= "JSON "; -my $modulversion = "3.9.75"; +my $modulversion = "3.9.77"; my $flowsetversion = "3.9.76"; @@ -713,11 +715,9 @@ sub AMADCommBridge_ResponseProcessing($$) { my $response; my $c; - my $decode_json; - - $decode_json = eval{decode_json($json)}; - + + my $decode_json = eval{decode_json($json)}; if($@){ Log3 $bname, 4, "AMADCommBridge ($name) - ERROR while request: $@"; @@ -811,7 +811,7 @@ sub AMADCommBridge_ResponseProcessing($$) { } elsif ( $fhemcmd eq 'voiceinputvalue' ) { - my $fhemCmd = lc($decode_json->{payload}{voiceinputdata}); + my $fhemCmd = lc(encode_utf8($decode_json->{payload}{voiceinputdata})); readingsBeginUpdate( $bhash); readingsBulkUpdate( $bhash, "receiveVoiceCommand", $fhemCmd, 1 ); @@ -971,175 +971,7 @@ sub AMADCommBridge_ParseMsg($$) {

AMADCommBridge

- +comming soon =end html =begin html_DE @@ -1147,177 +979,59 @@ sub AMADCommBridge_ParseMsg($$) {

AMADCommBridge

-
- AMAD Communication Bridge -
- NUN bitte die Flows AKTIVIEREN!!!
-
- Fertig! Nach anlegen der Geräteinstanz und dem eintragen der fhemServerIP in der CommBridge sollten nach spätestens 15 Sekunden bereits die ersten Readings reinkommen. Nun wird alle 15 Sekunden probiert einen Status Request erfolgreich ab zu schließen. Wenn der Status sich über einen längeren Zeitraum nicht auf "active" ändert, sollte man im Log nach eventuellen Fehlern suchen. -


- +

+ Readings - -

- - Set - -
- Set abhängig von gesetzten Attributen - -

- - state - -


- Anwendungsbeispiele: -


+

+ + Attribute + +

+ Wie man bei Problemen mit dem Assistenten ein Androidgerät auch von Hand anlegen kann, erfärst Du in der Commandref zum AMADDevice Modul. =end html_DE diff --git a/74_AMADDevice.pm b/74_AMADDevice.pm index bb27e43..7c44f89 100644 --- a/74_AMADDevice.pm +++ b/74_AMADDevice.pm @@ -54,7 +54,7 @@ eval "use Encode qw(encode encode_utf8);1" or $missingModul .= "Encode "; eval "use JSON;1" or $missingModul .= "JSON "; -my $modulversion = "3.9.73"; +my $modulversion = "3.9.76"; my $flowsetversion = "3.9.76"; @@ -762,7 +762,7 @@ sub AMADDevice_Parse($$) { my $name = $io_hash->{NAME}; - my $decode_json = eval{decode_json(encode_utf8($json))}; + my $decode_json = eval{decode_json(encode_utf8($json))}; if($@){ Log3 $name, 3, "AMADDevice ($name) - error while request: $@"; #readingsSingleUpdate($hash, "state", "error", 1);