diff --git a/fhem/FHEM/98_DOIF.pm b/fhem/FHEM/98_DOIF.pm
index 3dcf6282a..bd133d51b 100644
--- a/fhem/FHEM/98_DOIF.pm
+++ b/fhem/FHEM/98_DOIF.pm
@@ -207,6 +207,22 @@ sub ReplaceReadingDoIf($)
}
}
+sub ReplaceReadingEvalDoIf($$)
+{
+ my ($element,$eval) = @_;
+ my ($block,$err,$device,$reading,$internal)=ReplaceReadingDoIf($element);
+ return ($block,$err) if ($err);
+ if ($eval) {
+ return ($device,"device does not exist: $device") if(!$defs{$device});
+ return ($block,"reading does not exist: $device:$reading") if (defined ($reading) and !defined($defs{$device}{READINGS}{$reading}));
+ return ($block,"internal does not exist: $device:$internal") if (defined ($internal) and !defined($defs{$device}{$internal}));
+ my $ret = eval $block;
+ return($block." ",$@) if ($@);
+ $block=$ret;
+ }
+ return ($block,"",$device,$reading,$internal);
+}
+
sub AddItemDoIf($$)
{
my ($items,$item)=@_;
@@ -244,25 +260,12 @@ sub ReplaceAllReadingsDoIf($$$$)
$block=substr($block,1);
$trigger=0;
}
- if ($condition >= 0) {
- ($timer,$err)=DOIF_CheckTimers($hash,$block,$condition,$trigger,\@timerarray);
- return($timer,$err) if ($err);
- if ($timer) {
- $cmd.=$beginning.$timer;
- $event=1 if ($trigger);
- next;
- }
- }
- if ($block =~ /:/ or ($block =~ /[a-z]/i and $block =~ /^[a-z0-9._]*$/i)) {
- ($block,$err,$device,$reading,$internal)=ReplaceReadingDoIf($block);
+ # if ($block =~ /^[0-9]+$/) {
+ # $block="[".$block."]";
+ # } elsif
+ if ($block =~ /^\??[a-z0-9._]*[a-z._]+[a-z0-9._]*($|:.+$)/i) {
+ ($block,$err,$device,$reading,$internal)=ReplaceReadingEvalDoIf($block,$eval);
return ($block,$err) if ($err);
- if ($eval) {
- return ($block,"reading does not exist: [$device:$reading]") if (defined ($reading) and !defined($defs{$device}{READINGS}{$reading}));
- return ($block,"internal does not exist: [$device:$internal]") if (defined ($internal) and !defined($defs{$device}{$internal}));
- my $ret = eval $block;
- return($block." ",$@) if ($@);
- $block=$ret;
- }
if ($trigger) {
if ($condition >= 0) {
$hash->{devices}{$condition} = AddItemDoIf($hash->{devices}{$condition},$device);
@@ -279,6 +282,13 @@ sub ReplaceAllReadingsDoIf($$$$)
$hash->{itimer}{all} = AddItemDoIf($hash->{itimer}{all},$device);
}
}
+ } elsif ($condition >= 0) {
+ ($timer,$err)=DOIF_CheckTimers($hash,$block,$condition,$trigger,\@timerarray);
+ return($timer,$err) if ($err);
+ if ($timer) {
+ $block=$timer;
+ $event=1 if ($trigger);
+ }
} else {
$block="[".$block."]";
}
@@ -377,66 +387,80 @@ DOIF_CheckTimers($$$$$)
my $block;
my $result;
my ($hash,$timer,$condition,$trigger,$timerarray)=@_;
- if ($timer =~ /^(\+)?((\{.*\})|(\[.*\])|([0-9][0-9](:[0-5][0-9]){1,2}))(\|[0-8]+$|-(\+)?(([0-9][0-9](:[0-5][0-9]){1,2})|({.*})|(\[.*\]))|$)(\|[0-8]+$|$)/) {
- while ($timer ne "") {
- if ($timer=~ /^\s*\{/) {
- ($beginning,$time,$err,$timer)=GetBlockDoIf($timer,'[\{\}]');
- return ($time,$err) if ($err);
- $time="{".$time."}";
- if ($timer =~ /^\s*\|/g) {
- $pos=pos($timer);
- $days=substr($timer,$pos);
- $timer="";
- }
- } elsif ($timer=~ /^\s*\[/) {
- ($beginning,$time,$err,$timer)=GetBlockDoIf($timer,'[\[\]]');
- return ($time,$err) if ($err);
- $time="[".$time."]";
- ($result,$err)=ReplaceAllReadingsDoIf($hash,$time,-3,0);
- return ($time,$err) if ($err);
- if ($timer =~ /^\s*\|/g) {
- $pos=pos($timer);
- $days=substr($timer,$pos);
- $timer="";
- }
- } elsif ($timer =~ /-/g) {
- $pos=pos($timer)-1;
- $time=substr($timer,0,$pos);
- $timer=substr($timer,$pos+1);
- } else {
- ($time,$days)=split(/\|/,$timer);
- $timer="";
- }
- $times[$i]=$time;
- $nrs[$i++]=$hash->{helper}{last_timer}++;
- $timer=substr($timer,pos($timer)) if ($timer =~ /^\s*\-/g);
- }
- $days = "" if (!defined ($days));
- for (my $j=0; $j<$i;$j++) {
- $nr=$nrs[$j];
- $time=$times[$j];
- $time .=":00" if ($time =~ m/^[0-9][0-9]:[0-5][0-9]$/);
- $hash->{timer}{$nr}=0;
- $hash->{time}{$nr}=$time;
- $hash->{timeCond}{$nr}=$condition;
- $hash->{days}{$nr}=$days if ($days ne "");
- ${$timerarray}[$nr]={hash=>$hash,nr=>$nr};
- if ($init_done) {
- $err=(DOIF_SetTimer("DOIF_TimerTrigger",\${$timerarray}[$nr]));
- return($hash->{time}{$nr},$err) if ($err);
- }
- $hash->{timers}{$condition}.=" $nr " if ($trigger);
- $hash->{timerfunc}{$nr}=\${$timerarray}[$nr];
- }
- if ($i == 2) {
- $block='DOIF_time($hash->{realtime}{'.$nrs[0].'},$hash->{realtime}{'.$nrs[1].'},$wday,$hms,"'.$days.'")';
+ $timer =~ s/\s//g;
+ while ($timer ne "") {
+ if ($timer=~ /^\s*\+\(/) {
+ ($beginning,$time,$err,$timer)=GetBlockDoIf($timer,'[\(\)]');
+ return ($time,$err) if ($err);
+ $time="+(".$time.")";
+ ($result,$err)=ReplaceAllReadingsDoIf($hash,$time,-3,0);
+ return ($time,$err) if ($err);
+ } elsif ($timer=~ /^\s*\(/) {
+ ($beginning,$time,$err,$timer)=GetBlockDoIf($timer,'[\(\)]');
+ return ($time,$err) if ($err);
+ $time="(".$time.")";
+ ($result,$err)=ReplaceAllReadingsDoIf($hash,$time,-3,0);
+ return ($time,$err) if ($err);
+ } elsif ($timer=~ /^\s*\{/) {
+ ($beginning,$time,$err,$timer)=GetBlockDoIf($timer,'[\{\}]');
+ return ($time,$err) if ($err);
+ $time="{".$time."}";
+ } elsif ($timer=~ /^\s*\+\[/) {
+ ($beginning,$time,$err,$timer)=GetBlockDoIf($timer,'[\[\]]');
+ return ($time,$err) if ($err);
+ $time="+[".$time."]";
+ ($result,$err)=ReplaceAllReadingsDoIf($hash,$time,-3,0);
+ return ($time,$err) if ($err);
+ } elsif ($timer=~ /^\s*\[/) {
+ ($beginning,$time,$err,$timer)=GetBlockDoIf($timer,'[\[\]]');
+ return ($time,$err) if ($err);
+ $time="[".$time."]";
+ ($result,$err)=ReplaceAllReadingsDoIf($hash,$time,-3,0);
+ return ($time,$err) if ($err);
+ } elsif ($timer =~ /-/g) {
+ $pos=pos($timer)-1;
+ $time=substr($timer,0,$pos);
+ $timer=substr($timer,$pos);
} else {
- $block='DOIF_time_once($hash->{timer}{'.$nrs[0].'},$wday,"'.$days.'")';
+ ($time,$days)=split(/\|/,$timer);
+ $timer="";
}
- return ($block,"");
+ $times[$i]=$time;
+ $nrs[$i++]=$hash->{helper}{last_timer}++;
+ if ($timer) {
+ if ($timer =~ /\-/g) {
+ $timer=substr($timer,pos($timer));
+ } elsif ($timer =~ /\|/g) {
+ $days=substr($timer,pos($timer));
+ $timer="";
+ } else {
+ return ($timer,"wrong time format");
+ }
+ }
+ }
+ $days = "" if (!defined ($days));
+ for (my $j=0; $j<$i;$j++) {
+ $nr=$nrs[$j];
+ $time=$times[$j];
+ $time .=":00" if ($time =~ m/^[0-9][0-9]:[0-5][0-9]$/);
+ $hash->{timer}{$nr}=0;
+ $hash->{time}{$nr}=$time;
+ $hash->{timeCond}{$nr}=$condition;
+ $hash->{days}{$nr}=$days if ($days ne "");
+ ${$timerarray}[$nr]={hash=>$hash,nr=>$nr};
+ if ($init_done) {
+ $err=(DOIF_SetTimer("DOIF_TimerTrigger",\${$timerarray}[$nr]));
+ return($hash->{time}{$nr},$err) if ($err);
+ }
+ $hash->{timers}{$condition}.=" $nr " if ($trigger);
+ $hash->{timerfunc}{$nr}=\${$timerarray}[$nr];
}
- delete ($hash->{helper}{modify});
- return("","");
+ if ($i == 2) {
+ $block='DOIF_time($hash->{realtime}{'.$nrs[0].'},$hash->{realtime}{'.$nrs[1].'},$wday,$hms,"'.$days.'")';
+ } else {
+ $block='DOIF_time_once($hash->{timer}{'.$nrs[0].'},$wday,"'.$days.'")';
+ }
+ return ($block,"");
}
sub
@@ -673,7 +697,7 @@ DOIF_Trigger ($$$)
}
}
if ($doelse) { #DOELSE
- if (defined ($hash->{do}{$max_cond}) or $max_cond == 1) { #DOELSE
+ if (defined ($hash->{do}{$max_cond}) or ($max_cond == 1 and !(AttrVal($pn,"do","") or AttrVal($pn,"repeatsame","")))) { #DOELSE
if (DOIF_SetSleepTimer($hash,$last_cond,$max_cond,$device,$timerNr)) {
DOIF_cmd ($hash,$max_cond,$event) ;
return 1;
@@ -704,7 +728,7 @@ DOIF_Notify($$)
DOIF_SetTimer("DOIF_TimerTrigger",$hash->{timerfunc}{$j});
}
}
- return undef;
+ # return undef;
}
if (($hash->{itimer}{all}) and $hash->{itimer}{all} =~ / $dev->{NAME} /) {
@@ -756,7 +780,7 @@ DOIF_Notify($$)
sub
DOIF_TimerTrigger ($)
{
-my ($timer)=@_;
+ my ($timer)=@_;
my $nr=${$timer}->{nr};
my $hash=${$timer}->{hash};
my $ret;
@@ -769,6 +793,141 @@ my ($timer)=@_;
return($ret);
}
+sub
+DOIF_DetTime($)
+{
+ my ($timeStr) = @_;
+ my $rel=0;
+ my $align;
+ my $hr=0;
+ my $err;
+ my $h=0;
+ my $m=0;
+ my $s=0;
+ my $fn;
+ if (substr($timeStr,0,1) eq "+") {
+ $timeStr=substr($timeStr,1);
+ $rel=1;
+ }
+ my ($now, $microseconds) = gettimeofday();
+ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now);
+ if($timeStr =~ m/^\[([0-9]+)\]:([0-5][0-9])$/) {
+ $hr=$1;
+ $rel=0;
+ $align=$2;
+ } elsif ($timeStr =~ m/^:([0-5][0-9])$/) {
+ $align=$1;
+ } elsif ($timeStr =~ m/^([0-9]+)$/) {
+ $s=$1;
+ } else {
+ if ($timeStr =~ m/^\$hms$/) {
+ $timeStr = sprintf("%02d:%02d:%02d", $hour, $min, $sec);
+ } elsif ($timeStr =~ m/^\$hm$/) {
+ $timeStr = sprintf("%02d:%02d", $hour, $min);
+ }
+ ($err, $h, $m, $s, $fn) = GetTimeSpec($timeStr);
+ return $err if ($err);
+ }
+ if (defined ($align)) {
+ if ($rel) {
+ if ($align > 0) {
+ $m = (int($min/$align)+1)*$align;
+ if ($m>=60) {
+ $h = $hour+1;
+ $m = 0;
+ } else {
+ $h = $hour;
+ }
+ }
+ } else {
+ $m=$align;
+ if ($hr > 1) {
+ $h = (int($hour/$hr)+1)*$hr;
+ $h = 0 if ($h >=24);
+ } else {
+ if ($m <= $min) {
+ $h = $hour+1;
+ } else {
+ $h = $hour;
+ }
+ }
+ }
+ }
+ my $second = $h*3600+$m*60+$s;
+ if ($second == 0 and $rel) {
+ $err = "null is not allowed on a relative time";
+ }
+ return ($err, ($rel and !defined ($align)), $second);
+}
+
+sub
+DOIF_CalcTime($)
+{
+ my ($block)= @_;
+ my $tailBlock;
+ my $beginning;
+ my $err;
+ my $cmd="";
+ my $rel="";
+ my $relGlobal=0;
+ my $reading;
+ my $internal;
+ my $device;
+ my $pos;
+ my $ret;
+
+ if ($block =~ /^\s*\+/g) {
+ $relGlobal=1;
+ $pos=pos($block);
+ $block=substr($block,$pos);
+ }
+
+ if ($block =~ /^\s*\(/) {
+ ($beginning,$tailBlock,$err,$tailBlock)=GetBlockDoIf($block,'[\(\)]');
+ return ($tailBlock,$err) if ($err);
+ } else {
+ if ($block =~ /^\s*\[/) {
+ ($beginning,$block,$err,$tailBlock)=GetBlockDoIf($block,'[\[\]]');
+ return ($block,$err) if ($err);
+ ($block,$err,$device,$reading,$internal)=ReplaceReadingEvalDoIf($block,1);
+ return ($block,$err) if ($err);
+ }
+ ($err,$rel,$block)=DOIF_DetTime($block);
+ $rel=1 if ($relGlobal);
+ return ($block,$err,$rel);
+ }
+ $tailBlock=$block;
+ while ($tailBlock ne "") {
+ ($beginning,$block,$err,$tailBlock)=GetBlockDoIf($tailBlock,'[\[\]]');
+ return ($block,$err) if ($err);
+ if ($block ne "") {
+ if ($block =~ /^\??[a-z0-9._]*[a-z._]+[a-z0-9._]*($|:.+$)/i) {
+ ($block,$err,$device,$reading,$internal)=ReplaceReadingEvalDoIf($block,1);
+ return ($block,$err) if ($err);
+ }
+ ($err,$rel,$block)=DOIF_DetTime($block);
+ }
+ $cmd.=$beginning.$block;
+ }
+ $tailBlock=$cmd;
+ $cmd="";
+ while ($tailBlock ne "") {
+ ($beginning,$block,$err,$tailBlock)=GetBlockDoIf($tailBlock,'[\{\}]');
+ return ($block,$err) if ($err);
+ if ($block ne "") {
+ $ret = eval $block;
+ return($block." ",$@) if ($@);
+ $block=$ret;
+ ($err,$rel,$block)=DOIF_DetTime($block);
+ }
+ $cmd.=$beginning.$block;
+ }
+ $ret = eval $cmd;
+ return($cmd." ",$@) if ($@);
+ return ($ret,"null is not allowed on a relative time",$relGlobal) if ($ret == 0 and $relGlobal);
+ return ($ret,"",$relGlobal);
+}
+
sub
DOIF_SetTimer($$)
{
@@ -777,37 +936,20 @@ DOIF_SetTimer($$)
my $hash=${$timer}->{hash};
my $timeStr=$hash->{time}{$nr};
my $cond=$hash->{timeCond}{$nr};
- my $rel=0;
my $next_time;
- if (substr($timeStr,0,1) eq "+") {
- $timeStr=substr($timeStr,1);
- $rel=1;
- }
- if ($timeStr=~ /^\s*\[/) {
- my $err;
- ($timeStr,$err)=ReplaceAllReadingsDoIf($hash,$timeStr,-3,1);
- if ($err)
- {
+
+ my ($second,$err, $rel)=DOIF_CalcTime($timeStr);
+ if ($err)
+ {
readingsSingleUpdate ($hash,"timer_".($nr+1)."_c".($cond+1),"error: ".$err,0);
RemoveInternalTimer($timer);
$hash->{realtime}{$nr}="00:00:00";
return $err;
- }
}
- my ($err, $h, $m, $s, $fn) = GetTimeSpec($timeStr);
- if ($err)
- {
- readingsSingleUpdate ($hash,"timer_".($nr+1)."_c".($cond+1),"error: ".$err,0);
- RemoveInternalTimer($timer);
- $hash->{realtime}{$nr}="00:00:00";
- return $err;
- }
- return $err if($err);
- my $second = $h*3600+$m*60+$s;
- #my $now = time();
my ($now, $microseconds) = gettimeofday();
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now);
my $isdst_now=$isdst;
+
my $sec_today = $hour*3600+$min*60+$sec;
my $midnight = $now-$sec_today;
if ($rel) {
@@ -815,7 +957,7 @@ DOIF_SetTimer($$)
} else {
$next_time = $midnight+$second;
}
- $next_time+=86400 if ($sec_today>=$second and !$rel);
+ $next_time+=86400 if ($second <= $sec_today and !$rel);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($next_time);
if ($isdst_now != $isdst) {
if ($isdst_now == 1) {
@@ -1093,8 +1235,8 @@ Complex problems can be solved with this module, which would otherwise be solved
Logical queries are created in conditions using Perl operators.
These are combined with information from states, readings, internals of devices or times in square brackets.
-Arbitrary Perl functions can also be specified that are defined in FHEM.
-The module is triggered by time or by events information through the Devices specified in the condition.
+Arbitrary Perl functions can also be specified that are defined in FHEM.
+The module is triggered by time or by events information through the Devices specified in the condition.
If a condition is true, the associated FHEM- or Perl commands are executed.
Syntax:
@@ -1110,7 +1252,9 @@ The commands are always processed from left to right. There is only one command
+ it can be any FHEM commands and perl commands are executed
+ syntax checking at the time of definition are identified missing brackets
+ status is specified with [<devicename>], readings with [<devicename>:<readingname>] or internals with [<devicename>:&<internal>]
-+ time information on the condition: [HH:MM:SS] or [HH:MM] or [[<devicename>]] or [[<devicename>:<readingname>]] or [{<perl-function>}]
++ time information on the condition: [HH:MM:SS] or [HH:MM] or [<seconds>]
++ indirect time on the condition: [[<devicename>]] or [[<devicename>:<readingname>]] or [{<perl-function>}]
++ time calculation on the condition: [(<time calculation in Perl with time syntax specified above>)]
+ time intervals: [<begin>-<end>] for <begin> and <end>, the above time format can be selected.
+ relative times preceded by a plus sign [+<time>] or [+<begin>-+<end>] combined with Perl functions
+ weekday control: [<time>|012345678] or [<begin>-<end>|012345678] (0-6 corresponds to Sunday through Saturday) such as 7 for $we and 8 for !$we
@@ -1137,50 +1281,63 @@ Es vereinigt die Funktionalität eines notify-, at-, watchdog-Befehls in Kombina
Damit können insb. komplexere Problemstellungen innerhalb eines DOIF-Moduls gelöst werden, die sonst nur mit Hilfe einzelner Module an mehreren Stellen in FHEM vorgenommen werden müssten. Das führt zu übersichtlichen Lösungen und vereinfacht deren Pflege.
Logische Abfragen werden in Bedingungen mit Hilfe von Perl-Operatoren erstellt.
-Diese werden mit Angaben von Stati, Readings, Internals, Events von Devices oder Zeiten in eckigen Klammern kombiniert. Ebenso können beliebige Perl-Funktionen angegeben werden, die in FHEM definiert sind.
+Diese werden mit Angaben von Stati, Readings, Internals, Events von Devices oder Zeiten in eckigen Klammern kombiniert. Ebenso können beliebige Perl-Funktionen angegeben werden, die in FHEM definiert sind.
Getriggert wird das Modul durch Zeitangaben bzw. durch Ereignisse ausgelöst durch die in der Bedingung angegebenen Devices.
Wenn eine Bedingung wahr wird, so werden die dazugehörigen FHEM- bzw. Perl-Kommandos ausgeführt.
Syntax:
-define <name> DOIF (<Bedingung>) (<Befehle>) DOELSEIF (<Bedingung>) (<Befehle>) DOELSEIF ... DOELSE (<Befehle>)
+define <name> DOIF (<Bedingung>) (<Befehle>) DOELSEIF (<Bedingung>) (<Befehle>) DOELSEIF ... DOELSE (<Befehle>)
Die Angaben werden immer von links nach rechts abgearbeitet. Es wird immer nur ein Kommando ausgeführt, und zwar das erste, für das die dazugehörige Bedingung in der abgearbeiteten Reihenfolge wahr ist. Hinzu kommt, dass nur die Bedingungen überprüft werden, die zum ausgelösten Event auch das Device beinhalten.
+Einfache Anwendungsbeispiele:
+
+Ereignissteuerung: define di_rc_tv DOIF ([remotecontol] eq "on") (set tv on) DOELSE (set tv off)
+
+Zeitsteuerung: define di_clock_radio DOIF ([06:30]) (set radio on) DOELSEIF ([08:00]) (set radio off)
+
+Kombinierte Ereignis- und Zeitsteuerung: define di_lamp DOIF ([06:00-09:00] and [sensor:brightness] < 40) (set lamp on) DOELSE (set lamp off)
+
Features
+ Syntax angelehnt an Verzweigungen if - elseif - ... - elseif - else in höheren Sprachen
+ Bedingungen werden vom Perl-Interpreter ausgewertet, daher beliebige logische Abfragen möglich
-+ Die Perl-Syntax wird um Angaben von Stati, Readings, Internals, Events oder Zeitangaben in eckigen Klammern erweitert, diese führen zur Triggerung des Moduls
-+ Stati werden mit [<devicename>], Readings mit [<devicename>:<readingname>], Internals mit [<devicename>:&<internal>] oder Events mit [<devicename>:?<regexp>] angegeben
-+ Zeitangaben in der Bedingung: [HH:MM:SS] oder [HH:MM] oder [[<devicename>]] oder [[<devicename>:<readingname>]] oder [{<perl-function>}]
-+ Zeitintervalle: [<begin>-<end>] für <begin> bzw. <end> kann das obige Zeitformat gewählt werden
-+ relative Zeitangaben mit vorangestelltem Pluszeichen [+<time>] oder [+<begin>-+<end>] kombinierbar mit Perl-Funktionen s. o.
-+ Wochentagsteuerung: [<time>|012345678] oder [<begin>-<end>|012345678] (0-6 entspricht Sonntag bis Samstag) sowie 7 für $we und 8 für !$we
-+ Stati, Readings, Internals und Zeitintervalle für Abfragen ohne Triggerung des Moduls, werden mit einem vorangestellen Fragezeichen angegeben [?...]
++ Die Perl-Syntax in der Bedingung wird um Angaben von Stati, Readings, Internals, Events oder Zeitangaben in eckigen Klammern erweitert, diese führen zur Triggerung des Moduls
+ Es können beliebig viele DOELSEIF-Angaben gemacht werden, sie sind, wie DOELSE am Ende der Kette, optional
+ Verzögerungsangaben mit Zurückstellung sind möglich (watchdog-Funktionalität)
+ Der Ausführungsteil kann jeweils ausgelassen werden. Damit kann das Modul für reine Statusanzeige genutzt werden
+Im Folgenden wird die Funktionalität des Moduls im Einzelnen an vielen praktischen Beispielen erklärt.
Ereignissteuerung
-Vergleichende Abfragen werden, wie in Perl gewohnt, mit Operatoren ==, !=, <, <=, >, >= bei Zahlen und mit eq, ne, lt, le, gt, ge, =~ bei Zeichenketten angegeben.
+Vergleichende Abfragen werden, wie in Perl gewohnt, mit Operatoren ==, !=, <, <=, >, >= bei Zahlen und mit eq, ne, lt, le, gt, ge, =~, !~ bei Zeichenketten angegeben.
Logische Verknüpfungen sollten zwecks Übersichtlichkeit mit and bzw. or vorgenommen werden.
Selbstverständlich lassen sich auch alle anderen Perl-Operatoren verwenden, da die Auswertung der Bedingung vom Perl-Interpreter vorgenommen wird.
-Die Reihenfolge der Auswertung wird, wie in höheren Sprachen üblich, durch runde Klammern beeinflusst.
+Die Reihenfolge der Auswertung wird, wie in höheren Sprachen üblich, durch runde Klammern beeinflusst.
+Stati werden mit [<devicename>], Readings mit [<devicename>:<readingname>],
+Internals mit [<devicename>:&<internal>] angegeben.
Anwendungsbeispiel: Einfache Ereignissteuerung wie beim notify mit einmaliger Ausführung beim Zustandswechsel, "remotecontrol" ist hier ein Device, es wird in eckigen Klammern angegeben. Ausgewertet wird der Status des Devices - nicht das Event.
-define di_garage DOIF ([remotecontrol] eq "on") (set garage on) DOELSEIF ([remotecontrol] eq "off") (set garage off)
+define di_garage DOIF ([remotecontrol] eq "on") (set garage on) DOELSEIF ([remotecontrol] eq "off") (set garage off)
Das Modul wird getriggert, sobald das angegebene Device hier "remotecontrol" ein Event erzeugt. Das geschieht, wenn irgendein Reading oder der Status von "remotecontrol" aktualisiert wird.
-Die Ausführung erfolgt standardmäßig nur nach Zustandswechsel des Moduls (nicht des Aktors).
-Das bedeutet, dass ein mehrmaliges Drücken der Fernbedienung auf "on" nur einmal "set garage on" ausführt.
-Wünscht man eine Ausführung bei jedem Trigger, weil z. B. Garage nicht nur über die Fernbedienung geschaltet wird, dann muss man das per "do always"-Attribut angeben:
+Ausgewertet wird hier der Zustand des Statuses von remotecontrol nicht das Event selbst. Die Ausführung erfolgt standardmäßig einmalig nur nach Zustandswechsel des Moduls.
+Das bedeutet, dass ein mehrmaliges Drücken der Fernbedienung auf "on" nur einmal "set garage on" ausführt. Die nächste mögliche Ausführung ist "set garage off", wenn Fernbedienung "off" liefert.
+Wünscht man eine Ausführung des gleichen Befehls mehrfach nacheinander bei jedem Trigger, unabhängig davon welchen Zustand das DOIF-Modul hat, weil z. B. Garage nicht nur über die Fernbedienung geschaltet wird und dann muss man das per "do always"-Attribut angeben:
attr di_garage do always
+Bei der Angabe von zyklisch sendenden Sensoren (Temperatur, Feuchtigkeit, Helligkeit usw.) wie z. B.:
+
+define di_heating DOIF ([sens:temperature] < 20) (set heating on)
+
+ist die Nutzung des Attributes do always nicht sinnvoll, da das entsprechende Kommando hier: "set heating on" jedes mal ausgeführt wird,
+wenn der Temperatursensor in regelmäßigen Abständen eine Temperatur unter 20 Grad sendet.
+Ohne do always wird hier dagegen erst wieder "set heating on" ausgeführt, wenn der Zustand des Moduls gewechselt hat, also die Temperatur zwischendurch größer oder gleich 20 Grad war.
+
Abfragen nach Vorkommen eines Wortes innerhalb einer Zeichenkette können mit Hilfe des Perl-Operators =~ vorgenommen werden.
Anwendungsbeispiel: Garage soll beim langen Tastendruck öffnen, hier: wenn das Wort "Long" im Status vorkommt (bei HM-Komponenten stehen im Status noch weitere Informationen).
@@ -1192,7 +1349,8 @@ Weitere Möglichkeiten bei der Nutzung des Perl-Operators: =~, insb
Ereignissteuerung über Auswertung von Events
-Eine Alternative zur Auswertung von Stati oder Readings ist das Auswerten von Ereignissen (Events) mit Hilfe von regulären Ausdrücken, wie beim notify. Eingeleitet wird die Angabe eines regulären Ausdrucks durch ein Fragezeichen
+Eine Alternative zur Auswertung von Stati oder Readings ist das Auswerten von Ereignissen (Events) mit Hilfe von regulären Ausdrücken, wie beim notify. Eingeleitet wird die Angabe eines regulären Ausdrucks durch ein Fragezeichen.
+Die Syntax lautet: [<devicename>:?<regexp>]
Anwendungsbeispiel: wie oben, jedoch wird hier nur das Ereignis (welches im Eventmonitor erscheint) ausgewertet und nicht der Status von "remotecontrol" wie im vorherigen Beispiel
@@ -1205,22 +1363,38 @@ Die Angabe von regulären Ausdrücken kann recht komplex werden und würde die A
Weitere Informationenen zu regulären Ausdrücken sollten in der Perl-Dokumentation nachgeschlagen werden.
Die logische Verknüpfung "and" mehrerer Ereignisse ist nicht sinnvoll, da zu einem Zeitpunkt immer nur ein Ereignis zutreffen kann.
+Angaben im Ausführungsteil:
+
+Der Ausführungsteil wird immer wie die Bedingung in runden Klammern angegeben. Es werden standardmäßig FHEM-Befehle angegeben, wie z. B.: ...(set lamp on)
+
+Sollen mehrere FHEM-Befehle ausgeführt werden, so werden sie mit Komma statt mit Semikolon angegeben ... (set lamp1 on, set lamp2 off)
+
+Falls ein Komma nicht als Trennzeichen zwischen FHEM-Befehlen gelten soll, so muss der FHEM-Ausdruck zusätzlich in runde Klammern gesetzt werden: ...((set lamp1,lamp2 on),set switch on)
+
+Perlbefehle müssen zusätzlich in geschweifte Klammern gesetzt werden: ... ({system ("wmail Peter is at home")})
+
+Mehrere Perlbefehle hintereinander werden im DEF-Editor mit zwei Semikolons angegeben: ...({system ("wmail Peter is at home");;system ("wmail Marry is at home")})
+
+FHEM-Befehle lassen sich mit Perl-Befehlen kombinieren: ... ({system ("wmail Peter is at home")}, set lamp on)
+
Zeitsteuerung
+Zeitangaben in der Bedingung im Format: [HH:MM:SS] oder [HH:MM] oder [Zahl]
+
Anwendungsbeispiele:
-Einschalten um 8:00 Uhr, ausschalten um 10:00 Uhr. Mehrere FHEM-Befehle werden mit Komma, statt mit Semikolon voneinander getrennt:
+Einschalten um 8:00 Uhr, ausschalten um 10:00 Uhr.
-define di_light DOIF ([08:00]) (set switch on,set lamp on) DOELSEIF ([10:00]) (set switch off,set lamp off)
-
-Falls ein Komma nicht als Trennzeichen zwischen FHEM-Befehlen gelten soll, so muss der FHEM-Ausdruck zusätzlich in runde Klammern gesetzt werden:
-
-define di_light DOIF ([08:00]) ((set lamp1,lamp2 on),set switch on)
+define di_light DOIF ([08:00]) (set switch on) DOELSEIF ([10:00]) (set switch off)
Zeitsteuerung mit mehreren Zeitschaltpunkten:
define di_light DOIF ([08:00] or [10:00] or [20:00]) (set switch on) DOELSEIF ([09:00] or [11:00] or [00:00]) (set switch off)
+Zeitangaben können ebenfalls in Sekunden angegeben werden. Es handelt sich dann um Sekundenangaben nach Mitternacht, hier also um 01:00 Uhr:
+
+define di_light DOIF ([3600]) (set lamp on)
+
Relative Zeitangaben
Zeitangaben, die mit Pluszeichen beginnen, werden relativ behandelt, d. h. die angegebene Zeit wird zum aktuellen Zeitpunkt hinzuaddiert.
@@ -1230,8 +1404,57 @@ Zeitangaben, die mit Pluszeichen beginnen, werden relativ behandelt, d. h. die a
define di_save DOIF ([+01:00]) (save)
attr di_save do always
+Ebenfalls lassen sich relative Angaben in Sekunden angeben. Das obige Beispiel entspricht:
+
+define di_save DOIF ([+3600]) (save)
+
+Zeitangaben nach Zeitraster ausgerichtet
+
+Das Format lautet: [:MM] MM sind Minutenangaben zwischen 00 und 59.
+
+Anwendungsbeispiel: Viertelstunden-Gong
+
+define di_gong DOIF ([:00])
+ ({system ("mplayer /opt/fhem/Sound/BigBen_00.mp3 -volume 90 −really−quiet &")})
+DOELSEIF ([:15])
+ ({system ("mplayer /opt/fhem/Sound/BigBen_15.mp3 -volume 90 −really−quiet &")})
+DOELSEIF ([:30])
+ ({system ("mplayer /opt/fhem/Sound/BigBen_30.mp3 -volume 90 −really−quiet &")})
+DOELSEIF ([:45])
+ ({system ("mplayer /opt/fhem/Sound/BigBen_45.mp3 -volume 90 −really−quiet &")})
+
+Relative Zeitangaben nach Zeitraster ausgerichtet
+
+Das Format lautet: [+:MM] MM sind Minutenangaben zwischen 1 und 59.
+
+Anwendungsbeispiel: Gong alle funfzehn Minuten um XX:00 XX:15 XX:30 XX:45
+
+define di_gong DOIF ([+:15]) (set Gong_mp3 playTone 1)
+attr di_gong do always
+
+Zeitangaben nach Zeitraster ausgerichtet alle X Stunden
+
+Format: [+[h]:MM] mit: h sind Stundenangaben zwischen 2 und 23 und MM Minuten zwischen 00 und 59
+
+Anwendungsbeispiel: Es soll immer fünf Minuten nach einer vollen Stunde alle 2 Stunden eine Pumpe eingeschaltet werden, die Schaltzeiten sind 00:05, 02:05, 04:05 usw.
+
+define di_gong DOIF ([+[2]:05]) (set pump on-for-timer 300)
+attr di_gong do always
+
+Wochentagsteuerung
+
+Hinter der Zeitangabe kann ein oder mehrere Wochentage als Ziffer getrennt mit einem Pipezeichen | angegeben werden. Die Syntax lautet:
+
+[<time>|012345678] 0-8 entspricht: 0-Sonntag, 1-Montag, ... bis 6-Samstag sowie 7 für Wochende und Feiertage (entspricht $we) und 8 für Arbeitstage (entspricht !$we)
+
+Anwendungsbeispiel: Radio soll am Wochenende und an Feiertagen um 08:30 Uhr eingeschaltet und um 09:30 Uhr ausgeschaltet werden. An Arbeitstagen soll das Radio um 06:30 Uhr eingeschaltet und um 07:30 Uhr ausgeschaltet werden.
+
+define di_radio DOIF ([06:30|8] or [08:30|7]) (set radio on) DOELSEIF ([07:30|8] or [09:30|7]) (set radio off)
+
Zeitsteuerung mit Zeitintervallen
+Zeitintervalle werden im Format angegeben: [<begin>-<end>] für <begin> bzw. <end> wird das gleiche Zeitformat verwendet, wie bei einzelnen Zeitangaben.
+
Anwendungsbeispiele:
Radio soll zwischen 8:00 und 10:00 Uhr an sein:
@@ -1242,9 +1465,9 @@ mit mehreren Zeitintervallen:
define di_radio DOIF ([08:00-10:00] or [20:00-22:00]) (set radio on) DOELSE (set radio off)
-nur sonntags (0) und samstags (6)
+Radio soll nur sonntags (0) eingeschaltet werden:
-define di_radio DOIF ([08:00-10:00|06]) (set radio on) DOELSE (set radio off)
+define di_radio DOIF ([08:00-10:00|0]) (set radio on) DOELSE (set radio off)
Nur montags, mittwochs und freitags:
@@ -1254,10 +1477,6 @@ Nur am Wochenende bzw. an Feiertagen lt. holiday-Datei (7 entspricht $we):
define di_radio DOIF ([08:00-10:00|7]) (set radio on) DOELSE (set radio off)
-Nur an Arbeitstagen (8 ist das Gegenteil von 7, entspricht !$we):
-
-define di_radio DOIF ([08:00-10:00|8]) (set radio on) DOELSE (set radio off)
-
Zeitintervalle über Mitternacht:
define di_light DOIF ([22:00-07:00]) (set light on) DOELSE (set light off)
@@ -1279,7 +1498,7 @@ Schalten mit Zeitfunktionen, hier: bei Sonnenaufgang und Sonnenuntergang:
Indirekten Zeitangaben
Oft möchte man keine festen Zeiten im Modul angeben, sondern Zeiten, die man z. B. über Dummys über die Weboberfläche verändern kann.
-Statt fester Zeitangaben können Stati, Readings oder Internals angegeben werden. Diese müssen eine Zeitangabe im Format HH:MM oder HH:MM:SS beinhalten.
+Statt fester Zeitangaben können Stati, Readings oder Internals angegeben werden. Diese müssen eine Zeitangabe im Format HH:MM oder HH:MM:SS oder eine Zahl beinhalten.
Anwendungsbeispiel: Lampe soll zu einer bestimmten Zeit eingeschaltet werden. Die Zeit soll über den Dummy time einstellbar sein:
@@ -1287,6 +1506,12 @@ Statt fester Zeitangaben können Stati, Readings oder Internals angegeben werden
set time 08:00
define di_time DOIF ([[time]])(set lamp on)
+Ebenfalls kann das Dummy mit einer Sekundenzahl belegt werden, oder als indirekte Zeit angegeben werden, hier z. B. schalten alle 300 Sekunden:
+
+define time dummy
+set time 300
+define di_time DOIF ([+[time]])(save)
+
Ebenfalls funktionieren indirekte Zeitangaben mit Zeitintervallen. Hier wird die Ein- und Ausschaltzeit jeweils über einen Dummy bestimmt:
define begin dummy
@@ -1313,6 +1538,47 @@ Indirekte Zeitangaben lassen sich mit Wochentagangaben kombinieren, z. B.:
define di_time DOIF ([[begin]-[end]|7]) (set radio on) DOELSE (set radio off)
+Zeitsteuerung mit Zeitberechnung
+
+Zeitberechnungen werden innerhalb der eckigen Klammern zusätzlich in runde Klammern gesetzt. Die berechneten Triggerzeiten können absolut oder relativ mit einem Pluszeichen vor den runden Klammern angegeben werden.
+Es können beliebige Ausdrücke der Form HH:MM und Angaben in Sekunden als ganze Zahl in Perl-Rechenoperationen kombiniert werden.
+Perlfunktionen, wie z. B. sunset(), die eine Zeitangabe in HH:MM liefern, werden in geschweifte Klammern gesetzt.
+Zeiten im Format HH:MM bzw. Stati oder Readings, die Zeitangaben in dieser Form beinhalten werden in eckige Klammern gesetzt.
+
+Anwendungsbeispiele:
+
+Lampe wird nach Sonnenuntergang zwischen 900 und 1500 (900+600) Sekunden zufällig zeitverzögert eingeschaltet. Ausgeschaltet wird die Lampe nach 23:00 Uhr um bis zu 600 Sekunden zufällig verzögert:
+
+define di_light DOIF ([({sunset()}+300+int(rand(600)))])
+ (set lamp on)
+DOELSEIF ([([23:00]+int(rand(600)))])
+ (set lamp off)
+
+Zeitberechnung können ebenfalls in Zeitintervallen genutzt werden.
+
+Licht soll eine Stunde vor gegebener Zeit eingeschaltet werden und eine Stunde danach wieder ausgehen:
+
+define Fixtime dummy
+set Fixtime 20:00
+
+define di_light DOIF ([([Fixtime]-[01:00]) - ([Fixtime]+[01:00])])
+ (set lampe on)
+DOELSE
+ (set lampe off)
+
+
+Hier das Gleiche wie oben, zusätzlich mit Zufallsverzögerung von 300 Sekunden und nur an Wochenenden:
+
+define di_light DOIF ([([Fixtime]-[01:00]-int(rand(300))) - ([Fixtime]+[01:00]+int(rand(300)))]|7])
+ (set lampe on)
+DOELSE
+ (set lampe off)
+
+
+Ein Änderung des Dummys Fixtime z. B. durch "set Fixtime ...", führt zur sofortiger Neuberechnung der Timer im DOIF-Modul.
+
+Für die Zeitberechnung wird der Perlinterpreter benutzt, daher sind für die Berechnung der Zeit keine Grenzen gesetzt.
+
Kombination von Ereignis- und Zeitsteuerung mit logischen Abfragen
Anwendungsbeispiel: Lampe soll ab 6:00 Uhr angehen, wenn es dunkel ist und wieder ausgehen, wenn es hell wird, spätestens aber um 9:00 Uhr:
@@ -1378,14 +1644,6 @@ Eine erneute Benachrichtigung wird erst wieder ausgelöst, wenn zwischendurch de
define di_shutters DOIF ([Sun] eq "on") (set shutters down) DOELSE (set shutters up)
attr di_shutters wait 1200:1200
-Anwendungsbeispiel: Rolladen nach Sonnenuntergang mit Zufallsverzögerung von 10 bis 20 Minuten herunterfahren:
-
-define di_shutters DOIF ([{sunset_abs()}]) (set shutters down, attr di_shutters wait {(600+int(rand(600)))})
-attr di_shutters do always
-attr di_shutters wait 600
-
-Hier wird der wait-timer per wait-Attribut für die nächste Ausführung per Zufall vorbereitet.
-
Anwendungsbeispiel: Beschattungssteuerung abhängig von der Temperatur. Der Rollladen soll runter von 11:00 Uhr bis Sonnenuntergang, wenn die Temperatur über 26 Grad ist. Temperaturschwankungen um 26 Grad werden mit Hilfe des wait-Attributes durch eine 15 minutige Verzögerung ausgeglichen.
define di_shutters DOIF ([sensor:temperature] > 26 and [11:00-{sunset_abs()}] (set shutters down) DOELSE (set shutters up)
@@ -1586,13 +1844,6 @@ attr di_light do always
müssen mit Attribut do always definiert werden, damit sie nicht nur einmal, sondern jedes mal (hier jeden Tag) ausgeführt werden.
-Bei der Angabe von zyklisch sendenden Sensoren (Temperatur, Feuchtigkeit, Helligkeit usw.) wie z. B.:
-
-define di_heating DOIF ([sens:temperature] < 20)(set heating on)
-
-ist die Nutzung des Attributes do always nicht sinnvoll, da das entsprechende Kommando hier: "set heating on" jedes mal ausgeführt wird,
-wenn der Temperatursensor in regelmäßigen Abständen eine Temperatur unter 20 Grad sendet.
-
Rekursionen vermeiden
Das Verändern des Status eines Devices z. B. durch set-Befehl, welches in der Bedingung bereits vorkommt, würde das Modul erneut triggern.