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

73_km200.pm: Bugfix InternalTimer; Improvement Logs

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10933 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
sailor-fhem 2016-02-25 09:08:27 +00:00
parent 4119d5d86a
commit 29f9fe5842
1 changed files with 65 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
fhem/FHEM/73_km200.pm
View File

@ -109,7 +109,7 @@ sub km200_Define($$)
$hash->{NAME} = $name; $hash->{NAME} = $name;
$hash->{STATE} = "define"; $hash->{STATE} = "define";
Log3 $name, 5, $name. " : km200 - Starting to define module"; Log3 $name, 4, $name. " : km200 - Starting to define module";
###START###### Define known services of gateway ###########################################################START#### ###START###### Define known services of gateway ###########################################################START####
my @KM200_AllServices = ( my @KM200_AllServices = (
@ -132,7 +132,7 @@ sub km200_Define($$)
###START### Check whether IPv4 address is valid ###START### Check whether IPv4 address is valid
if ($url =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/) if ($url =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/)
{ {
Log3 $name, 5, $name. " : km200 - IPv4-address is valid : " . $url; Log3 $name, 4, $name. " : km200 - IPv4-address is valid : " . $url;
} }
else else
{ {
@ -149,7 +149,7 @@ sub km200_Define($$)
if ( length($EvalPassWord) == 16) if ( length($EvalPassWord) == 16)
{ {
$km200_gateway_password = $EvalPassWord; $km200_gateway_password = $EvalPassWord;
Log3 $name, 5, $name. " : km200 - Provided GatewayPassword provided as bareword has the correct length at least."; Log3 $name,4, $name. " : km200 - Provided GatewayPassword provided as bareword has the correct length at least.";
} }
else # Check whether the password is eventually base64 encoded else # Check whether the password is eventually base64 encoded
{ {
@ -161,7 +161,7 @@ sub km200_Define($$)
{ {
$km200_gateway_password = $decryptData; $km200_gateway_password = $decryptData;
$PasswordEncrypted = true; $PasswordEncrypted = true;
Log3 $name, 5, $name. " : km200 - Provided GatewayPassword encoded with base64 has the correct length at least."; Log3 $name, 4, $name. " : km200 - Provided GatewayPassword encoded with base64 has the correct length at least.";
} }
else else
{ {
@ -183,7 +183,7 @@ sub km200_Define($$)
if (length($decryptData) > 0) if (length($decryptData) > 0)
{ {
$km200_private_password = $decryptData; $km200_private_password = $decryptData;
Log3 $name, 5, $name. " : km200 - Provided PrivatePassword exists at least"; Log3 $name, 4, $name. " : km200 - Provided PrivatePassword exists at least";
} }
else else
{ {
@ -196,7 +196,7 @@ sub km200_Define($$)
{ {
if (length($km200_private_password) > 0) if (length($km200_private_password) > 0)
{ {
Log3 $name, 5, $name. " : km200 - Provided PrivatePassword exists at least"; Log3 $name, 4, $name. " : km200 - Provided PrivatePassword exists at least";
} }
else else
{ {
@ -275,11 +275,11 @@ sub km200_Define($$)
####END####### Reset fullResponse error message #############################################################END##### ####END####### Reset fullResponse error message #############################################################END#####
###START###### For Debugging purpose only ##################################################################START#### ###START###### For Debugging purpose only ##################################################################START####
Log3 $name, 5, $name. " : km200 - Define H : " .$hash; Log3 $name, 4, $name. " : km200 - Define H : " .$hash;
Log3 $name, 5, $name. " : km200 - Define D : " .$def; Log3 $name, 4, $name. " : km200 - Define D : " .$def;
Log3 $name, 5, $name. " : km200 - Define A : " .@a; Log3 $name, 4, $name. " : km200 - Define A : " .@a;
Log3 $name, 5, $name. " : km200 - Define Name : " .$name; Log3 $name, 4, $name. " : km200 - Define Name : " .$name;
Log3 $name, 5, $name. " : km200 - Define Adr : " .$url; Log3 $name, 4, $name. " : km200 - Define Adr : " .$url;
####END####### For Debugging purpose only ###################################################################END##### ####END####### For Debugging purpose only ###################################################################END#####
@ -300,17 +300,17 @@ sub km200_Define($$)
} }
elsif ($Km200Info eq "SERVICE NOT AVAILABLE") ## Communication OK but service not available ## elsif ($Km200Info eq "SERVICE NOT AVAILABLE") ## Communication OK but service not available ##
{ {
Log3 $name, 5, $name. " : km200 - /gateway/DateTime : NOT AVAILABLE"; Log3 $name, 4, $name. " : km200 - /gateway/DateTime : NOT AVAILABLE";
} }
else ## Communication OK and service is available ## else ## Communication OK and service is available ##
{ {
Log3 $name, 5, $name. " : km200 - /gateway/DateTime : AVAILABLE"; Log3 $name, 4, $name. " : km200 - /gateway/DateTime : AVAILABLE";
} }
####END####### Check whether communication to the physical unit is possible ################################END##### ####END####### Check whether communication to the physical unit is possible ################################END#####
###START###### Initiate the timer for first time polling of values from KM200 but wait 10s ###############START#### ###START###### Initiate the timer for first time polling of values from KM200 but wait 10s ###############START####
InternalTimer(gettimeofday()+10, "km200_GetInitService", $hash, 5); InternalTimer(gettimeofday()+10, "km200_GetInitService", $hash, 1);
Log3 $name, 5, $name. " : km200 - Internal timer for Initialisation of services started for the first time."; Log3 $name, 4, $name. " : km200 - Internal timer for Initialisation of services started for the first time.";
####END####### Initiate the timer for first time polling of values from KM200 but wait 60s ################END##### ####END####### Initiate the timer for first time polling of values from KM200 but wait 60s ################END#####
return undef; return undef;
@ -394,6 +394,7 @@ sub km200_Attr(@)
### Stop the current timer ### Stop the current timer
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
Log3 $name, 4, $name. " : km200 - InternalTimer has been removed.";
### Delete all Readings ### Delete all Readings
fhem( "deletereading $name .*" ); fhem( "deletereading $name .*" );
@ -406,12 +407,13 @@ sub km200_Attr(@)
else else
{ {
### Initiate the timer for first time polling of values from KM200 but wait 10s ### Initiate the timer for first time polling of values from KM200 but wait 10s
InternalTimer(gettimeofday()+10, "km200_GetInitService", $hash, 5); InternalTimer(gettimeofday()+10, "km200_GetInitService", $hash, 1);
Log3 $name, 4, $name. " : km200 - Internal timer for Initialisation of services re-started.";
### Set new status ### Set new status
$hash->{STATE} = "Initiating Sounding..."; $hash->{STATE} = "Initiating Sounding...";
Log3 $name, 5, $name. " : km200 - Device enabled as per attribute."; Log3 $name, 4, $name. " : km200 - Device enabled as per attribute.";
} }
####END#### Check whether device shall be disabled ####END#### Check whether device shall be disabled
} }
@ -424,7 +426,7 @@ sub km200_Attr(@)
if ($IntervalDynVal > 19) if ($IntervalDynVal > 19)
{ {
$hash->{INTERVALDYNVAL} = $IntervalDynVal; $hash->{INTERVALDYNVAL} = $IntervalDynVal;
Log3 $name, 5, $name. " : km200 - IntervalDynVal set to attribute value:" . $IntervalDynVal ." s"; Log3 $name, 4, $name. " : km200 - IntervalDynVal set to attribute value:" . $IntervalDynVal ." s";
} }
else else
{ {
@ -439,11 +441,11 @@ sub km200_Attr(@)
if ($a[3] >= 5) if ($a[3] >= 5)
{ {
$hash->{POLLINGTIMEOUT} = $a[3]; $hash->{POLLINGTIMEOUT} = $a[3];
Log3 $name, 5, $name. " : km200 - Polling timeout set to attribute value:" . $a[3] ." s"; Log3 $name, 4, $name. " : km200 - Polling timeout set to attribute value:" . $a[3] ." s";
} }
else else
{ {
Log3 $name, 5, $name. " : km200 - Error - Gateway polling timeout attribute too small: " . $a[3] ." s"; Log3 $name, 4, $name. " : km200 - Error - Gateway polling timeout attribute too small: " . $a[3] ." s";
return $name .": Error - Gateway polling timeout attribute is too small - server response time is 5s minimum, default is 5"; return $name .": Error - Gateway polling timeout attribute is too small - server response time is 5s minimum, default is 5";
} }
####END#### Check whether timeout is not too short ####END#### Check whether timeout is not too short
@ -455,14 +457,14 @@ sub km200_Attr(@)
if ($a[3] == 1) if ($a[3] == 1)
{ {
$hash->{CONSOLEMESSAGE} = true; $hash->{CONSOLEMESSAGE} = true;
Log3 $name, 5, $name. " : km200 - Console printouts enabled"; Log3 $name, 4, $name. " : km200 - Console printouts enabled";
print("\n"); print("\n");
} }
### If messages on console shall NOT be visible ### If messages on console shall NOT be visible
else else
{ {
$hash->{CONSOLEMESSAGE} = false; $hash->{CONSOLEMESSAGE} = false;
Log3 $name, 5, $name. " : km200 - Console printouts disabled"; Log3 $name, 4, $name. " : km200 - Console printouts disabled";
} }
} }
### Check whether DoNotPoll attribute have been provided ### Check whether DoNotPoll attribute have been provided
@ -473,6 +475,7 @@ sub km200_Attr(@)
### Stop the current timer ### Stop the current timer
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
Log3 $name, 4, $name. " : km200 - InternalTimer has been removed.";
### Delete the first 3 items of the array ### Delete the first 3 items of the array
splice @temp, 0, 3; splice @temp, 0, 3;
@ -513,7 +516,7 @@ sub km200_Attr(@)
if ($hash->{CONSOLEMESSAGE} == true) {print("km200 module is NOT polling the following services! \n @{$hash->{Secret}{KM200DONOTPOLL}} \n");} if ($hash->{CONSOLEMESSAGE} == true) {print("km200 module is NOT polling the following services! \n @{$hash->{Secret}{KM200DONOTPOLL}} \n");}
### Message for debugging purposes ### Message for debugging purposes
Log3 $name, 5, $name. " : km200 - The following services will not be polled: ". $a[3]; Log3 $name, 4, $name. " : km200 - The following services will not be polled: ". $a[3];
### Interrupting all currently running Polling ### Interrupting all currently running Polling
@{$hash->{Secret}{KM200DYNSERVICES}} = ""; @{$hash->{Secret}{KM200DYNSERVICES}} = "";
@ -523,8 +526,8 @@ sub km200_Attr(@)
fhem( "deletereading $name .*" ); fhem( "deletereading $name .*" );
### Re-start the sounding of values from KM200 but wait the period of $hash->{POLLINGTIMEOUT} + 10s ### Re-start the sounding of values from KM200 but wait the period of $hash->{POLLINGTIMEOUT} + 10s
InternalTimer(gettimeofday()+$hash->{POLLINGTIMEOUT}+10, "km200_GetInitService", $hash, 0); InternalTimer(gettimeofday()+$hash->{POLLINGTIMEOUT}+10, "km200_GetInitService", $hash, 1);
Log3 $name, 5, $name. " : km200 - Sounding of services re-started after change of DoNotPoll attribute"; Log3 $name, 4, $name. " : km200 - Sounding of services re-started after change of DoNotPoll attribute";
} }
### Check whether time-out for Read-Back has been provided ### Check whether time-out for Read-Back has been provided
if($a[2] eq "ReadBackDelay") if($a[2] eq "ReadBackDelay")
@ -534,7 +537,7 @@ sub km200_Attr(@)
if ($ReadBackDelay >= 0) if ($ReadBackDelay >= 0)
{ {
$hash->{READBACKDELAY} = $ReadBackDelay; $hash->{READBACKDELAY} = $ReadBackDelay;
Log3 $name, 5, $name. " : km200 - ReadBackDelay set to attribute value:" . $ReadBackDelay ." s"; Log3 $name, 4, $name. " : km200 - ReadBackDelay set to attribute value:" . $ReadBackDelay ." s";
} }
else else
{ {
@ -1499,7 +1502,7 @@ sub km200_PostSingleService($)
else else
{ {
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_SetSingleService - type is unknown for: " .$Service; Log3 $name, 4, $name. " : km200_SetSingleService - type unknown for : " .$Service;
### Console outputs for debugging purposes ### Console outputs for debugging purposes
if ($hash->{CONSOLEMESSAGE} == true) {print("km200_Set - Type is unknown for $Service\n");} if ($hash->{CONSOLEMESSAGE} == true) {print("km200_Set - Type is unknown for $Service\n");}
@ -1597,9 +1600,9 @@ sub km200_GetSingleService($)
my $JsonType = $json->{type}; my $JsonType = $json->{type};
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_ParseHttpResponseDyn: value found for : " .$Service; Log3 $name, 4, $name. " : km200_parseHttpResponseDyn - value found for : " .$Service;
Log3 $name, 5, $name. " : km200_ParseHttpResponseDyn: id : " .$JsonId; Log3 $name, 5, $name. " : km200_parseHttpResponseDyn - id : " .$JsonId;
Log3 $name, 5, $name. " : km200_ParseHttpResponseDyn: type : " .$JsonType; Log3 $name, 5, $name. " : km200_parseHttpResponseDyn - type : " .$JsonType;
### Set up variables ### Set up variables
my $TempReturnVal = ""; my $TempReturnVal = "";
@ -1853,7 +1856,7 @@ sub km200_GetSingleService($)
else else
{ {
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_GetSingleService - type is unknown for: " .$Service; Log3 $name, 4, $name. " : km200_GetSingleService - type unknown for : " .$Service;
### Log entries for debugging purposes ### Log entries for debugging purposes
} }
} }
@ -1946,7 +1949,7 @@ sub km200_ParseHttpResponseInit($)
$hash->{STATE} = "ERROR - Initial Connection failed... Try to re-connect in 10s"; $hash->{STATE} = "ERROR - Initial Connection failed... Try to re-connect in 10s";
### Start the timer for polling again but wait 10s ### Start the timer for polling again but wait 10s
InternalTimer(gettimeofday()+10, "km200_GetInitService", $hash, 0); InternalTimer(gettimeofday()+10, "km200_GetInitService", $hash, 1);
### Create Log entry ### Create Log entry
Log3 $name, 2, $name . " : km200_ParseHttpResponseInit - ERROR - Timer restarted to try again in 10s"; Log3 $name, 2, $name . " : km200_ParseHttpResponseInit - ERROR - Timer restarted to try again in 10s";
@ -1967,7 +1970,7 @@ sub km200_ParseHttpResponseInit($)
} }
or do or do
{ {
Log3 $name, 4, $name. " : km200_ParseHttpResponseInit: ". $Service . " CANNOT be parsed"; Log3 $name, 4, $name. " : km200_ParseHttpResponseInit - CANNOT be parsed : ". $Service;
if ($hash->{CONSOLEMESSAGE} == true) {print "The following Service CANNOT be parsed by JSON : $Service \n";} if ($hash->{CONSOLEMESSAGE} == true) {print "The following Service CANNOT be parsed by JSON : $Service \n";}
}; };
@ -1979,10 +1982,10 @@ sub km200_ParseHttpResponseInit($)
my $JsonValue = $json->{value}; my $JsonValue = $json->{value};
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_ParseHttpResponseInit: value found for : " .$Service; Log3 $name, 4, $name. " : km200_ParseHttpResponseInit - value found for : " .$Service;
Log3 $name, 5, $name. " : km200_ParseHttpResponseInit: id : " .$JsonId; Log3 $name, 5, $name. " : km200_ParseHttpResponseInit - id : " .$JsonId;
Log3 $name, 5, $name. " : km200_ParseHttpResponseInit: type : " .$JsonType; Log3 $name, 5, $name. " : km200_ParseHttpResponseInit - type : " .$JsonType;
Log3 $name, 5, $name. " : km200_ParseHttpResponseInit: value : " .$JsonValue; Log3 $name, 5, $name. " : km200_ParseHttpResponseInit - value : " .$JsonValue;
### Add service to the list of responding services ### Add service to the list of responding services
push (@KM200_RespondingServices, $Service); push (@KM200_RespondingServices, $Service);
@ -2020,10 +2023,10 @@ sub km200_ParseHttpResponseInit($)
my @JsonValues = $json->{switchPoints}; my @JsonValues = $json->{switchPoints};
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_ParseHttpResponseInit: value found for : " .$Service; Log3 $name, 4, $name. " : km200_ParseHttpResponseInit - value found for : " .$Service;
Log3 $name, 5, $name. " : km200_ParseHttpResponseInit: id : " .$JsonId; Log3 $name, 5, $name. " : km200_ParseHttpResponseInit - id : " .$JsonId;
Log3 $name, 5, $name. " : km200_ParseHttpResponseInit: type : " .$JsonType; Log3 $name, 5, $name. " : km200_ParseHttpResponseInit - type : " .$JsonType;
Log3 $name, 5, $name. " : km200_ParseHttpResponseInit: value : " .@JsonValues; Log3 $name, 5, $name. " : km200_ParseHttpResponseInit - value : " .@JsonValues;
### Add service to the list of responding services ### Add service to the list of responding services
push (@KM200_RespondingServices, $Service); push (@KM200_RespondingServices, $Service);
@ -2252,9 +2255,9 @@ sub km200_ParseHttpResponseInit($)
my $JsonType = $json->{type}; my $JsonType = $json->{type};
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_ParseHttpResponseInit: value found for : " .$Service; Log3 $name, 4, $name. " : km200_ParseHttpResponseInit - value found for : " .$Service;
Log3 $name, 5, $name. " : km200_ParseHttpResponseInit: id : " .$JsonId; Log3 $name, 5, $name. " : km200_ParseHttpResponseInit - id : " .$JsonId;
Log3 $name, 5, $name. " : km200_ParseHttpResponseInit: type : " .$JsonType; Log3 $name, 5, $name. " : km200_ParseHttpResponseInit - type : " .$JsonType;
### Add service to the list of responding services ### Add service to the list of responding services
push (@KM200_RespondingServices, $Service); push (@KM200_RespondingServices, $Service);
@ -2346,7 +2349,7 @@ sub km200_ParseHttpResponseInit($)
else else
{ {
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_ParseHttpResponseInit - type is unknown for:" .$Service; Log3 $name, 4, $name. " : km200_ParseHttpResponseInit - type unknown for : " .$Service;
### Console Message if enabled ### Console Message if enabled
if ($hash->{CONSOLEMESSAGE} == true) {print "The data type is unknown for the following Service : $Service \n";} if ($hash->{CONSOLEMESSAGE} == true) {print "The data type is unknown for the following Service : $Service \n";}
@ -2356,7 +2359,7 @@ sub km200_ParseHttpResponseInit($)
else else
{ {
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_ParseHttpResponseInit: ". $Service . " NOT available"; Log3 $name, 4, $name. " : km200_ParseHttpResponseInit - NOT available : ". $Service;
### Console Message if enabled ### Console Message if enabled
if ($hash->{CONSOLEMESSAGE} == true) {print "The following Service CANNOT be read : $Service \n";} if ($hash->{CONSOLEMESSAGE} == true) {print "The following Service CANNOT be read : $Service \n";}
@ -2394,7 +2397,7 @@ sub km200_ParseHttpResponseInit($)
###START###### Initiate the timer for continuous polling of dynamical values from KM200 ###################START#### ###START###### Initiate the timer for continuous polling of dynamical values from KM200 ###################START####
InternalTimer(gettimeofday()+($hash->{INTERVALDYNVAL}), "km200_GetDynService", $hash, 0); InternalTimer(gettimeofday()+($hash->{INTERVALDYNVAL}), "km200_GetDynService", $hash, 1);
Log3 $name, 4, $name. " : km200 - Define: InternalTimer for dynamic values started with interval of: ".($hash->{INTERVALDYNVAL}); Log3 $name, 4, $name. " : km200 - Define: InternalTimer for dynamic values started with interval of: ".($hash->{INTERVALDYNVAL});
####END####### Initiate the timer for continuous polling of dynamical values from KM200 ####################END##### ####END####### Initiate the timer for continuous polling of dynamical values from KM200 ####################END#####
@ -2417,7 +2420,7 @@ sub km200_ParseHttpResponseInit($)
readingsSingleUpdate( $hash, "fullResponse", "Restarted after ERROR", 1); readingsSingleUpdate( $hash, "fullResponse", "Restarted after ERROR", 1);
### Reset timer for init procedure and start over again until it works ### Reset timer for init procedure and start over again until it works
InternalTimer(gettimeofday()+5, "km200_GetInitService", $hash, 0); InternalTimer(gettimeofday()+5, "km200_GetInitService", $hash, 1);
Log3 $name, 5, $name. " : km200 - Internal timer for Initialisation of services restarted after fullResponse - error."; Log3 $name, 5, $name. " : km200 - Internal timer for Initialisation of services restarted after fullResponse - error.";
} }
@ -2529,10 +2532,10 @@ sub km200_ParseHttpResponseDyn($)
my $JsonValue = $json->{value}; my $JsonValue = $json->{value};
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_parseHttpResponseDyn: value found for : " .$Service; Log3 $name, 4, $name. " : km200_parseHttpResponseDyn - value found for : " .$Service;
Log3 $name, 5, $name. " : km200_parseHttpResponseDyn: id : " .$JsonId; Log3 $name, 5, $name. " : km200_parseHttpResponseDyn - id : " .$JsonId;
Log3 $name, 5, $name. " : km200_ParseHttpResponseDyn: type : " .$JsonType; Log3 $name, 5, $name. " : km200_parseHttpResponseDyn - type : " .$JsonType;
Log3 $name, 5, $name. " : km200_parseHttpResponseDyn: value : " .$JsonValue; Log3 $name, 5, $name. " : km200_parseHttpResponseDyn - value : " .$JsonValue;
### Log entries for debugging purposes ### Log entries for debugging purposes
### Save json-hash for DbLog-Split ### Save json-hash for DbLog-Split
@ -2550,9 +2553,9 @@ sub km200_ParseHttpResponseDyn($)
my $JsonType = $json->{type}; my $JsonType = $json->{type};
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_ParseHttpResponseDyn: value found for : " .$Service; Log3 $name, 4, $name. " : km200_parseHttpResponseDyn - value found for : " .$Service;
Log3 $name, 5, $name. " : km200_ParseHttpResponseDyn: id : " .$JsonId; Log3 $name, 5, $name. " : km200_parseHttpResponseDyn - id : " .$JsonId;
Log3 $name, 5, $name. " : km200_ParseHttpResponseDyn: type : " .$JsonType; Log3 $name, 5, $name. " : km200_parseHttpResponseDyn - type : " .$JsonType;
### Set up variables ### Set up variables
my $TempJsonId = ""; my $TempJsonId = "";
@ -2760,7 +2763,7 @@ sub km200_ParseHttpResponseDyn($)
else else
{ {
### Log entries for debugging purposes ### Log entries for debugging purposes
Log3 $name, 4, $name. " : km200_ParseHttpResponseDyn - type is unknown for:" .$Service; Log3 $name, 4, $name. " : km200_parseHttpResponseDyn - type unknown for : " .$Service;
} }
} }
else else