Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

repair of last commit - old version active

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@6322 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63 2014-07-27 21:36:16 +00:00
parent 3cab2cb914
commit c0b00b07f2
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
FHEM/98_WOL.pm
View File

@ -36,7 +36,6 @@ 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 "?");
@ -69,7 +68,7 @@ sub WOL_Set($@) {
RemoveInternalTimer($hash);
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "WOL_UpdateReadings", $hash, 0);
if (AttrVal($name, "state", "") eq "on") {
if ($hash->{STATE} eq "on") {
WOL_GetUpdate($hash);
}
return undef;
@ -133,7 +132,6 @@ sub WOL_UpdateReadings($) {
$hash->{INTERVAL} = AttrVal($hash->{NAME}, "interval", 900);
my $ip = $hash->{IP};
my $name = $hash->{NAME};
readingsBeginUpdate ($hash);
@ -150,12 +148,11 @@ sub WOL_UpdateReadings($) {
sub WOL_GetUpdate($) {
my ($hash) = @_;
my $name = $hash->{NAME};
if (AttrVal($name, "state", "") eq "on") {
if ($hash->{STATE} eq "on") {
wake($hash);
}
if ($hash->{REPEAT} > 0 && AttrVal($name, "state", "") eq "on" ) {
if ($hash->{REPEAT} > 0 && $hash->{STATE} eq "on" ) {
InternalTimer(gettimeofday()+$hash->{REPEAT}, "WOL_GetUpdate", $hash, 0);
}
}