DOIF: Triggerproblem

[Spartacus]

Hallo,
ich habe hier folgendes DOIF aufgebaut:

Code Auswählen Erweitern

nternals:
   CFGFN      config/05-Garten.cfg
   DEF        ([16:30-{OffTimeLicht()}] and
[state.TW.Tageslicht.dum] eq "dunkel" and
[?state.TW.Tageslicht.dum:SU] lt {TimeOffset (OffTimeLicht(),'-30')})
(set GA.ss.SA.Licht on)
DOELSE
(set GA.ss.SA.Licht off)
   NAME       di.01.GA.ss.SA.Licht
   NR         498
   NTFY_ORDER 50-di.01.GA.ss.SA.Licht
   STATE      on
   TYPE       DOIF
   Readings:
     2015-02-23 18:03:07   cmd_event       state.TW.Tageslicht.dum
     2015-02-23 18:03:07   cmd_nr          1
     2015-02-23 18:03:07   e_state.TW.Tageslicht.dum_STATE dunkel
     2015-02-23 18:03:07   state           on
     2015-02-23 16:30:00   timer_1_c1      24.02.2015 16:30:00
     2015-02-22 22:00:00   timer_2_c1      23.02.2015 22:00:00
   Condition:
     0          DOIF_time($hash->{realtime}{0},$hash->{realtime}{1},$wday,$hms,"") and  InternalDoIf('state.TW.Tageslicht.dum','STATE','') eq "dunkel" and  ReadingValDoIf('state.TW.Tageslicht.dum','SU','') lt {TimeOffset (OffTimeLicht(),'-30')}
   Days:
   Devices:
     0           state.TW.Tageslicht.dum
     all         state.TW.Tageslicht.dum
   Do:
     0          set GA.ss.SA.Licht on
     1          set GA.ss.SA.Licht off
   Helper:
     last_timer 2
     sleeptimer -1
   Internals:
     0           state.TW.Tageslicht.dum:STATE
     all         state.TW.Tageslicht.dum:STATE
   Readings:
   Realtime:
     0          16:30:00
     1          22:00:00
   State:
   Time:
     0          16:30:00
     1          {OffTimeLicht()}
   Timecond:
     0          0
     1          0
   Timer:
     0          0
     1          0
   Timerfunc:
   Timers:
     0           0  1
   Trigger:
Attributes:
   alias      autom. Gartenlicht
   cmdState   on|off
   devStateIcon .*on:light_light_dim_100@lightgreen .*off:light_light_dim_00@red
   do         always
   group      Scripte
   room       05-Garten
   sortby     01
Getriggert wird hier jeweils um 16:30 und um die Zeit, die in der SUB "OffTimeLicht" berechnet wird. Dass heißt, meine Offtime basiert immer auf den Berechnungen des Vortages. (Timer2 ist von gestern 22:00). Das ist aber schlecht, da ich mit dem Trigger der Einschaltzeit eigentlich auch die aktuelle Ausschaltzeit benötige. gibt es hier eine Methode, wie ich das realisieren kann?
Spartacus

[Spartacus]

Hi,
ich habe nun versucht, die Berechnung der OffTimeLicht in dem Trigger um 16:30 zu berechnen und in einer Variablen zu speichern. my $OffTime= OfftimeLicht() um dann einen Trigger für die Ausschaltzeit zu generieren.

Code Auswählen Erweitern

([16:30] {my $OffTime= OfftimeLicht()}) (set Aktor on)
DOELSEIF
([$OffTime)]) (set Aktor off)
Aber diese Logik funzt nicht! Offenbar kann man auf diese variable Zeit nicht triggern!

Hat jemand eine Idee?
Christian

[flurin]

Hi,
ich habe nun versucht, die Berechnung der OffTimeLicht in dem Trigger um 16:30 zu berechnen und in einer Variablen zu speichern. my $OffTime= OfftimeLicht() um dann einen Trigger für die Ausschaltzeit zu generieren.

Code Auswählen Erweitern

([16:30] {my $OffTime= OfftimeLicht()}) (set Aktor on)
DOELSEIF
([$OffTime)]) (set Aktor off)
Aber diese Logik funzt nicht! Offenbar kann man auf diese variable Zeit nicht triggern!

Hat jemand eine Idee?
Christian

Wie sieht OfftimeLicht() aus?

Ich würde die Zeitangabe ganz in der perl-fuction berechen, sodass der Returnwert wie folgt aussieht:

Code Auswählen Erweitern

hh:mm-hh:mm

und DOIF Define:

Code Auswählen Erweitern

([{TimeLicht()}]) (set Aktor on) DOELSE (set Aktor off)

[Spartacus]

Hallo flurin,
das ist ein guter Tipp! Vielen Dank! Allerdings nutze ich die Routine noch dazu um die Schaltschwelle für das Ausschalten einzustellen.

Die Sub TimeOffset ist geklaut und subtrahiert 30min von der Ausschaltzeit. Das soll im Sommer verhindern (?state.TW.Tageslicht.dum:SU=> Zeit des Sonnenuntergangs), dass die Einschaltzeit mindestens 30min vor der Ausschaltzeit liegt um ein zu kurzes Einschalten des Aktors zu vermeiden. Etwas Besseres ist mir hier nicht eingefallen. Wenn ich jetzt in meiner Zeitberechnung "TimeOffLicht" [Start-Ende] zurückgebe, funktioniert mein Offset nicht mehr, oder?

DOIF:

Code Auswählen Erweitern

([16:30-{OffTimeLicht()}] and
[state.TW.Tageslicht.dum] eq "dunkel" and
[?state.TW.Tageslicht.dum:SU] lt {TimeOffset (OffTimeLicht(),'-30')})
(set GA.ss.SA.Licht on)
DOELSE
(set GA.ss.SA.Licht off)

SUB OffTimeLicht:

Code Auswählen Erweitern

sub OffTimeLicht ()
{
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

if (ReadingsVal("hl.01.Feiertag","today","") =~ m/Silvester/)
{
  return ("02:30:00")
}
elsif ((ReadingsVal("hl.01.Feiertag","tomorrow","")=~ m/none/) && ($wday =~ m/[01234]/))
{
  return ("22:00:00")
}
elsif ((ReadingsVal("hl.01.Feiertag","tomorrow","") !~ m/none/) || ($wday =~ m/[56]/))
{
  return ("23:00:00")
}
}

SUB TimeOffset:

Code Auswählen Erweitern

sub TimeOffset($;$)

{
    my $PtimeOrg = shift;
    my $Poffset = shift;

    $PtimeOrg = "" unless(defined($PtimeOrg));
    $Poffset  = 0  unless(defined($Poffset));
    my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime;

    if ($PtimeOrg !~ /[0-2][0-9]:[0-5][0-9]/ or substr($PtimeOrg,0,2) >= 24) {$PtimeOrg = $hour.":".$min;}

    my $TimeP     = mktime(0,substr($PtimeOrg,3,2),substr($PtimeOrg,0,2),$mday,$month,$year,$wday,$yday,$isdst);
    my $TimePM    = $TimeP + $Poffset * 60;
    my ($Psec,$Pmin,$Phour,$Pmday,$Pmonth,$Pyear,$Pwday,$Pyday,$Pisdst) = localtime($TimePM);
    my $ReturnText = sprintf("%02d:%02d", $Phour, $Pmin);
}
Gruß,
Christian

[flurin]

Versuchs mal so:

Code Auswählen Erweitern

sub OffTimeLicht ($)
{
my ($start_time) = @_;
my $ret;
 
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

if (ReadingsVal("hl.01.Feiertag","today","") =~ m/Silvester/)
{
  $ret = "02:30";
}
elsif ((ReadingsVal("hl.01.Feiertag","tomorrow","")=~ m/none/) && ($wday =~ m/[01234]/))
{
  $ret = "22:00";
}
elsif ((ReadingsVal("hl.01.Feiertag","tomorrow","") !~ m/none/) || ($wday =~ m/[56]/))
{
  $ret = "23:00";
}

if (defined($start_time)) {
  $ret = $start_time."-".$ret;
}

return $ret;
}

und

Code Auswählen Erweitern

([{OffTimeLicht("16:30")}] and
[state.TW.Tageslicht.dum] eq "dunkel" and
[?state.TW.Tageslicht.dum:SU] lt {TimeOffset (OffTimeLicht(""),'-30')})
(set GA.ss.SA.Licht on)
DOELSE
(set GA.ss.SA.Licht off)

ungetestet!

[Spartacus]

Hallo flurin,
Nicht schlecht! Das hätte ich im Leben nicht hingekriegt! Wenn ich die Sub ohne Startzeit aufrufe, dann soll die Endzeit zurückgegeben werden.

Der Aufruf von

Code Auswählen Erweitern

{OffTimeLicht("16:30")} liefert mir nun den kompletten String!
16:30-22:00. Das ist perfekt!

Der Aufruf 

Code Auswählen Erweitern

{OffTimeLicht("")} liefert mir "-22:00". Müsste hier nicht nur "22:00" ausgegeben werden? Sorry, ich verstehe nicht genau, was der Code hier macht!

Code Auswählen Erweitern

if (defined($start_time)) {
  $ret = $start_time."-".$ret;

Christian

[flurin]

Der Aufruf 

Code Auswählen Erweitern

{OffTimeLicht("")} liefert mir "-22:00". Müsste hier nicht nur "22:00" ausgegeben werden? Sorry, ich verstehe nicht genau, was der Code hier macht!

Code Auswählen Erweitern

if (defined($start_time)) {
  $ret = $start_time."-".$ret;

OK, ändere diesen Code wie folgt:

Code Auswählen Erweitern

if ($start_time ne "") {
  $ret = $start_time."-".$ret;
}

[Spartacus]

Hallo,
es funzt! Du setzt die Startzeit in diesem Code zusammen;

Code Auswählen Erweitern

$ret = $start_time."-".$ret;
"Übergabeparameter" - "berechnete EndeZeit".

Danke,
jetzt habe ich es gerafft!
Christian.

[Spartacus]

uups!
zu früh gefreut! Das DOIF scheint es nicht zu fressen!

Code Auswählen Erweitern

di.01.GA.ss.SA.Licht DOIF: the at function "OffTimeLicht("16:30")" must return a timespec and not 16:30 - 22:00.: {OffTimeLicht("16:30")}

Das heißt, die Rückgabe wird nicht als Zeit interpretiert, oder?
Christian

[flurin]

Gemäss Dokumentation

Code Auswählen Erweitern

+ Zeitangaben in der Bedingung: [HH:MM:SS] oder [HH:MM] oder [{<perl-function>}]
+ Zeitintervalle: [<begin>-<end>] für <begin> bzw. <end> kann das obige Zeitformat gewählt werden

hätte eigentlich Deine ursprüngliche Fassung funktionieren müssen.

Ich bin nicht sicher ob, es nur so geht:

Code Auswählen Erweitern

[HH:MM-HH:MM]

aber so nicht:

Code Auswählen Erweitern

[HH:MM-{<perl-function>}]


Ev. kann Damian hier weiterhelfen.

[Damian]

Gemäss Dokumentation

Code Auswählen Erweitern

+ Zeitangaben in der Bedingung: [HH:MM:SS] oder [HH:MM] oder [{<perl-function>}]
+ Zeitintervalle: [<begin>-<end>] für <begin> bzw. <end> kann das obige Zeitformat gewählt werden

hätte eigentlich Deine ursprüngliche Fassung funktionieren müssen.

Ich bin nicht sicher ob, es nur so geht:

Code Auswählen Erweitern

[HH:MM-HH:MM]

aber so nicht:

Code Auswählen Erweitern

[06:30-{<perl-function>}]


Ev. kann Damian hier weiterhelfen.

lt. der zitierten Doku geht:

[HH:MM-HH:MM]

oder

[{perl-fkt}-HH:MM]

oder

[HH:MM-{perl-fkt}]

oder

[{perl-fkt}-{perl-fkt}]

statt HH:MM kann überall auch HH:MM:SS stehen.

perl-fkt, die "HH:MM-HH:MM" liefert, geht nicht, ist auch nicht mit der obigen Doku konform.

Gruß

Damian

[flurin]

perl-fkt, die "HH:MM-HH:MM" liefert, geht nicht, ist auch nicht mit der obigen Doku konform.

Gruß

Damian

OK, Danke!
Es wäre aber schön, wenn es gehen würde 

Ich nehme an, dass sowas auch kein Problem ist:

Code Auswählen Erweitern

[HH:MM-HH:MM:SS]

Gruss
flurin

[Damian]

OK, Danke!
Es wäre aber schön, wenn es gehen würde 

Die Zeitfunktion wird nicht von DOIF ausgewertet, sondern ist eine Funktion aus fhem.pl, die auch at benutzt. Daher eine andere Baustelle

Gruß

Damian

[Spartacus]

Hallo zusammen,
dann funktioniert der Ansatz nicht! Das heißt, die "bis"-Zeit kann nicht beim Trigger auf die "Start"-Zeit berechnet werden! Ich hatte gehofft, es gäbe eine Lösung für dieses Problem!
Schade!

Christian

[Damian]

Hallo zusammen,
dann funktioniert der Ansatz nicht! Das heißt, die "bis"-Zeit kann nicht beim Trigger auf die "Start"-Zeit berechnet werden! Ich hatte gehofft, es gäbe eine Lösung für dieses Problem!
Schade!

Christian

Wenn deine Ausschaltzeit abhängig ist von der Einschaltzeit, dann ist doch der Ansatz:

[Einschaltzeit-{timeroff("Einschaltzeit")}]


Gruß

Damian