FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 01:09:47 +00:00
Code Issues Releases Wiki Activity

minor logging optimizations for mode fritzbox

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3178 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
markusbloch 2013-05-14 16:47:09 +00:00
parent 3f673e3242
commit fc2dc7dc4e
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/73_PRESENCE.pm
View File

@ -567,6 +567,11 @@ PRESENCE_DoLocalFritzBoxScan($)
{ {
Log GetLogLevel($name, 5), "PRESENCE ($name) - checking with cached number the $check_command state ($number)"; Log GetLogLevel($name, 5), "PRESENCE ($name) - checking with cached number the $check_command state ($number)";
$status = qx(/usr/bin/ctlmgr_ctl r landevice settings/landevice$number/$check_command); $status = qx(/usr/bin/ctlmgr_ctl r landevice settings/landevice$number/$check_command);
chomp $status;
Log GetLogLevel($name, 5), "PRESENCE ($name) - ctlmgr_ctl (cached: $number) returned: $status";
if(not $status =~ /^\s*\d+\s*$/) if(not $status =~ /^\s*\d+\s*$/)
{ {
return "$name|$local|error|could not execute ctlmgr_ctl (cached)"; return "$name|$local|error|could not execute ctlmgr_ctl (cached)";
@ -583,6 +588,8 @@ PRESENCE_DoLocalFritzBoxScan($)
chomp $max; chomp $max;
Log GetLogLevel($name, 5), "PRESENCE ($name) - ctlmgr_ctl (getting device count) returned: $max";
if(not $max =~ /^\s*\d+\s*$/) if(not $max =~ /^\s*\d+\s*$/)
{ {
return "$name|$local|error|could not execute ctlmgr_ctl"; return "$name|$local|error|could not execute ctlmgr_ctl";
@ -605,6 +612,8 @@ PRESENCE_DoLocalFritzBoxScan($)
{ {
$status=qx(/usr/bin/ctlmgr_ctl r landevice settings/landevice$number/$check_command); $status=qx(/usr/bin/ctlmgr_ctl r landevice settings/landevice$number/$check_command);
chomp $status;
Log GetLogLevel($name, 5), "PRESENCE ($name) - $check_command for device number $net_device is $status"; Log GetLogLevel($name, 5), "PRESENCE ($name) - $check_command for device number $net_device is $status";
last; last;
} }
@ -612,8 +621,6 @@ PRESENCE_DoLocalFritzBoxScan($)
$number++; $number++;
sleep 0.2; sleep 0.2;
} }
chomp $status;
return ($status == 0 ? "$name|$local|absent" : "$name|$local|present").($number <= $max ? "|$number" : ""); return ($status == 0 ? "$name|$local|absent" : "$name|$local|present").($number <= $max ? "|$number" : "");
} }