FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-09 20:57:11 +00:00
Code Issues Releases Wiki Activity

91_notify.pm: add setList (Forum #123956)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25227 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2021-11-14 20:58:06 +00:00
parent 8bea635e9f
commit e9e0b015ca
1 changed files with 38 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
fhem/FHEM/91_notify.pm
View File

@ -24,10 +24,11 @@ notify_Initialize($)
forwardReturnValue:1,0
ignoreRegexp
readLog:1,0
setList
showtime:1,0
);
use warnings 'qw';
$hash->{AttrList} = join(" ", @attrList);
$hash->{AttrList} = join(" ", @attrList)." $readingFnAttributes";
$hash->{SetFn} = "notify_Set";
$hash->{StateFn} = "notify_State";
@ -124,7 +125,8 @@ notify_Exec($$)
$ntfy->{TRIGGERTIME} = $now;
setReadingsVal($ntfy, "triggeredByDev", $n, $dev->{NTFY_TRIGGERTIME});
setReadingsVal($ntfy, "triggeredByEvent", $s, $dev->{NTFY_TRIGGERTIME});
$ntfy->{STATE} = $dev->{NTFY_TRIGGERTIME} if(AttrVal($ln,'showtime',1));
$ntfy->{STATE} = $dev->{NTFY_TRIGGERTIME}
if(AttrVal($ln, 'showtime', !AttrVal($ln, "stateFormat", 0)));
last if($dat);
}
}
@ -181,13 +183,21 @@ notify_Set($@)
return "no set argument specified" if(int(@a) < 2);
my %sets = (addRegexpPart=>2, removeRegexpPart=>1, inactive=>0, active=>0);
my $setList = AttrVal($me, "setList", "");
my %usrSets = map { $_ =~ s/:.*//; $_ => 1 } split(" ", $setList);
my $cmd = $a[1];
if(!defined($sets{$cmd})) {
my $ret ="Unknown argument $cmd, choose one of ".join(" ", sort keys %sets);
if(!defined($sets{$cmd}) && !defined($usrSets{$cmd})) {
my $ret ="Unknown argument $cmd, choose one of ".
join(" ", sort keys %sets)." $setList";
$ret =~ s/active/active:noArg/g;
return $ret;
}
if($usrSets{$cmd}) {
readingsSingleUpdate($hash, $cmd, join(" ",@a[2..$#a]), 1);
return;
}
return "$cmd needs $sets{$cmd} parameter(s)" if(@a-$sets{$cmd} != 2);
if($cmd eq "addRegexpPart") {
@ -576,6 +586,18 @@ END
</code></ul>
</li>
<a id="notify-attr-setList"></a>
<li>setList<br>
space separated list of user-defined commands. When executing such a
command, a reading with the same name is set to the arguments of the
command.<br>
Can be used in scenarios like:
<ul><code>
define Leuchtdauer notify schalter:on
set Licht on-for-timer [$SELF:dauer]<br>
attr Leuchtdauer setList dauer:60,120,180
</code></ul>
</li>
</ul>
<br>
@ -808,6 +830,18 @@ END
</code></ul>
</li>
<a id="notify-attr-setList"></a>
<li>setList<br>
Leerzeichen getrennte Liste von benutzerdefinierten Befehlen. Beim
ausf&uuml;ren solcher Befehle wird ein gleichnamiges Reading auf dem
Wert des Befehls gesetzt. Kann z.Bsp. wie folgt verwendet werden:
<ul><code>
define Leuchtdauer notify schalter:on
set Licht on-for-timer [$SELF:dauer]<br>
attr Leuchtdauer setList dauer:60,120,180
</code></ul>
</li>
</ul>
<br>