";
+ return $u if ( int(@a) < 4 );
+ my $name = shift @a;
+ my $type = shift @a;
+ my $mac = shift @a;
+ my $ip = shift @a;
+ my $mode = shift @a;
+ my $repeat = shift @a;
- $repeat = "000" if (!defined $repeat);
- $mode = "BOTH" if (!defined $mode);
+ $repeat = "000" if ( !defined $repeat );
+ $mode = "BOTH" if ( !defined $mode );
- return "invalid MAC<$mac> - use HH:HH:HH:HH:HH"
- if(!($mac =~ m/^([0-9a-f]{2}([:-]|$)){6}$/i ));
+ return "invalid MAC<$mac> - use HH:HH:HH:HH:HH"
+ if ( !( $mac =~ m/^([0-9a-f]{2}([:-]|$)){6}$/i ) );
- return "invalid IP<$ip> - use ddd.ddd.ddd.ddd"
- if(!($ip =~ m/^([0-9]{1,3}([.-]|$)){4}$/i ));
+ return "invalid IP<$ip> - use ddd.ddd.ddd.ddd"
+ if ( !( $ip =~ m/^([0-9]{1,3}([.-]|$)){4}$/i ) );
- return "invalid mode<$mode> - use EW|UDP|BOTH"
- if(!($mode =~ m/^(BOTH|EW|UDP)$/));
+ return "invalid mode<$mode> - use EW|UDP|BOTH"
+ if ( !( $mode =~ m/^(BOTH|EW|UDP)$/ ) );
- return "invalid repeat<$repeat> - use 999"
- if(!($repeat =~ m/^[0-9]{1,3}$/i));
+ return "invalid repeat<$repeat> - use 999"
+ if ( !( $repeat =~ m/^[0-9]{1,3}$/i ) );
- $hash->{NAME} = $name;
- $hash->{MAC} = $mac;
- $hash->{IP} = $ip;
- $hash->{REPEAT} = $repeat;
- $hash->{MODE} = $mode;
-
- delete $hash->{helper}{RUNNING_PID};
+ $hash->{NAME} = $name;
+ $hash->{MAC} = $mac;
+ $hash->{IP} = $ip;
+ $hash->{REPEAT} = $repeat;
+ $hash->{MODE} = $mode;
- readingsSingleUpdate($hash, "packet_via_EW", "none",0);
- readingsSingleUpdate($hash, "packet_via_UDP", "none",0);
- readingsSingleUpdate($hash, "state", "none",0);
- readingsSingleUpdate($hash, "active", "off", 0);
+ $hash->{VERSION} = $version;
- RemoveInternalTimer($hash);
-
- WOL_SetNextTimer($hash, 10);
- return undef;
+ delete $hash->{helper}{RUNNING_PID};
+
+ readingsSingleUpdate( $hash, "packet_via_EW", "none", 0 );
+ readingsSingleUpdate( $hash, "packet_via_UDP", "none", 0 );
+ readingsSingleUpdate( $hash, "state", "none", 0 );
+ readingsSingleUpdate( $hash, "active", "off", 0 );
+
+ RemoveInternalTimer($hash);
+
+ WOL_SetNextTimer( $hash, 10 );
+ return undef;
}
################################################################################
sub WOL_Undef($$) {
- my ($hash, $arg) = @_;
+ my ( $hash, $arg ) = @_;
- myRemoveInternalTimer("ping", $hash);
- myRemoveInternalTimer("wake", $hash);
- BlockingKill($hash->{helper}{RUNNING_PID}) if(defined($hash->{helper}{RUNNING_PID}));
- return undef;
+ RemoveInternalTimer($hash);
+ BlockingKill( $hash->{helper}{RUNNING_PID} ) if ( defined( $hash->{helper}{RUNNING_PID} ) );
+ return undef;
}
################################################################################
sub WOL_UpdateReadings($) {
- my ($myHash) = @_;
-
- my $hash = myGetHashIndirekt($myHash, (caller(0))[3]);
- return if (!defined($hash));
- my $name = $hash->{NAME};
-
- my $timeout = 4;
- my $arg = $hash->{NAME}."|".$hash->{IP};
- my $blockingFn = "WOL_Ping";
- my $finishFn = "WOL_PingDone";
- my $abortFn = "WOL_PingAbort";
-
- if (!(exists($hash->{helper}{RUNNING_PID}))) {
- $hash->{helper}{RUNNING_PID} =
- BlockingCall($blockingFn, $arg, $finishFn, $timeout, $abortFn, $hash);
- } else {
- Log3 $hash, 3, "[$name] Blocking Call running no new started";
- WOL_SetNextTimer($hash);
- }
+ my ($hash) = @_;
+
+ return if ( !defined($hash) );
+ my $name = $hash->{NAME};
+
+ my $timeout = 4;
+ my $arg = $hash->{NAME} . "|" . $hash->{IP};
+ my $blockingFn = "WOL_Ping";
+ my $finishFn = "WOL_PingDone";
+ my $abortFn = "WOL_PingAbort";
+
+ if ( !( exists( $hash->{helper}{RUNNING_PID} ) ) ) {
+ $hash->{helper}{RUNNING_PID} =
+ BlockingCall( $blockingFn, $arg, $finishFn, $timeout, $abortFn, $hash );
+ }
+ else {
+ Log3 $hash, 3, "[$name] Blocking Call running no new started";
+ WOL_SetNextTimer($hash);
+ }
}
################################################################################
-sub WOL_Ping($){
- my ($string) = @_;
- my ($name, $ip) = split("\\|", $string);
- my $hash = $defs{$name};
-
- my $ping = "ping -c 1 -w 2 $ip";
- Log3 $hash, 4, "[$name] executing: $ping";
- my $res = qx ($ping);
- $res = "" if (!defined($res));
-
- Log3 $hash, 4, "[$name] result executing ping: $res";
-
- my $erreichbar = !($res =~ m/100%/);
- my $return = "$name|$erreichbar";
- return $return;
+sub WOL_Ping($) {
+ my ($string) = @_;
+ my ( $name, $ip ) = split( "\\|", $string );
+ my $hash = $defs{$name};
+
+ my $ping = "ping -c 1 -w 2 $ip";
+ Log3 $hash, 4, "[$name] executing: $ping";
+ my $res = qx ($ping);
+ $res = "" if ( !defined($res) );
+
+ Log3 $hash, 4, "[$name] result executing ping: $res";
+
+ my $erreichbar = !( $res =~ m/100%/ );
+ my $return = "$name|$erreichbar";
+ return $return;
}
################################################################################
-sub WOL_PingDone($){
- my ($string) = @_;
- my ($name, $erreichbar) = split("\\|", $string);
- my $hash = $defs{$name};
-
- readingsBeginUpdate ($hash);
+sub WOL_PingDone($) {
+ my ($string) = @_;
+ my ( $name, $erreichbar ) = split( "\\|", $string );
+ my $hash = $defs{$name};
- if ($erreichbar) {
- Log3 $hash, 4, "[$name] ping succesful - state = on";
- readingsBulkUpdate ($hash, "isRunning", "true");
- readingsBulkUpdate ($hash, "state", "on");
- } else {
- Log3 $hash, 4, "[$name] ping not succesful - state = off";
- readingsBulkUpdate ($hash, "isRunning", "false");
- readingsBulkUpdate ($hash, "state", "off");
- }
-
- readingsEndUpdate($hash, defined($hash->{LOCAL} ? 0 : 1));
-
- delete($hash->{helper}{RUNNING_PID});
-
- WOL_SetNextTimer($hash);
+ readingsBeginUpdate($hash);
+
+ if ($erreichbar) {
+ Log3 $hash, 4, "[$name] ping succesful - state = on";
+ readingsBulkUpdate( $hash, "isRunning", "true" );
+ readingsBulkUpdate( $hash, "state", "on" );
+ }
+ else {
+ Log3 $hash, 4, "[$name] ping not succesful - state = off";
+ readingsBulkUpdate( $hash, "isRunning", "false" );
+ readingsBulkUpdate( $hash, "state", "off" );
+ }
+
+ readingsEndUpdate( $hash, defined( $hash->{LOCAL} ? 0 : 1 ) );
+
+ delete( $hash->{helper}{RUNNING_PID} );
+
+ WOL_SetNextTimer($hash);
}
################################################################################
-sub WOL_PingAbort($){
- my ($hash) = @_;
+sub WOL_PingAbort($) {
+ my ($hash) = @_;
- delete($hash->{helper}{RUNNING_PID});
+ delete( $hash->{helper}{RUNNING_PID} );
- Log3 $hash->{NAME}, 3, "BlockingCall for ".$hash->{NAME}." was aborted";
- WOL_SetNextTimer($hash);
+ Log3 $hash->{NAME}, 3, "BlockingCall for " . $hash->{NAME} . " was aborted";
+ WOL_SetNextTimer($hash);
}
################################################################################
sub WOL_GetUpdate($) {
- my ($myHash) = @_;
-
- my $hash = myGetHashIndirekt($myHash, (caller(0))[3]);
- return if (!defined($hash));
+ my ($hash) = @_;
- my $active = ReadingsVal($hash->{NAME}, "active", "nF");
- if ($active eq "on") {
- WOL_wake($hash);
- if ($hash->{REPEAT} > 0) {
- myRemoveInternalTimer("wake", $hash);
- myInternalTimer ("wake", gettimeofday()+$hash->{REPEAT}, "WOL_GetUpdate", $hash, 0);
- }
- }
+ return if ( !defined($hash) );
+
+ my $active = ReadingsVal( $hash->{NAME}, "active", "nF" );
+ if ( $active eq "on" ) {
+ WOL_wake($hash);
+ if ( $hash->{REPEAT} > 0 ) {
+ RemoveInternalTimer( $hash, "WOL_GetUpdate" );
+ InternalTimer( gettimeofday() + $hash->{REPEAT}, "WOL_GetUpdate", $hash );
+ }
+ }
}
################################################################################
-sub WOL_wake($){
- my ($hash) = @_;
- my $name = $hash->{NAME};
- my $mac = $hash->{MAC};
- my $host = $hash->{IP};
-
- $host = '255.255.255.255' if (!defined $host);
- $host = AttrVal($name, "useUdpBroadcast",$host);
-
- readingsBeginUpdate ($hash);
-
- Log3 $hash, 4, "[$name] keeping $name with MAC $mac IP $host busy";
+sub WOL_wake($) {
+ my ($hash) = @_;
+ my $name = $hash->{NAME};
+ my $mac = $hash->{MAC};
+ my $host = $hash->{IP};
- if ($hash->{MODE} eq "BOTH" || $hash->{MODE} eq "EW" ) {
- WOL_by_ew ($hash, $mac);
- readingsBulkUpdate ($hash, "packet_via_EW", $mac);
- }
- if ($hash->{MODE} eq "BOTH" || $hash->{MODE} eq "UDP" ) {
- WOL_by_udp ($hash, $mac, $host);
- readingsBulkUpdate ($hash, "packet_via_UDP", $host);
- }
- readingsEndUpdate($hash, defined($hash->{LOCAL} ? 0 : 1));
+ $host = '255.255.255.255' if ( !defined $host );
+ $host = AttrVal( $name, "useUdpBroadcast", $host );
+
+ readingsBeginUpdate($hash);
+
+ Log3 $hash, 4, "[$name] keeping $name with MAC $mac IP $host busy";
+
+ if ( $hash->{MODE} eq "BOTH" || $hash->{MODE} eq "EW" ) {
+ WOL_by_ew( $hash, $mac );
+ readingsBulkUpdate( $hash, "packet_via_EW", $mac );
+ }
+ if ( $hash->{MODE} eq "BOTH" || $hash->{MODE} eq "UDP" ) {
+ WOL_by_udp( $hash, $mac, $host );
+ readingsBulkUpdate( $hash, "packet_via_UDP", $host );
+ }
+ readingsEndUpdate( $hash, defined( $hash->{LOCAL} ? 0 : 1 ) );
}
################################################################################
# method to wake via lan, taken from Net::Wake package
sub WOL_by_udp {
- my ($hash, $mac_addr, $host, $port) = @_;
- my $name = $hash->{NAME};
+ my ( $hash, $mac_addr, $host, $port ) = @_;
+ my $name = $hash->{NAME};
- # use the discard service if $port not passed in
- if (!defined $port || $port !~ /^\d+$/ ) { $port = 9 }
+ # use the discard service if $port not passed in
+ if ( !defined $port || $port !~ /^\d+$/ ) { $port = 9 }
- my $sock = new IO::Socket::INET(Proto=>'udp') or die "socket : $!";
- if(!$sock) {
- Log3 $hash, 1, "[$name] Can't create WOL socket";
- return 1;
- }
-
- my $ip_addr = inet_aton($host);
- my $sock_addr = sockaddr_in($port, $ip_addr);
- $mac_addr =~ s/://g;
- my $packet = pack('C6H*', 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, $mac_addr x 16);
+ my $sock = new IO::Socket::INET( Proto => 'udp' ) or die "socket : $!";
+ if ( !$sock ) {
+ Log3 $hash, 1, "[$name] Can't create WOL socket";
+ return 1;
+ }
- setsockopt($sock, SOL_SOCKET, SO_BROADCAST, 1) or die "setsockopt : $!";
- send($sock, $packet, 0, $sock_addr) or die "send : $!";
- close ($sock);
+ my $ip_addr = inet_aton($host);
+ my $sock_addr = sockaddr_in( $port, $ip_addr );
+ $mac_addr =~ s/://g;
+ my $packet = pack( 'C6H*', 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, $mac_addr x 16 );
- return 1;
+ setsockopt( $sock, SOL_SOCKET, SO_BROADCAST, 1 ) or die "setsockopt : $!";
+ send( $sock, $packet, 0, $sock_addr ) or die "send : $!";
+ close($sock);
+
+ return 1;
}
################################################################################
# method to wake via system command
sub WOL_by_ew($$) {
- my ($hash, $mac) = @_;
- my $name = $hash->{NAME};
+ my ( $hash, $mac ) = @_;
+ my $name = $hash->{NAME};
- # Fritzbox Raspberry Raspberry aber root
- my @commands = ("/usr/bin/ether-wake", "/usr/bin/wakeonlan", "/usr/sbin/etherwake" );
+ # Fritzbox Raspberry Raspberry aber root
+ my @commands = ( "/usr/bin/ether-wake", "/usr/bin/wakeonlan", "/usr/sbin/etherwake" );
- my $standardEtherwake = "no WOL found - use '/usr/bin/ether-wake' or '/usr/bin/wakeonlan' or define Attribut sysCmd";
- foreach my $tstCmd (@commands) {
- if (-e $tstCmd) {
- $standardEtherwake = $tstCmd;
- last;
- }
- }
+ my $standardEtherwake =
+ "no WOL found - use '/usr/bin/ether-wake' or '/usr/bin/wakeonlan' or define Attribut sysCmd";
+ foreach my $tstCmd (@commands) {
+ if ( -e $tstCmd ) {
+ $standardEtherwake = $tstCmd;
+ last;
+ }
+ }
- Log3 $hash, 4, "[$name] standard wol command: $standardEtherwake";
+ Log3 $hash, 4, "[$name] standard wol command: $standardEtherwake";
- my $sysCmd = AttrVal($hash->{NAME}, "sysCmd", "");
- my $sysInterface = AttrVal($hash->{NAME}, "sysInterface", "");
-
- if ($sysCmd gt "") {
- Log3 $hash, 4, "[$name] user wol command(sysCmd): '$sysCmd'";
- } else {
- $sysCmd = $standardEtherwake;
- }
-
- # wenn noch keine $mac dann $mac anhängen.
- $sysCmd .= ' $mac' if ($sysCmd !~ m/\$mac/g);
-
- # sysCmd splitten und den nur ersten Teil (-e teil[0])prüfen
- my ($sysWake) = split (" ", $sysCmd);
- if (-e $sysWake) {
- $sysCmd =~ s/\$mac/$mac/;
- $sysCmd =~ s/\$sysInterface/$sysInterface/;
- Log3 $hash, 4, "[$name] executing $sysCmd";
- qx ($sysCmd);
- } else {
- Log3 $hash, 1, "[$hash->{NAME}] system command '$sysWake' not found";
- }
+ my $sysCmd = AttrVal( $hash->{NAME}, "sysCmd", "" );
+ my $sysInterface = AttrVal( $hash->{NAME}, "sysInterface", "" );
- return;
+ if ( $sysCmd gt "" ) {
+ Log3 $hash, 4, "[$name] user wol command(sysCmd): '$sysCmd'";
+ }
+ else {
+ $sysCmd = $standardEtherwake;
+ }
+
+ # wenn noch keine $mac dann $mac anhängen.
+ $sysCmd .= ' $mac' if ( $sysCmd !~ m/\$mac/g );
+
+ # sysCmd splitten und den nur ersten Teil (-e teil[0])prüfen
+ my ($sysWake) = split( " ", $sysCmd );
+ if ( -e $sysWake ) {
+ $sysCmd =~ s/\$mac/$mac/;
+ $sysCmd =~ s/\$sysInterface/$sysInterface/;
+ Log3 $hash, 4, "[$name] executing $sysCmd";
+ qx ($sysCmd);
+ }
+ else {
+ Log3 $hash, 1, "[$hash->{NAME}] system command '$sysWake' not found";
+ }
+
+ return;
}
################################################################################
sub WOL_SetNextTimer($;$) {
- my ($hash, $int) = @_;
+ my ( $hash, $int ) = @_;
- my $name = $hash->{NAME};
-
- $int = AttrVal($hash->{NAME}, "interval", 900) if not defined $int;
- if ($int != 0) {
- Log3 $hash, 5, "[$name] WOL_SetNextTimer to $int";
- myRemoveInternalTimer("ping", $hash);
- myInternalTimer ("ping", gettimeofday() + $int, "WOL_UpdateReadings", $hash, 0);
- }
- return;
+ my $name = $hash->{NAME};
+
+ $int = AttrVal( $hash->{NAME}, "interval", 900 ) if not defined $int;
+ if ( $int != 0 ) {
+ Log3 $hash, 5, "[$name] WOL_SetNextTimer to $int";
+ RemoveInternalTimer( $hash, "WOL_UpdateReadings" );
+ InternalTimer( gettimeofday() + $int, "WOL_UpdateReadings", $hash );
+ }
+ return;
}
################################################################################
sub WOL_Attr($$$) {
- my ($cmd, $name, $attrName, $attrVal) = @_;
- $attrVal = "" if(!defined $attrVal);
-
- my $hash = $defs{$name};
-
- if ($attrName eq "useUdpBroadcast") {
- if(!($attrVal =~ m/^([0-9]{1,3}([.-]|$)){4}$/i)) {
- Log3 $hash, 3, "[$name] invalid Broadcastadress<$attrVal> - use ddd.ddd.ddd.ddd";
- }
- }
-
- if ($attrName eq "interval") {
- RemoveInternalTimer($hash);
-
- # when deleting the interval we trigger an update in one second
- my $int = ($cmd eq "del") ? 1 : $attrVal;
- if ($int != 0) {
- # restart timer with new interval
- WOL_SetNextTimer($hash, $int);
- }
- }
+ my ( $cmd, $name, $attrName, $attrVal ) = @_;
+ $attrVal = "" if ( !defined $attrVal );
- return undef;
+ my $hash = $defs{$name};
+
+ if ( $attrName eq "useUdpBroadcast" ) {
+ if ( !( $attrVal =~ m/^([0-9]{1,3}([.-]|$)){4}$/i ) ) {
+ return "[$name] invalid Broadcastadress<$attrVal> - use ddd.ddd.ddd.ddd";
+ }
+ }
+
+ if ( $attrName eq "interval" ) {
+ RemoveInternalTimer($hash);
+
+ # when deleting the interval we trigger an update in one second
+ my $int = ( $cmd eq "del" ) ? 1 : $attrVal;
+ if ( $int != 0 ) {
+
+ # restart timer with new interval
+ WOL_SetNextTimer( $hash, $int );
+ }
+ }
+
+ return undef;
}
1;
-
=pod
+=item helper
+=item summary turn on or wake up a computer by sending it a network message
+=item summary_DE Einschalten oder Aufwecken eines Computers durch Netzwerknachricht
=begin html
@@ -364,7 +381,7 @@ sub WOL_Attr($$$) {
Defines a WOL device via its MAC and IP address.
-when sending the on command to a WOL device it wakes up the dependent device by sending a magic packet. When running in repeat mode the magic paket ist sent every n seconds to the device.
+when sending the on command to a WOL device it wakes up the dependent device by sending a magic packet. When running in repeat mode the magic packet ist sent every n seconds to the device.
So, for example a Buffalo NAS can be kept awake.
@@ -389,15 +406,14 @@ So, for example a Buffalo NAS can be kept awake.
define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 switching only one time
define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 EW by ether-wake(linux command)
define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 BOTH by both methods
- define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 UDP 200 in repeat modeusr/bin/ether-wake in repeatmode
+ define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 UDP 200 in repeat mode
Notes:
- Not every hardware is able to wake up other devices by default. Oftenly firewalls filter magic packets. Switch them first off.
- You may need a packet sniffer to check some malfunktion.
- With this module you get two methods to do the job: see the mode parameter.
+ Not every hardware is able to wake up other devices by default. Often firewalls filter magic packets and have to be configured accordingly.
+ You may need a packet sniffer to check some malfunction.
@@ -437,11 +453,98 @@ So, for example a Buffalo NAS can be kept awake.
attr <name> interval <seconds>
defines the time between two checks by a ping if state of <name> is on. By using 0 as parameter for interval you can switch off checking the device.
- attr <name> useUdpBroadcast <broardcastAdress>
-
When using UDP then the magic packet can be send to one of the broardcastAdresses (x.x.x.255, x.x.255.255, x.255.255.255) instead of the target host address.
+ attr <name> useUdpBroadcast <broadcastAdress>
+
When using UDP then the magic packet can be send to one of the broadcastAdresses (x.x.x.255, x.x.255.255, x.255.255.255) instead of the target host address.
Try using this, when you want to wake up a machine in your own subnet and the wakekup with the target adress is instable or doesn't work.
=end html
-=cut
\ No newline at end of file
+=begin html_DE
+
+
+WOL
+
+Definiert ein WOL Gerät über seine MAC und IP Addresse.
+
+Wenn der on Befehl an das WOL Gerät gesendet wird, wird das entsprechende Gerät durch das Senden eines "magic packet" aufgeweckt. Wenn WOL im repeat Modus läuft, wird das "magic packet" alle n Sekunden zum Gerät geschickt.
+So kann z.B. ein Buffalo NAS "wach" gehalten werden.
+
+
+ Define
+
+ define <name> WOL <MAC> <IP> [<mode> [<repeat>]]
+
+
+
+ - MAC
+ - MAC-Adresse des Hosts
+ - IP
+ - IP-Adresse des Hosts (oder broadcast Addresse des lokalen Netzwerks, wenn die IP des Hosts unbekannt ist)
+ - mode [EW|UDP]
+ - EW: aufwecken durch usr/bin/ether-wake
+ - UDP: aufwecken durch eine Implementierung wie Net::Wake(CPAN)
+
+
+
+ Beispiele:
+
+ define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 nur einmal schalten
+ define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 EW über ether-wake(Linux Befehl)
+ define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 BOTH über beide Methoden
+ define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 UDP 200 im repeat Modus
+
+
+
+ Anmerkungen:
+
+ Nicht jede Hardware kann standardmäßig andere Geräte aufwecken. Firewalls filtern häufig magic packets und müssen entsprechend konfiguriert werden.
+ Möglicherweise ist ein Packet Sniffer notwendig um Fehlfunktionen zu überprüfen.
+
+
+
+
+ Set
+
+ set <name> <value>
+
+ wobei value einer der folgenden ist:
+
+ refresh # überprüft (mittels ping) ob das Gerät gerade läuft
+ on # schickt ein magic packet an die definierte MAC-Adresse
+ off # beemdet das Senden von magic packets schickt das shutdownCmd(siehe Attribute)
+
+
+ Beispiele:
+
+ set computer1 on
+ set computer1 off
+ set computer1 refresh
+
+
+
+
+ Attribute
+
+ attr <name> sysCmd <string>
+
Eigener Befehl, um ein entferntes Gerät aufzuwecken, z.B. /usr/bin/ether-wake or /usr/bin/wakeonlanattr <name> shutdownCmd <command>
+
Eigener Befehl, um ein entferntes Gerät herunter zu fahren. Es können <command>, wie in at, notify oder Watchdog verwendet werden
+ Beispiele:
+
+ attr wol shutdownCmd set lamp on # fhem Befehl
+ attr wol shutdownCmd { Log 1, "Teatime" } # Perl Befehl
+ attr wol shutdownCmd "/bin/echo "Teatime" > /dev/console" # shell Befehl
+
+ attr <name> interval <seconds>
+
definiert die Zeit zwischen zwei Checks mittels ping Wenn der state von <name> on ist. Mit dem Wert 0 als interval wird die regelmäßige Überprüfung abgeschaltet.
+ attr <name> useUdpBroadcast <broadcastAdress>
+
Bei der Nutzung von UDP kann das magic packet an eine det broadcastAdressen (x.x.x.255, x.x.255.255, x.255.255.255) geschickt werden, an Stelle des Ziel-Hosts address.
+ Diese Methode sollte verwendet werden, wenn ein Gerät im eigenen Subnetz aufgeweckt werden soll, aber der wakeup mit dem Zielhost nicht funktioniert oder nicht stabil ist.
+
+
+
+=end html_DE
+
+=cut