define di_Modul DOIF ([Switch1] eq "on" and [Switch2] eq "on") | ## wenn Schalter 1 und Schalter 2 on ist |
(set lamp on) | ## wird Lampe eingeschaltet |
DOELSE | ## im sonst-Fall, also wenn einer der Schalter off ist |
(set lamp off) | ## wird die Lampe ausgeschaltet |
{ if ([Switch1] eq "on" and [Switch2] eq "on") { | ## wenn Schalter 1 und Schalter 2 on ist |
fhem_set "set lamp on" | ## wird Lampe eingeschaltet |
} elsif { | ## im sonst-Fall, also wenn einer der Schalter off ist |
fhem_set "lamp off" | ## wird die Lampe ausgeschaltet |
} | |
} |
==, !=, <, <=, >, >= bei Zahlen und mit eq, ne, lt, le, gt, ge, =~, !~ bei Zeichenketten angegeben.
+Vergleichende Abfragen werden in der Bedingung, mit Perl-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.
Status werden mit [<devicename>], Readings mit [<devicename>:<readingname>],
Internals mit [<devicename>:&<internal>] angegeben.define di_garage DOIF ([remotecontrol] eq "on") (set garage on) DOELSEIF ([remotecontrol] eq "off") (set garage off)attr di_garage do alwaysdo always wird hier dagegen erst wieder "set heating on" ausge
Soll bei Nicht-Erfüllung aller Bedingungen ein Zustandswechsel erfolgen, so muss man ein DOELSE am Ende der Definition anhängen. Ausnahme ist eine einzige Bedingung ohne do always, wie im obigen Beispiel,
hierbei wird intern ein virtuelles DOELSE angenommen, um bei Nicht-Erfüllung der Bedingung einen Zustandswechsel in cmd_2 zu provozieren, da sonst nur ein einziges Mal geschaltet werden könnte, da das Modul aus dem cmd_1-Zustand nicht mehr herauskäme.define di_heating DOIF {if ([sens:temperature] < 20) {if (Value("heating") ne "on") {fhem_set"heating on"}}}define di_garage DOIF ([remotecontrol] =~ "Long") (set garage on)
attr di_garage do alwaysdefine di_garage DOIF {if ([remotecontrol] =~ "Long") {fhem_set"garage on"}}=~, insbesondere in Verbindung mit regulären Ausdrücken, können in der Perl-Dokumentation nachgeschlagen werden.[<devicename>:"<regex>"]define di_garage DOIF ([remotecontrol:"on"]) (set garage on) DOELSEIF ([remotecontrol:"off"]) (set garage off)define di_garage DOIF {if ([remotecontrol:"on"]) {fhem_set"garage on"} elsif ([remotecontrol:"off"]) {fhem_set"garage off"}}define di_all_events DOIF ([""]) ({Log 3,"Events from device $DEVICE:$EVENTS"})
-
-attr di_all_events do always
-define di_window_open (["^window_:open"]) (set Pushover msg 'alarm' 'open windows $DEVICE' '' 2 'persistent' 30 3600)
-
attr di_window_open do alwaysdefine di_window_open {if (["^window_:open"]) {fhem_set"Pushover msg 'alarm' 'open windows $DEVICE' '' 2 'persistent' 30 3600"}}define di_air DOIF (["^window_contact_:open|tilted"]) (set {("$DEVICE"=~/^window_contact_(.*)/;"shutters_$1")} 10)
-
-attr di_air do alwaysset shutters_<postfix> 10 gestellt.
-In diesem Beispiel wird die Möglichkeit genutzt bei FHEM-Befehlen Perlcode innerhalb der Klammern {(...)} einzufügen. Siehe Berechnungen im Ausführungsteildefine di_battery DOIF ([":battery: low"] and [?$SELF:B_$DEVICE] ne "low")
- ({DebianMail('yourname@gmail.com', 'FHEM - battery warning from device: $DEVICE')}, setreading $SELF B_$DEVICE low)
-DOELSEIF ([":battery: ok"] and [?$SELF:B_$DEVICE] ne "ok")
- (setreading $SELF B_$DEVICE ok)
-
-attr di_battery do alwaysdefine di_warning DOIF ([":^temperature",0]< 0 and [06:00-09:00] ) (set pushmsg danger of frost)define di_warning DOIF ([":^temperature",0]< 0) (set pushmsg danger of frost $DEVICE)attr di_warning do alwaysdefine di_warning DOIF {if ([":^temperature",0]< 0) {fhem_set"pushmsg danger of frost $DEVICE}}...(set lamp on)define di_light DOIF ([08:00]) (set switch on) DOELSEIF ([10:00]) (set switch off)define di_light DOIF
+{[08:00];fhem_set"switch on"}
+{[10:00];fhem_set"switch on"}
+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)define di_light DOIF ([3600]) (set lamp on)define di_light DOIF
+{if ([08:00] or [10:00] or [20:00]) {fhem_set"switch on"}}
+{if ([09:00] or [11:00] or [00:00]) {fhem_set"switch off"}}define di_save DOIF ([+01:00]) (save)
attr di_save do alwaysdefine di_save DOIF {[+01:00];fhem"save"}}define di_save DOIF ([+3600]) (save)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 &")})
+Perl-Modus:define di_gong DOIF
+ {[:00];system"mplayer /opt/fhem/Sound/BigBen_00.mp3 -volume 90 −really−quiet &"}
+ {[:15];system"mplayer /opt/fhem/Sound/BigBen_15.mp3 -volume 90 −really−quiet &"}
+ {[:30];system"mplayer /opt/fhem/Sound/BigBen_30.mp3 -volume 90 −really−quiet &"}
+ {[:45];system"mplayer /opt/fhem/Sound/BigBen_45.mp3 -volume 90 −really−quiet &"}define di_gong DOIF ([+:15]) (set Gong_mp3 playTone 1)
attr di_gong do alwaysdefine di_gong DOIF {[+:15];fhem_set"Gong_mp3 playTone 1"}define di_gong DOIF ([+[2]:05]) (set pump on-for-timer 300)
attr di_gong do alwaysdefine di_gong DOIF {[+[2]:05];set_fhem"pump on-for-timer 300"}di_mydoif attr weekdays Son,Mon,Die,Mit,Don,Fre,Sam,Wochenende,A
Anwendungsbeispiel: Radio soll am Wochenende und an Feiertagen um 08:30 Uhr eingeschaltet und um 09:30 Uhr ausgeschaltet werden. Am Montag und Mittwoch soll das Radio um 06:30 Uhr eingeschaltet und um 07:30 Uhr ausgeschaltet werden. Hier mit englischen Bezeichnern:
define di_radio DOIF ([06:30|Mo We] or [08:30|WE]) (set radio on) DOELSEIF ([07:30|Mo We] or [09:30|WE]) (set radio off)
+attr di_radio weekdays Su,Mo,Tu,We,Th,Fr,Sa,WE,WD
+Perl-Modus:
+define di_radio DOIF
+{if ([06:30|Mo We] or [08:30|WE]) {fhem_set"radio on"}}
+{if ([07:30|Mo We] or [09:30|WE]) {fhem_set"radio off"}}
attr di_radio weekdays Su,Mo,Tu,We,Th,Fr,Sa,WE,WD
Bemerkung: Es ist unerheblich wie die definierten Wochenttagbezeichner beim Timer angegeben werden. Sie können mit beliebigen Trennzeichen oder ohne Trennzeichen direkt aneinander angegeben werden.
@@ -4195,7 +4206,12 @@ Anstatt einer direkten Wochentagangabe, kann ein Status oder Reading in eckigen
set myweekday monday wednesday thursday weekend
define di_radio DOIF ([06:30|[myweekday]]) (set radio on) DOELSEIF ([07:30|[myweekday]]) (set radio off)
+attr di_radio weekdays sunday,monday,thuesday,wednesday,thursday,friday,saturday,weekend,workdaysdefine di_radio DOIF
+{[06:30|[myweekday]];fhem_set"radio on"}
+{[07:30|[myweekday]];fhem_set"radio off"}
attr di_radio weekdays sunday,monday,thuesday,wednesday,thursday,friday,saturday,weekend,workdaysdefine di_radio DOIF ([08:00-10:00]) (set radio on) DOELSE (set radio off) define di_radio DOIF {if ([08:00-10:00]) {fhem_set"radio on"} else {fhem_set"radio off"}}define di_radio DOIF ([08:00-10:00] or [20:00-22:00]) (set radio on) DOELSE (set radio off) define di_radio DOIF ([08:00-10:00|0]) (set radio on) DOELSE (set radio off) define di_radio DOIF {if ([08:00-10:00] or [20:00-22:00]) {fhem_set"radio on"} else {fhem_set"radio off"}}define di_light DOIF ([22:00|5]) (set light on) DOELSEIF ([10:00|1]) (set light off) define di_light DOIF
+{[22:00|5];fhem_set"light on"}
+{[10:00|1];fhem_set"light off"}define di_light DOIF ([{sunrise(900,"06:00","08:00")}]) (set outdoorlight off) DOELSEIF ([{sunset(900,"17:00","21:00")}]) (set outdoorlight on)define di_light DOIF
+{[{sunrise(900,"06:00","08:00")}];fhem_set"outdoorlight off"}
+{[{sunset(900,"17:00","21:00")}];fhem_set"outdoorlight on"}define time dummy
set time 08:00
+
define di_time DOIF ([[time]])(set lamp on)
attr di_time do alwaysdefine di_time DOIF {[[time]];fhem_set"lamp on"}set time {sunset()}define time dummy
set time 300
-define di_time DOIF ([+[time]])(save)define di_time DOIF {[+[time]];fhem"save"}define di_time DOIF {if([[begin]-[end]]) {fhem_set"radio on"} else {fhem_set"radio off"}}define di_time DOIF ([{sunrise(0,"[begin]","09:00")}-{sunset(0,"18:00","[end]")}]) (set lamp off) DOELSE (set lamp on) define di_time DOIF ([[myTwilight:ss_weather]])(set lamp on)attr di_timer do alwaysOffTime(), bestimmt werden. begin und end sind Dummys, wie oben definiert:define di_time DOIF ([[begin]-[end]]) (set lamp on, set end {(OffTime("[begin]"))}) DOELSE (set lamp off)define di_time DOIF {[[myTwilight:ss_weather]];fhem_set"lamp on"}define di_time DOIF ([[begin]-[end]|7]) (set radio on) DOELSE (set radio off)define di_time DOIF {if ([[begin]-[end]|7]) {fhem_set"radio on"} else {fhem_set"radio off"}}define di_light DOIF
+{[({sunset()}+900+int(rand(600)))];fhem_set"lamp on"}
+{[([23:00]+int(rand(600)))];;fhem_set"lamp off"}
+define di_pump DOIF ([08:00-22:00,+:30])(set pump on-for-timer 300)
attr di_pump do always define di_pump DOIF {[08:00-22:00,+:30];set_fhem"pump on-for-timer 300"}define di_rand_lamp DOIF ([{sunset()}-[end:state],+(rand(600)+900)|Sa So])(set lamp on-for-timer 300)
attr di_rand_lamp do alwaysdefine di_rand_lamp DOIF {[{sunset()}-[end:state],+(rand(600)+900)|Sa So];fhem_set"lamp on-for-timer 300"}define di_motion DOIF ([?06:00-10:00] and [button] and [?Home] eq "present")(set lamp on-for-timer 600)
attr di_motion do alwaysdefine di_motion DOIF {if ([?06:00-10:00] and [button] and [?Home] eq "present"){fhem_set"lamp on-for-timer 600"}}DOIF {Log 3,"State from FS: ".[FS:state]}DOIF {fhem("set lamp ".[FS:state])}fhem_set:DOIF {fhem_set("lamp ".[FS:state])}DOIF {set_State([FS:state])}DOIF {set_Reading("temperature",[livingroom:temperature])}DOIF {[08:00];fhem_set("lamp on")}DOIF {["FS:on"];fhem_set("lamp off")}state$_blockingcalls{<blocking call name>} = BlockingCall(<blocking function>, <argument>, <finish function>, <timeout>, <abort function>, <abort argument>) unless(defined($_blockingcalls{<blocking call name>}));$_blockingcalls{<blocking call name>} = ::BlockingCall(<blocking function>, <argument>, <finish function>, <timeout>, <abort function>, <abort argument>) unless(defined($_blockingcalls{<blocking call name>}));DOIF::<blocking function>