mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-08 05:15:10 +00:00
447 lines
15 KiB
Perl
447 lines
15 KiB
Perl
# $Id$
|
|
# erweitert um die Funktion nas_control Dietmar Ortmann $
|
|
#
|
|
# This file is part of fhem.
|
|
#
|
|
# Fhem is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Fhem is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with fhem. If not, see <http://www.gnu.org/licenses/>.
|
|
#
|
|
##############################################################################
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use IO::Socket;
|
|
use Blocking;
|
|
use Time::HiRes qw(gettimeofday);
|
|
|
|
################################################################################
|
|
sub WOL_Initialize($) {
|
|
my ($hash) = @_;
|
|
|
|
if(!$modules{Twilight}{LOADED} && -f "$attr{global}{modpath}/FHEM/59_Twilight.pm") {
|
|
my $ret = CommandReload(undef, "59_Twilight");
|
|
Log3 undef, 1, $ret if($ret);
|
|
}
|
|
|
|
$hash->{SetFn} = "WOL_Set";
|
|
$hash->{DefFn} = "WOL_Define";
|
|
$hash->{UndefFn} = "WOL_Undef";
|
|
$hash->{AttrFn} = "WOL_Attr";
|
|
$hash->{AttrList} = "interval shutdownCmd sysCmd sysInterface useUdpBroadcast ".
|
|
$readingFnAttributes;
|
|
}
|
|
################################################################################
|
|
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 "?");
|
|
|
|
my $name = shift @a;
|
|
my $v = join(" ", @a);
|
|
|
|
Log3 $hash, 3, "[$name] set $name $v";
|
|
|
|
if ($v eq "on") {
|
|
readingsSingleUpdate($hash, "active", $v, 1);
|
|
Log3 $hash, 3, "[$name] waking $name with MAC $hash->{MAC} IP $hash->{IP} ";
|
|
WOL_GetUpdate( { 'HASH' => $hash } );
|
|
} elsif ($v eq "off") {
|
|
readingsSingleUpdate($hash, "active", $v, 1);
|
|
my $cmd = AttrVal($name, "shutdownCmd", "");
|
|
if ($cmd eq "") {
|
|
Log3 $hash, 3, "[$name] no shutdown command given (see shutdownCmd attribute)!";
|
|
}
|
|
$cmd = SemicolonEscape($cmd);
|
|
Log3 $hash, 3, "[$name] shutdownCmd: $cmd executed";
|
|
my $ret = AnalyzeCommandChain(undef, $cmd);
|
|
Log3 ($hash, 3, "[$name]" . $ret) if($ret);
|
|
} elsif ($v eq "refresh") {
|
|
WOL_UpdateReadings( { 'HASH' => $hash } );
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
################################################################################
|
|
sub WOL_Define($$) {
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
|
|
my $u = "wrong syntax: define <name> WOL <MAC_ADRESS> <IP> <mode> <repeat> ";
|
|
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);
|
|
|
|
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 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));
|
|
|
|
$hash->{NAME} = $name;
|
|
$hash->{MAC} = $mac;
|
|
$hash->{IP} = $ip;
|
|
$hash->{REPEAT} = $repeat;
|
|
$hash->{MODE} = $mode;
|
|
|
|
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) = @_;
|
|
|
|
myRemoveInternalTimer("ping", $hash);
|
|
myRemoveInternalTimer("wake", $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);
|
|
}
|
|
}
|
|
################################################################################
|
|
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);
|
|
|
|
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) = @_;
|
|
|
|
delete($hash->{helper}{RUNNING_PID});
|
|
|
|
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 $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);
|
|
}
|
|
}
|
|
|
|
}
|
|
################################################################################
|
|
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";
|
|
|
|
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};
|
|
|
|
# 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);
|
|
|
|
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};
|
|
|
|
# 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;
|
|
}
|
|
}
|
|
|
|
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";
|
|
}
|
|
|
|
return;
|
|
}
|
|
################################################################################
|
|
sub WOL_SetNextTimer($;$) {
|
|
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;
|
|
}
|
|
################################################################################
|
|
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);
|
|
}
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
1;
|
|
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="WOL"></a>
|
|
<h3>WOL</h3>
|
|
|
|
Defines a WOL device via its MAC and IP address.<br><br>
|
|
|
|
when sending the <b>on</b> 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.
|
|
So, for example a Buffalo NAS can be kept awake.
|
|
<ul>
|
|
<a name="WOLdefine"></a>
|
|
<h4>Define</h4>
|
|
<ul>
|
|
<code><b><font size="+1">define <name> WOL <MAC> <IP> [<mode> [<repeat>]]</font></b></code>
|
|
<br><br>
|
|
|
|
<dl>
|
|
<dt><b>MAC</b></dt>
|
|
<dd>MAC-Adress of the host</dd>
|
|
<dt><b>IP</b></dt>
|
|
<dd>IP-Adress of the host (or broadcast address of the local network if IP of the host is unknown)</dd>
|
|
<dt><b>mode <i>[EW|UDP]</i></b></dt>
|
|
<dd>EW: wakeup by <i>usr/bin/ether-wake</i> </dd>
|
|
<dd>UDP: wakeup by an implementation like <i>Net::Wake(CPAN)</i></dd>
|
|
</dl>
|
|
<br><br>
|
|
|
|
<b><font size="+1">Examples</font></b>:
|
|
<ul>
|
|
<code>define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 switching only one time</code><br>
|
|
<code>define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 EW by ether-wake(linux command)</code><br>
|
|
<code>define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 BOTH by both methods</code><br>
|
|
<code>define computer1 WOL 72:11:AC:4D:37:13 192.168.0.24 UDP 200 in repeat mode<i><b>usr/bin/ether-wake</b></i> in repeatmode</code><br>
|
|
</ul>
|
|
<br><br>
|
|
|
|
<b><font size="+1">Notes</font></b>:
|
|
<ul>
|
|
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.
|
|
</ul>
|
|
</ul>
|
|
|
|
<a name="WOLset"></a>
|
|
<h4>Set </h4>
|
|
<ul>
|
|
<code><b><font size="+1">set <name> <value></font></b></code>
|
|
<br><br>
|
|
where <code>value</code> is one of:<br>
|
|
<pre>
|
|
<b>refresh</b> # checks(by ping) whether the device is currently running
|
|
<b>on</b> # sends a magic packet to the defined MAC address
|
|
<b>off</b> # stops sending magic packets and sends the <b>shutdownCmd</b>(see attributes)
|
|
</pre>
|
|
|
|
<b><font size="+1">Examples</font></b>:
|
|
<ul>
|
|
<code>set computer1 on</code><br>
|
|
<code>set computer1 off</code><br>
|
|
<code>set computer1 refresh</code><br>
|
|
</ul>
|
|
</ul>
|
|
|
|
<a name="WOLattr"></a>
|
|
<h4>Attributes</h4>
|
|
<ul>
|
|
<li><code>attr <name> sysCmd <string></code>
|
|
<br>Custom command executed to wakeup a remote machine, i.e. <code>/usr/bin/ether-wake or /usr/bin/wakeonlan</code></li>
|
|
<li><code>attr <name> shutdownCmd <command></code>
|
|
<br>Custom command executed to shutdown a remote machine. You can use <command>, like you use it in at, notify or Watchdog</li>
|
|
<br><br>
|
|
Examples:
|
|
<PRE>
|
|
attr wol shutdownCmd set lamp on # fhem command
|
|
attr wol shutdownCmd { Log 1, "Teatime" } # Perl command
|
|
attr wol shutdownCmd "/bin/echo "Teatime" > /dev/console" # shell command
|
|
</PRE>
|
|
<li><code>attr <name> interval <seconds></code></a>
|
|
<br>defines the time between two checks by a <i>ping</i> if state of <name> is <i>on</i>. By using 0 as parameter for interval you can switch off checking the device.</li>
|
|
<li><code>attr <name> useUdpBroadcast <broardcastAdress></code>
|
|
<br>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.
|
|
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.</li>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html
|
|
=cut |