do always selektiv verwenden?

[FHEMAN]

Hallo,

ich habe ein Beschattungs-DOIF mit 3 Bedingungen - grundsätzlich:

• cmd_1=Rollos runter (und hoch) bei Sonne, Sonnenwinkel etc.
• cmd_2=Alle Rollos hoch, wenn keine Sonne
• cmd_3=doelse()

Dabei möchte ich, dass do always nur bei Bedingung 1 immer wieder den Ausführungsteil durchgeht. Da sonst nachts alle 3 Min. unnötig Traffic stattfindet durch den Temperatursensor bei CMD_2.
Kann ich das konfigurieren?
Oder muss ich das aktuelle CMD im Ausführungsteil abfragen?

Code Auswählen Erweitern


if ("[$SELF:cmd,0]" eq "2") {
return;
}

Ich vermute, es gibt eine elegantere Lösung?

cmd_2 in cmd_1 integrieren kann ich vermutlich schlecht, weil sonst der Temperatursensor nicht triggert bzw. nur mittels Abfragewert, der immer true ist?

Viele Grüße
Ronny

List vom DOIF

Code Auswählen Erweitern

Internals:
   DEF        ([?isDay:state] eq "on" and [TempDiffSen.01:T2_T1] >= 2.5 and [Twilight:compasspointEx] =~ "north|east|south|west" and [?TempDiffSen.01:Aussentemperatur,0] > 10 and [?proplanta:fc0_tempMax,0] > 17 and [?proplanta:fc0_tempMin,0] > 10 and [?proplanta:fc0_sun,20] >= 20) (
{
my @DirUp = ("NORD","OST","SUED","WEST");
my @DirDown;
my $CompassPoint = "[Twilight:compasspointEx]";
my $waitUp =("[$SELF:cmd_event,0]" eq "TempDiffSen.01") ? AttrVal("$SELF", "waitUp", 0) : 0;
my $waitDown = (("[$SELF:cmd_event,0]" eq "TempDiffSen.01") || (ReadingsVal("TempDiffSen.01", "Aussentemperatur", 23) >= 23) || (ReadingsVal("Wandthermostat.3.Weather", "temperature", 23.5) >= 23.5) || (ReadingsVal("Wandthermostat.2.Weather", "temperature", 23.5) >= 23.5)) ? 90 : AttrVal("$SELF", "waitDown", 0);
if ($CompassPoint=~"north") {
push @DirDown, "NORD";
@DirUp = grep(!/NORD/, @DirUp);
}
if ($CompassPoint=~"east") {
push @DirDown, "OST";
@DirUp = grep(!/OST/, @DirUp);
}
if ($CompassPoint=~"south") {
push @DirDown, "SUED";
@DirUp = grep(!/SUED/, @DirUp);
}
if ($CompassPoint=~"west") {
push @DirDown, "WEST";
@DirUp = grep(!/WEST/, @DirUp);
}
my $RollosDirDown = join ("|",@DirDown);
my $RollosDirUp = join ("|",@DirUp);
my $FILTER1 = (Value("notify.Autobeschattung.Switch.Rollos") ne "active") ? ":FILTER=Beschattung!=1.*" : "";
my $FILTER0 = (Value("notify.Autobeschattung.Switch.Rollos") ne "active") ? ":FILTER=Beschattung!=0.*" : "";
fhem("setreading NAME=Rollos.($RollosDirDown)$FILTER1 Beschattung 1,$waitDown");
fhem("setreading NAME=Rollos.($RollosDirUp)$FILTER0 Beschattung 0,$waitUp");
fhem("setreading NAME=Rollo.(E|O)G.*:FILTER=Himmelsrichtung=($RollosDirDown)$FILTER1 Beschattung 1");
fhem("setreading NAME=Rollo.(E|O)G.*:FILTER=Himmelsrichtung=($RollosDirUp)$FILTER0 Beschattung 0");
$RollosDirDown = ($RollosDirDown) ? $RollosDirDown : "0";
fhem("setreading doif.Autobeschattung Beschattung $RollosDirDown");
}
) DOELSEIF ([?isDay:state] eq "off" or [TempDiffSen.01:T2_T1]<2.5) (
{
if ("[$SELF:cmd,0]" eq "2") {
return;
}
my $waitUp = ("[$SELF:cmd_event,0]" eq "TempDiffSen.01") ? AttrVal("$SELF", "waitUp", 0) : 0;
my $FILTER0 = (Value("notify.Autobeschattung.Switch.Rollos") ne "active") ? ":FILTER=Beschattung!=0.*" : "";
fhem("setreading NAME=Rollos.(NORD|OST|SUED|WEST)$FILTER0 Beschattung 0,$waitUp");
fhem("setreading NAME=Rollo.(E|O)G.*$FILTER0 Beschattung 0");
fhem("setreading doif.Autobeschattung Beschattung 0");
}
) DOELSE()
   FUUID      5c5a08ea-f33f-6078-1036-bfb79dd58b81e9a4
   MODEL      FHEM
   NAME       doif.Autobeschattung
   NOTIFYDEV  global,TempDiffSen.01,Twilight
   NR         538
   NTFY_ORDER 50-doif.Autobeschattung
   STATE      0 (enabled)
   TYPE       DOIF
   VERSION    22764 2020-09-12 20:06:36
   READINGS:
     2020-10-27 23:30:19   Beschattung     0
     2020-10-27 23:32:55   Device          TempDiffSen.01
     2020-10-27 23:32:55   cmd             2
     2020-10-27 23:32:55   cmd_event       TempDiffSen.01
     2020-10-27 23:32:55   cmd_nr          2
     2020-10-27 23:32:55   e_TempDiffSen.01_T2_T1 0.2
     2020-10-27 23:27:48   e_Twilight_compasspointEx unknown
     2020-10-27 23:09:57   mode            enabled
     2020-10-27 23:32:55   state           cmd_2
   Regex:
     accu:
     cond:
       TempDiffSen.01:
         0:
           T2_T1      ^TempDiffSen.01$:^T2_T1:
         1:
           T2_T1      ^TempDiffSen.01$:^T2_T1:
       Twilight:
         0:
           compasspointEx ^Twilight$:^compasspointEx:
         1:
   attr:
     cmdState:
     wait:
     waitdel:
   condition:
     0          ::ReadingValDoIf($hash,'isDay','state') eq "on" and ::ReadingValDoIf($hash,'TempDiffSen.01','T2_T1') >= 2.5 and ::ReadingValDoIf($hash,'Twilight','compasspointEx') =~ "north|east|south|west" and ::ReadingValDoIf($hash,'TempDiffSen.01','Aussentemperatur','0') > 10 and ::ReadingValDoIf($hash,'proplanta','fc0_tempMax','0') > 17 and ::ReadingValDoIf($hash,'proplanta','fc0_tempMin','0') > 10 and ::ReadingValDoIf($hash,'proplanta','fc0_sun','20') >= 20
     1          ::ReadingValDoIf($hash,'isDay','state') eq "off" or ::ReadingValDoIf($hash,'TempDiffSen.01','T2_T1')<2.5
   do:
     0:
       0            { my @DirUp = ("NORD","OST","SUED","WEST"); my @DirDown; my $CompassPoint = "[Twilight:compasspointEx]"; my $waitUp =("[doif.Autobeschattung:cmd_event,0]" eq "TempDiffSen.01") ? AttrVal("doif.Autobeschattung", "waitUp", 0) : 0; my $waitDown = (("[doif.Autobeschattung:cmd_event,0]" eq "TempDiffSen.01") || (ReadingsVal("TempDiffSen.01", "Aussentemperatur", 23) >= 23) || (ReadingsVal("Wandthermostat.3.Weather", "temperature", 23.5) >= 23.5) || (ReadingsVal("Wandthermostat.2.Weather", "temperature", 23.5) >= 23.5)) ? 90 : AttrVal("doif.Autobeschattung", "waitDown", 0); if ($CompassPoint=~"north") { push @DirDown, "NORD"; @DirUp = grep(!/NORD/, @DirUp); }  if ($CompassPoint=~"east") { push @DirDown, "OST"; @DirUp = grep(!/OST/, @DirUp); } if ($CompassPoint=~"south") { push @DirDown, "SUED"; @DirUp = grep(!/SUED/, @DirUp); }  if ($CompassPoint=~"west") { push @DirDown, "WEST"; @DirUp = grep(!/WEST/, @DirUp); } my $RollosDirDown = join ("|",@DirDown); my $RollosDirUp = join ("|",@DirUp); my $FILTER1 = (Value("notify.Autobeschattung.Switch.Rollos") ne "active") ? ":FILTER=Beschattung!=1.*" : ""; my $FILTER0 = (Value("notify.Autobeschattung.Switch.Rollos") ne "active") ? ":FILTER=Beschattung!=0.*" : ""; fhem("setreading NAME=Rollos.($RollosDirDown)$FILTER1 Beschattung 1,$waitDown"); fhem("setreading NAME=Rollos.($RollosDirUp)$FILTER0 Beschattung 0,$waitUp"); fhem("setreading NAME=Rollo.(E|O)G.*:FILTER=Himmelsrichtung=($RollosDirDown)$FILTER1 Beschattung 1"); fhem("setreading NAME=Rollo.(E|O)G.*:FILTER=Himmelsrichtung=($RollosDirUp)$FILTER0 Beschattung 0"); $RollosDirDown = ($RollosDirDown) ? $RollosDirDown : "0"; fhem("setreading doif.Autobeschattung Beschattung $RollosDirDown"); }
     1:
       0            { if ("[doif.Autobeschattung:cmd,0]" eq "2") { return; } my $waitUp = ("[doif.Autobeschattung:cmd_event,0]" eq "TempDiffSen.01") ? AttrVal("doif.Autobeschattung", "waitUp", 0) : 0; my $FILTER0 = (Value("notify.Autobeschattung.Switch.Rollos") ne "active") ? ":FILTER=Beschattung!=0.*" : ""; fhem("setreading NAME=Rollos.(NORD|OST|SUED|WEST)$FILTER0 Beschattung 0,$waitUp"); fhem("setreading NAME=Rollo.(E|O)G.*$FILTER0 Beschattung 0"); fhem("setreading doif.Autobeschattung Beschattung 0"); }
     2:
       0         
   helper:
     DEVFILTER  ^global$|^Twilight$|^TempDiffSen.01$
     NOTIFYDEV  global|Twilight|TempDiffSen.01
     event      Aussentemperatur: 8.6,T2_T1: 0.2
     globalinit 1
     last_timer 0
     sleeptimer -1
     timerdev   TempDiffSen.01
     timerevent Aussentemperatur: 8.6,T2_T1: 0.2
     triggerDev TempDiffSen.01
     DOIF_eventa:
       cmd_nr: 2
       cmd: 2
       cmd_event: TempDiffSen.01
       cmd_2
     DOIF_eventas:
       cmd_nr: 2
       cmd: 2
       cmd_event: TempDiffSen.01
       state: cmd_2
     timerevents:
       Aussentemperatur: 8.6
       T2_T1: 0.2
     timereventsState:
       Aussentemperatur: 8.6
       T2_T1: 0.2
     triggerEvents:
       Aussentemperatur: 8.6
       T2_T1: 0.2
     triggerEventsState:
       Aussentemperatur: 8.6
       T2_T1: 0.2
   internals:
   readings:
     all         TempDiffSen.01:T2_T1 Twilight:compasspointEx
   trigger:
   uiState:
   uiTable:
Attributes:
   alias      Autobeschattung DOIF
   do         always
   event-on-change-reading .*
   group      Rollos
   room       Klima,Rollos
   stateFormat Beschattung (mode)
   userattr   waitUp waitDown
   verbose    1
   waitDown   600
   waitUp     1800

[Per]

Weil noch keiner geantwortet hat...

Kann ich das konfigurieren?
Oder muss ich das aktuelle CMD im Ausführungsteil abfragen?

Code Auswählen Erweitern


if ("[$SELF:cmd,0]" eq "2") {
return;
}

Ich vermute, es gibt eine elegantere Lösung?

Ob eleganter weiss ich nicht, aber du kannst im Zweit 2 abfragen, ob es noch nicht Zweig 2 ist.

Code Auswählen Erweitern

DOELSEIF ([$SELF.cmd]<>2 and...
Dann kannst du do always lassen. Auf DOELSE musst du aber verzichten, sonst wechselt der Zustand zwischen 2 und 3. Oder du prüfst auf cmd < 2, da weiss ich nicht, ob deine Voraussetzungen das gergeben.

Bei deiner Menge Perl-Code kannst du aber bestimmt auch gleich in den Perl-Mode wechseln, das kennt kein eh do always.