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

update WOL log levels

Browse Source 
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@1205 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klassm
2012-01-22 12:22:25 +00:00
parent 2b62b6128f
commit 0cb0232351
1 changed files with 13 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
FHEM/98_WOL.pm
View File

@@ -30,25 +30,22 @@ WOL_Set($@)
my $name = shift @a; my $name = shift @a;
my $v = join(" ", @a); my $v = join(" ", @a);
my $logLevel = GetLogLevel($name,2);
Log GetLogLevel($name,2), "WOL set $name $v"; Log $logLevel, "WOL set $name $v";
my $mac = $hash->{MAC};
if($v eq "on") if($v eq "on")
{ {
eval { eval {
#for(my $i = 1; $i <= 3; $i++) { for(my $i = 1; $i <= 3; $i++) {
wake($mac); wake($hash, $logLevel);
#} }
}; };
if ($@){ if ($@){
### catch block ### catch block
Log GetLogLevel($name,2), "WOL error: $@"; Log $logLevel, "WOL error: $@";
}; };
Log GetLogLevel($name,2), "WOL waking $name ($mac)"; Log $logLevel, "WOL waking $name";
} elsif ($v eq "refresh") } elsif ($v eq "refresh")
{ {
@@ -111,17 +108,18 @@ sub WOL_GetUpdate($)
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "WOL_GetUpdate", $hash, 0); InternalTimer(gettimeofday()+$hash->{INTERVAL}, "WOL_GetUpdate", $hash, 0);
} }
sub wake($) sub wake
{ {
my ($mac) = @_; my ($hash, $logLevel) = @_;
my $mac = $hash->{MAC};
Log GetLogLevel("WOL",2), "trying to wake $mac"; Log $logLevel, "trying to wake $mac";
my $response = `/usr/bin/ether-wake $mac`; my $response = `/usr/bin/ether-wake $mac`;
Log GetLogLevel("WOL",4), "trying etherwake with response: $response"; Log $logLevel, "trying etherwake with response: $response";
wol_by_udp($mac); wol_by_udp($mac);
Log GetLogLevel("WOL",4), "trying direct socket via UDP"; Log $logLevel, "trying direct socket via UDP";
} }
# method to wake via lan, taken from Net::Wake package # method to wake via lan, taken from Net::Wake package