diff --git a/fhem/FHEM/98_DOIF.pm b/fhem/FHEM/98_DOIF.pm
index a087de56f..574671472 100644
--- a/fhem/FHEM/98_DOIF.pm
+++ b/fhem/FHEM/98_DOIF.pm
@@ -1687,8 +1687,8 @@ sub ReplaceAllReadingsDoIf
$block="[".$block."]";
}
} else {
- $trigger=0 if (substr($block,0,1) eq "\$");
- if ($block =~ /^\$?[a-z0-9._]*[a-z._]+[a-z0-9._]*($|:.+$|,.+$)/i) {
+ $trigger=0 if (substr($block,0,7) eq "\$DEVICE");
+ if ($block =~ /^(\$DEVICE|[a-z0-9._]*[a-z._]+[a-z0-9._]*)($|:.+$|,.+$)/i) {
($block,$err,$device,$reading,$internal)=ReplaceReadingEvalDoIf($hash,$block,$eval);
return ($block,$err) if ($err);
if ($condition >= 0) {
@@ -3799,38 +3799,78 @@ sub DOIF_ExecTimer
my $timername=${$timer}->{name};
my $name=$hash->{NAME};
my $subname=${$timer}->{subname};
- my $param=${$timer}->{param} if (defined ${$timer}->{param});
+ my $count=${$timer}->{count};
+ my $condition=${$timer}->{cond};
my $cur_hs=$hs;
$hs=$hash;
delete ($::defs{$name}{READINGS}{"timer_$timername"});
- if (!defined ($param)) {
- eval ("package DOIF;$subname");
- } else {
- #eval ("package DOIF;$subname(\"$param\")");
- eval('package DOIF;no strict "refs";&{$subname}($param);use strict "refs"');
+ if (defined ($condition) and !eval ($condition)) {
+ $hs=$cur_hs;
+ return (0);
}
+ eval ("package DOIF;$subname");
if ($@) {
- ::Log3 ($::defs{$name}{NAME},1 , "$name error in $subname: $@");
+ ::Log3 ($hash->{NAME},1 , "$name error in $subname: $@");
::readingsSingleUpdate ($hash, "error", "in $subname: $@",1);
}
+ if (defined ($condition)) {
+ $count=++${$timer}->{count};
+ if (!eval ($condition)) {
+ $hs=$cur_hs;
+ return (0);
+ }
+ } else {
+ $hs=$cur_hs;
+ return (0);
+ }
+ my $current = ::gettimeofday();
+ my $seconds=eval (${$timer}->{sec});
+ my $next_time = $current+$seconds;
+ ${$timer}->{time}=$next_time;
+ if ($seconds > 0) {
+ ::readingsSingleUpdate ($hash,"timer_$timername",::strftime("%d.%m.%Y %H:%M:%S",localtime($next_time)),0);
+ }
+ ::InternalTimer($next_time, "DOIF::DOIF_ExecTimer",$timer, 0);
$hs=$cur_hs;
+ return(0);
}
sub set_Exec
{
- my ($timername,$seconds,$subname,$param)=@_;
+ my ($timername,$sec,$subname,$condition)=@_;
+ my $count=0;
+ $hs->{ptimer}{$timername}{sec}=$sec;
+ $hs->{ptimer}{$timername}{name}=$timername;
+ $hs->{ptimer}{$timername}{subname}=$subname;
+ $hs->{ptimer}{$timername}{cond}=$condition if (defined $condition);
+ #$hs->{ptimer}{$timername}{param}=$param if (defined $param);
+ $hs->{ptimer}{$timername}{count}=$count;
+ $hs->{ptimer}{$timername}{hash}=$hs;
+ ::RemoveInternalTimer(\$hs->{ptimer}{$timername});
+ if (defined ($condition)) {
+ my $cond=eval ($condition);
+ if ($@) {
+ ::Log3 ($hs->{NAME},1,"$hs->{NAME} error eval condition: $@");
+ ::readingsSingleUpdate ($hs, "error", "eval condition: $@",1);
+ return (1);
+ }
+ if (!$cond) {
+ return (0);
+ }
+ }
+ my $seconds=eval($sec);
+ if ($@) {
+ ::Log3 ($hs->{NAME},1,"$hs->{NAME} error eval seconds: $@");
+ ::readingsSingleUpdate ($hs, "error", "eval seconds : $@",1);
+ return(1);
+ }
my $current = ::gettimeofday();
my $next_time = $current+$seconds;
$hs->{ptimer}{$timername}{time}=$next_time;
- $hs->{ptimer}{$timername}{name}=$timername;
- $hs->{ptimer}{$timername}{subname}=$subname;
- $hs->{ptimer}{$timername}{param}=$param if (defined $param);
- $hs->{ptimer}{$timername}{hash}=$hs;
- ::RemoveInternalTimer(\$hs->{ptimer}{$timername});
if ($seconds > 0) {
::readingsSingleUpdate ($hs,"timer_$timername",::strftime("%d.%m.%Y %H:%M:%S",localtime($next_time)),0);
}
- ::InternalTimer($next_time, "DOIF::DOIF_ExecTimer",\$hs->{ptimer}{$timername}, 0);
+ ::InternalTimer($next_time, "DOIF::DOIF_ExecTimer",\$hs->{ptimer}{$timername}, 0);
}
sub get_Exec
@@ -6978,11 +7018,17 @@ Die Readings "temperature" und "humidity" sollen in einem Eventblock mit dem zuv
Ausführungstimer back
-Mit Hilfe von Ausführungstimern können Anweisungen verzögert ausgeführt werden. Im Gegensatz zum FHEM-Modus können beliebig viele Timer gleichzeitig genutzt werden.
+Mit Hilfe von Ausführungstimern können Perl-Anweisungen verzögert ein- oder mehrmalig ausgeführt werden. Im Gegensatz zum FHEM-Modus können beliebig viele Timer gleichzeitig genutzt werden.
Ein Ausführungstimer wird mit einem Timer-Namen eindeutig definiert. Über den Timer-Namen kann die Restlaufzeit abgefragt werden, ebenfalls kann er vor seinem Ablauf gelöscht werden.
-Timer setzen: set_Exec(<timerName>, <seconds>, <perlCode>, <parameter>), mit <timerName>: beliebige Angabe, sie spezifiziert eindeutig einen Timer,
-welcher nach Ablauf den angegebenen Perlcode <perlCode> aufruft. Falls als Perlcode eine Perlfunktion angegeben wird, kann optional ein Übergabeparameter <parameter> angegeben werden. Die Perlfunkion muss eindeutig sein und in FHEM zuvor deklariert worden sein.
+Timer setzen: set_Exec(<timerName>, <seconds>, <perlCode>, <condition>)
+
+<timerName>: beliebige Angabe, sie spezifiziert eindeutig einen Timer
+<seconds>: Verzögerungszeit, sie wird per eval-Perlbefehl ausgewertet und kann daher Perlcode zur Bestimmung der Verzögerungszeit beinhalten
+<perlCode>: Perl-Anweisung, die nach Ablauf der Verzögerungszeit per eval-Perlbefehl ausgeführt wird
+<condition>: optionale Bedingung zur Wiederholung der Perl-Ausführung. Sie wird per eval-Perlbefehl vor dem Setzen des Timers und vor der Ausführung der Perl-Anweisung auf wahr geprüft.
+Bei falsch wird die Wiederholung der Ausführungskette beendet. Wird <condition> nicht angegeben, so erfolgt keine Wiederholung der Perl-Anweisung.
+
Wird set_Exec mit dem gleichen <timerName> vor seinem Ablauf erneut aufgerufen, so wird der laufender Timer gelöscht und neugesetzt.
Timer holen: get_Exec(<timerName>), Returnwert: 0, wenn Timer abgelaufen oder nicht gesetzt ist, sonst Anzahl der Sekunden bis zum Ablauf des Timers
@@ -6991,19 +7037,52 @@ Laufenden Timer löschen: del_Exec(<timerName>)
Beispiel: Funktion namens "lamp" mit dem Übergabeparameter "on" 30 Sekunden verzögert aufrufen:
-set_Exec("lamp_timer",30,'lamp','on');
-
-alternativ
-
set_Exec("lamp_timer",30,'lamp("on")');
Beispiel: Lampe verzögert um 30 Sekunden ausschalten:
-set_Exec("off",30,'fhem_set("lamp off")');
+set_Exec("off_timer",30,'fhem_set("lamp off")');
Beispiel: Das Event "off" 30 Sekunden verzögert auslösen:
set_Exec("off_Event",30,'set_Event("off")');
+
+Anwendungsbeispiele mit bedingter Wiederholung einer Ausführung
+
+Wenn Alarm ausgelöst wird, soll eine Benachrichtigung gesendet werden und alle 60 Sekunden wiederholt werden, solange Alarmanlage auf "on" steht.
+
+defmod di_alarm DOIF {["alarm:on"];;fhem("send myphone alarm!");;set_Exec("timer",60,'fhem("send myphone alarm!")','ReadingsVal("alarm","state","on") eq "on"')}
+
+Wenn Taster auslöst, Lampe auf on schalten und noch zwei mal im Abstand von einer Sekunde wiederholt auf on schalten.
+
+defmod di_lamp_on DOIF {["button:on"];;fhem_set"lamp on";;set_Exec("timer",1,'fhem_set("lamp on")','$count < 2')}
+
+alternativ:
+
+defmod di_lamp_on DOIF {["button:on"];;set_Exec("timer",'$count == 0 ? 0 : 1','fhem_set("lamp on")','$count < 2')}
+
+$count ist eine interne Variable, die beginnend mit 0 nach jedem Durchlauf um eins erhöht wird.
+
+Wenn Fenster geöffnet wird, dann soll eine Benachrichtigung erfolgen, dabei soll die Benachrichtigung bis zu 10 mal jeweils um weitere 60 Sekunden verzögert werden: erste Benachrichtigung nach 5 Minuten,
+zweite Benachrichtigung nach weiteren 6 Minuten, dritte Benachrichtigung nach weiteren 7 Minuten usw.
+
+defmod di_window DOIF {if ([window:state] eq "open") {\
+ set_Exec("timer",'300+$count*60','fhem("echo speak window open")','$count < 9')\
+} else {\
+ del_Exec("timer")\
+}\
+}
+
+Pumpe alle zwei Stunden im Abstand von fünf Minuten 3 mal einschalten, beim ersten mal für 60 Sekunden, beim zweiten mal für 80 Sekunden und beim dritten mal für 100 Sekunden.
+
+defmod di_pump DOIF {[08:00-20:00,+[2]:00];;set_Exec("timer",300,'fhem_set("pump on-for-timer ".60+$count*20)','$count < 3')}
+
+Hochdimmen beim Tastendruck im Sekundentakt.
+
+defmod di_dimm DOIF {["button:on"];;@{$_pct}=(10,35,65,80,90,100);;set_Exec("timer",1,'fhem_set"lamp pct ".$_pct[$count]','$count < 6')}
+
+$_pct ist hier ein Array mit Helligkeitswerten, auf das innerhalb des Devices zu jedem Zeitpunkt zugegriffen werden kann.
+
init-Block back
@@ -7116,21 +7195,6 @@ define di_count DOIF {
}
}
-
-Verzögerte Fenster-offen-Meldung mit Wiederholung für mehrere Fenster
-
-
-define di_window DOIF
-subs {
- sub logwin { # Definition der Funktion namens "logwin"
- my ($window)=@_; # übernehme Parameter in die Variable $window
- Log 3,"Fenster offen, bitte schließen: $window"; # protokolliere Fenster-Offen-Meldung
- set_Exec ("$window",1800,"logwin",$window); # setze Timer auf 30 Minuten für eine wiederholte Meldung
- }
-}
-{ if (["_window$:open"]) {set_Exec ("$DEVICE",600,'logwin',"$DEVICE")}} # wenn, Fenster geöffnet wird, dann setze Timer auf Funktion zum Loggen namens "logwin"
-{ if (["_window$:closed"]) {del_Exec ("$DEVICE")}} # wenn, Fenster geschlossen wird, dann lösche Timer
-
=end html_DE
=cut