From 4bf3e5141b8b6ca10dd8d34b4544b356cbf2d5ce Mon Sep 17 00:00:00 2001
From: dietmar63 <dietmar63@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 17 Feb 2014 19:13:37 +0000
Subject: [PATCH] - busy log entrance in repeat mode only in verbose mode 4 -
 bug fix in EW mode

git-svn-id: https://svn.fhem.de/fhem/trunk@4970 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_WOL.pm | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/98_WOL.pm b/fhem/FHEM/98_WOL.pm
index 0f04253aa..69b1c759d 100644
--- a/fhem/FHEM/98_WOL.pm
+++ b/fhem/FHEM/98_WOL.pm
@@ -166,7 +166,7 @@ sub wake($){
 
   readingsBeginUpdate ($hash);
   
-  Log3 $hash, 3, "WOL keeping $name with MAC $mac IP $host busy";
+  Log3 $hash, 4, "WOL keeping $name with MAC $mac IP $host busy";
 
   if ($hash->{MODE} eq "BOTH" || $hash->{MODE} eq "EW" ) {
      wol_by_ew ($hash, $mac);
@@ -209,9 +209,20 @@ sub wol_by_udp {
 sub wol_by_ew($$) {
   my ($hash, $mac) = @_;
 
-  my $sysCmd = AttrVal($hash->{NAME}, "sysCmd", "/usr/bin/ether-wake");
+  #               Fritzbox               Raspberry
+  my @commands = "/usr/bin/ether-wake", "/usr/sbin/etherwake";
+
+  my $standardEtherwake = "no etherwake installed";
+  foreach my $sysCmd (@commands) {
+     if (-e $sysCmd) {
+        $standardEtherwake = $sysCmd;
+     }
+  }
+
+  my $sysCmd = AttrVal($hash->{NAME}, "sysCmd", $standardEtherwake);
   if (-e $sysCmd) {
-     qx ("$sysCmd $mac");
+     $sysCmd = "$sysCmd $mac";
+     qx ($sysCmd);
   } else {
      Log3 $hash, 1, "[$hash->{NAME}] system command '$sysCmd' not found";
   }