FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

98_WOL.pm: attribute sysCmd improoved and attribute sysInterface added

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8102 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63 2015-02-26 20:13:38 +00:00
parent 852c129edf
commit afd73a53a0
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
fhem/FHEM/98_WOL.pm
View File

@ -38,7 +38,7 @@ sub WOL_Initialize($) {
$hash->{DefFn} = "WOL_Define"; $hash->{DefFn} = "WOL_Define";
$hash->{UndefFn} = "WOL_Undef"; $hash->{UndefFn} = "WOL_Undef";
$hash->{AttrFn} = "WOL_Attr"; $hash->{AttrFn} = "WOL_Attr";
$hash->{AttrList} = "interval shutdownCmd sysCmd useUdpBroadcast ". $hash->{AttrList} = "interval shutdownCmd sysCmd sysInterface useUdpBroadcast ".
$readingFnAttributes; $readingFnAttributes;
} }
################################################################################ ################################################################################
@ -283,20 +283,32 @@ sub WOL_by_ew($$) {
} }
} }
Log3 $hash, 5, "[$name] standard wol command: $standardEtherwake"; Log3 $hash, 4, "[$name] standard wol command: $standardEtherwake";
my $sysCmd = AttrVal($hash->{NAME}, "sysCmd", ""); my $sysCmd = AttrVal($hash->{NAME}, "sysCmd", "");
Log3 $hash, 5, "[$name] user wol command(sysCmd): '$sysCmd'"; my $sysInterface = AttrVal($hash->{NAME}, "sysInterface", "");
$sysCmd = $standardEtherwake if ($sysCmd eq "");
if (-e $sysCmd) { if ($sysCmd gt "") {
$sysCmd = "$sysCmd $mac"; Log3 $hash, 4, "[$name] user wol command(sysCmd): '$sysCmd'";
Log3 $hash, 5, "[$name] executing $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); qx ($sysCmd);
} else { } else {
Log3 $hash, 1, "[$hash->{NAME}] system command '$sysCmd' not found"; Log3 $hash, 1, "[$hash->{NAME}] system command '$sysWake' not found";
} }
return 1; return;
} }
################################################################################ ################################################################################
sub WOL_SetNextTimer($;$) { sub WOL_SetNextTimer($;$) {