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

STATE can now be used in any way you want

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6319 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63
2014-07-25 22:14:36 +00:00
parent 8c5d1f22cc
commit ff35d17774
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/98_WOL.pm
View File

@@ -36,6 +36,7 @@ sub WOL_Initialize($) {
################################################################################
sub WOL_Set($@) {
my ($hash, @a) = @_;
return "no set value specified" if(int(@a) < 2);
return "Unknown argument $a[1], choose one of on off refresh" if($a[1] eq "?");
@@ -68,7 +69,7 @@ sub WOL_Set($@) {
RemoveInternalTimer($hash);
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "WOL_UpdateReadings", $hash, 0);
if ($hash->{STATE} eq "on") {
if (AttrVal($name, "state", "") eq "on") {
WOL_GetUpdate($hash);
}
return undef;
@@ -132,7 +133,8 @@ sub WOL_UpdateReadings($) {
$hash->{INTERVAL} = AttrVal($hash->{NAME}, "interval", 900);
my $ip = $hash->{IP};
my $name = $hash->{NAME};
readingsBeginUpdate ($hash);
if (`ping -c 1 -w 2 $ip` =~ m/100%/) {
@@ -148,11 +150,12 @@ sub WOL_UpdateReadings($) {
sub WOL_GetUpdate($) {
my ($hash) = @_;
if ($hash->{STATE} eq "on") {
my $name = $hash->{NAME};
if (AttrVal($name, "state", "") eq "on") {
wake($hash);
}
if ($hash->{REPEAT} > 0 && $hash->{STATE} eq "on" ) {
if ($hash->{REPEAT} > 0 && AttrVal($name, "state", "") eq "on" ) {
InternalTimer(gettimeofday()+$hash->{REPEAT}, "WOL_GetUpdate", $hash, 0);
}
}