diff --git a/74_AMAD.pm b/74_AMAD.pm index 1e82c75..1b30d4f 100644 --- a/74_AMAD.pm +++ b/74_AMAD.pm @@ -231,7 +231,7 @@ my ( $hash ) = @_; InternalTimer( gettimeofday()+15, "AMAD_GetUpdate", $hash, 0 ); Log3 $name, 3, "AMAD ($name) - GetUpdate, FHEM or Device not ready yet"; - Log3 $name, 3, "AMAD ($name) - GetUpdate, Please set \"$bname fhemServerIP \" NOW!"; + Log3 $name, 3, "AMAD ($name) - GetUpdate, Please set \"$bname fhemServerIP \" NOW!" if( ReadingsVal( $bname, "fhemServerIP", "none" ) ne "none" ); } } @@ -253,7 +253,7 @@ sub AMAD_statusRequest($) { HttpUtils_NonblockingGet( { url => $url, - timeout => 60, + timeout => 30, hash => $hash, method => "GET", header => "fhemIP: $fhemip\r\nfhemDevice: $name\r\nactiveTask: $activetask\r\napSSID: $apssid", @@ -261,6 +261,8 @@ sub AMAD_statusRequest($) { callback => \&AMAD_statusRequestErrorHandling, } ); + + Log3 $name, 5, "AMAD ($name) - Send statusRequest with URL: \"$url\" and Header: \"fhemIP: $fhemip\r\nfhemDevice: $name\r\nactiveTask: $activetask\r\napSSID: $apssid\""; } sub AMAD_statusRequestErrorHandling($$$) { @@ -410,7 +412,7 @@ sub AMAD_ResponseProcessing($$) { my $host = $hash->{HOST}; ### Begin Response Processing - Log3 $name, 4, "AMAD ($name) - Processing data: $data"; + Log3 $name, 5, "AMAD ($name) - Processing data: $data"; readingsSingleUpdate( $hash, "state", "active", 1) if( ReadingsVal( $name, "state", 0 ) ne "initialized" or ReadingsVal( $name, "state", 0 ) ne "active" ); my @valuestring = split( '@@@@', $data ); @@ -982,7 +984,7 @@ sub AMAD_CommBridge_Read($) { if ( $fhemcmd =~ /setreading\b/ ) { my $tv = $data[1]; - Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: processing receive reading values"; + Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: processing receive reading values - Device: $device Data: $tv"; AMAD_ResponseProcessing($dhash,$tv);