mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

98_WOL: logging improved

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10595 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63
2016-01-22 17:05:38 +00:00
parent 21a0e55c4a
commit 097e17845f
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
fhem/FHEM/98_WOL.pm
View File

@@ -106,11 +106,13 @@ sub WOL_Define($$) {
$hash->{IP} = $ip;
$hash->{REPEAT} = $repeat;
$hash->{MODE} = $mode;
delete $hash->{helper}{RUNNING_PID};
readingsSingleUpdate($hash, "packet_via_EW", "none",0);
readingsSingleUpdate($hash, "packet_via_UDP", "none",0);
readingsSingleUpdate($hash, "state", "none",0);
readingsSingleUpdate($hash, "active", "off",0);
readingsSingleUpdate($hash, "active", "off", 0);
RemoveInternalTimer($hash);
@@ -135,11 +137,10 @@ sub WOL_UpdateReadings($) {
return if (!defined($hash));
my $name = $hash->{NAME};
my $blockingFn = "WOL_Ping";
my $arg = $hash->{NAME}."|".$hash->{IP};
my $finishFn = "WOL_PingDone";
my $timeout = 4;
my $arg = $hash->{NAME}."|".$hash->{IP};
my $blockingFn = "WOL_Ping";
my $finishFn = "WOL_PingDone";
my $abortFn = "WOL_PingAbort";
if (!(exists($hash->{helper}{RUNNING_PID}))) {
@@ -157,10 +158,11 @@ sub WOL_Ping($){
my $hash = $defs{$name};
my $ping = "ping -c 1 -w 2 $ip";
Log3 $hash, 4, "[$name] executing: $ping";
my $res = qx ($ping);
$res = "" if (!defined($res));
Log3 $hash, 5, "[$name] executing: $ping";
Log3 $hash, 4, "[$name] result executing ping: $res";
my $erreichbar = !($res =~ m/100%/);
my $return = "$name|$erreichbar";
@@ -175,11 +177,11 @@ sub WOL_PingDone($){
readingsBeginUpdate ($hash);
if ($erreichbar) {
Log3 $hash, 5, "[$name] ping succesful - state = on";
Log3 $hash, 4, "[$name] ping succesful - state = on";
readingsBulkUpdate ($hash, "isRunning", "true");
readingsBulkUpdate ($hash, "state", "on");
} else {
Log3 $hash, 5, "[$name] ping not succesful - state = off";
Log3 $hash, 4, "[$name] ping not succesful - state = off";
readingsBulkUpdate ($hash, "isRunning", "false");
readingsBulkUpdate ($hash, "state", "off");
}