DOIF Zeitsteuerung

[Spartacus]

Hallo,
ich versuche gerade sämtliche DOIFs etwas zu verschlanken, da es damals viele Funktionen noch nicht gab. Ich habe auch mit dem Folgenden Konstrukt etwas rumgespielt, aber irgendwie bekomme ich keine Lösung an den Start, die funktioniert:

Hier mal die DOIF-Anweisung, die ich etwas einfacher machen möchte, da es nach langer Zeit sehr schwer ist, hier durchzusteigen!

Code Auswählen Erweitern

([16:30-[help.01.GA.ss.SA.Licht.dum]] and [help.Tageslicht.dum] eq "dunkel"
                                      and [?help.Tageslicht.dum:SU] lt TimeOffset (OffTimeLicht(),'-30')
                                      and [?switch.di.01.GA.ss.SA.Licht.dum] eq "on")
(set GA.ss.SA.Licht on, set help.01.GA.ss.SA.Licht.dum {(OffTimeLicht())})

getriggert wird zwischen 16:30 und einer  Ausschaltzeit "help.01.GA.ss.SA.Licht.dum", die über "set help.01.GA.ss.SA.Licht.dum {(OffTimeLicht()"  berechnet wird (siehe unten)

Die Dummy-Variable "help.Tageslicht.dum" stellt neben state "hell" und "dunkel" auch noch die Zeiten für Sonnenauf- und Untergang in Readings bereit (SA/SU).

Der Ausdruck  "and [?help.Tageslicht.dum:SU] lt TimeOffset (OffTimeLicht(),'-30')" verhindert, dass die Beleuchtung in den Sommermonaten nur eingeschaltet wird, wenn  zwischen Sonnenuntergang und Abschaltzeit (22:00 Uhr oder 23:00) mindestens 30min liegen (siehe unten)

Meine Abschaltzeiten habe ich schon mal versucht umzustellen, den vorher würde das einfach über "help.01.GA.ss.SA.Licht.dum" erledigt (mit Ausnahme der Silvester-Abschaltung)

Code Auswählen Erweitern

DOELSEIF
  (
    ([22:00|01234]  and  [?hl.01.Feiertag] eq "none") or
    ([23:00|59]     and  [?hl.01.Feiertag] ne "Silvester") or
    ([02:00]        and  [?hl.01.Feiertag] eq "Neujahr") and [?switch.di.01.GA.ss.SA.Licht.dum] eq "on")
  (set GA.ss.SA.Licht off)


OfftimeLicht:

Code Auswählen Erweitern

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

if ((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")
}
}
1;

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);}

Ob das überhaupt funktioniert, weiß ich noch nicht. Hat jemand eine Idee, wie man das Ganze etwas einfacher umbauen kann? Ich habe verstanden, dass DOIF inzwischen mit Offsets umgehen kann, aber bislang sind meine Versuche gescheitert.

Danke,
Spartacus