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@7036 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63
2014-11-21 22:00:16 +00:00
parent 9fcd493b13
commit 3652dc42a9
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/98_WOL.pm
View File

@@ -120,7 +120,6 @@ sub WOL_Define($$) {
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
WOL_UpdateReadings($hash); WOL_UpdateReadings($hash);
WOL_GetUpdate ($hash);
return undef; return undef;
} }
################################################################################ ################################################################################
@@ -133,17 +132,28 @@ sub WOL_Undef($$) {
} }
################################################################################ ################################################################################
sub WOL_UpdateReadings($) { sub WOL_UpdateReadings($) {
my ($hash) = @_; my ($hash) = @_;
$hash->{INTERVAL} = AttrVal($hash->{NAME}, "interval", 900); $hash->{INTERVAL} = AttrVal($hash->{NAME}, "interval", 900);
my $name = $hash->{NAME};
my $ip = $hash->{IP}; my $ip = $hash->{IP};
readingsBeginUpdate ($hash); readingsBeginUpdate ($hash);
if (`ping -c 1 -w 2 $ip` =~ m/100%/) { my $ping = "ping -c 1 -w 2 $ip";
my $res = qx ($ping);
$res = "" if (!defined($res));
Log3 $hash, 5, "[$name] executing: $ping";
Log3 $hash, 5, "[$name] result of ping:$res";
if ( $res =~ m/100%/) {
Log3 $hash, 5, "[$name] ping not succesful - state = on";
readingsBulkUpdate ($hash, "isRunning", "false"); readingsBulkUpdate ($hash, "isRunning", "false");
readingsBulkUpdate ($hash, "state", "off"); readingsBulkUpdate ($hash, "state", "off");
} else { } else {
Log3 $hash, 5, "[$name] ping succesful - state = on";
readingsBulkUpdate ($hash, "isRunning", "true"); readingsBulkUpdate ($hash, "isRunning", "true");
readingsBulkUpdate ($hash, "state", "on"); readingsBulkUpdate ($hash, "state", "on");
} }