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

73_km200.pm: Improvement of Log-Entries for bugfix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11021 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
sailor-fhem 2016-03-07 13:16:38 +00:00
parent 03c0e7cbf0
commit 3e4432d41f
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/FHEM/73_km200.pm
View File

@ -748,9 +748,15 @@ sub km200_Decrypt($)
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my $decryptData = $hash->{temp}{decodedcontent}; my $decryptData = $hash->{temp}{decodedcontent};
### Log entries for debugging purposes
Log3 $name, 5, $name. " : km200 - decryptData2 - decryptData : " .$decryptData;
# Remove additional encoding with base64 # Remove additional encoding with base64
$decryptData = decode_base64($decryptData); $decryptData = decode_base64($decryptData);
### Log entries for debugging purposes
Log3 $name, 5, $name. " : km200 - decryptData2 - base64decode : " .$decryptData;
# Check whether the length of the decryptData is NOT multiplies of 16 # Check whether the length of the decryptData is NOT multiplies of 16
if ((length($decryptData)&0xF) != 0) if ((length($decryptData)&0xF) != 0)
{ {
@ -1527,9 +1533,15 @@ sub km200_GetSingleService($)
### Console outputs for debugging purposes ### Console outputs for debugging purposes
if ($hash->{CONSOLEMESSAGE} == true) {print("Obtaining value of : " . $Service . "\n");} if ($hash->{CONSOLEMESSAGE} == true) {print("Obtaining value of : " . $Service . "\n");}
### Log entries for debugging purposes
Log3 $name, 5, $name. " : km200 - GetSingleService - service : " .$Service;
### Create full URL of the current Service to be read ### Create full URL of the current Service to be read
my $url ="http://" . $km200_gateway_host . $Service; my $url ="http://" . $km200_gateway_host . $Service;
### Log entries for debugging purposes
Log3 $name, 5, $name. " : km200 - GetSingleService - url : " .$url;
### Create parameter set for HttpUtils_BlockingGet ### Create parameter set for HttpUtils_BlockingGet
my $param = { my $param = {
url => $url, url => $url,
@ -1541,8 +1553,13 @@ sub km200_GetSingleService($)
### Block other scheduled and unscheduled routines ### Block other scheduled and unscheduled routines
$hash->{status}{FlagGetRequest} = true; $hash->{status}{FlagGetRequest} = true;
### Retrieve data from km200
($err, $data) = HttpUtils_BlockingGet($param); ($err, $data) = HttpUtils_BlockingGet($param);
### Log entries for debugging purposes
Log3 $name, 5, $name. " : km200 - GetSingleService - err : " .$err;
Log3 $name, 5, $name. " : km200 - GetSingleService - data : " .$data;
### Block other scheduled and unscheduled routines ### Block other scheduled and unscheduled routines
$hash->{status}{FlagGetRequest} = false; $hash->{status}{FlagGetRequest} = false;