Advent-Schnippsel für die Weihnachtsbeleuchtung

[Icinger]

Da ja die Adventzeit bald naht, hier mal ein kleines Schnippsel, welches ich mir voriges Jahr zusammengestellt habe:

Code Auswählen Erweitern

sub Advent() {
my ($Sekunde, $Minute, $Stunde, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
    my $adv=0;
    $Jahr+=1900;
    if($Monat<1) {
     if ($Monatstag<7) {$adv=1;}
    }
else
{      my $time = str2time("$Jahr-12-25");
  my $wday = (localtime($time))[6];
  $wday = $wday ? $wday : 7;
  $time -= ($wday+22)*86400;
  $adv=1 if ($time<time)
}
    return $adv;
}

Gibt 1 oder 0 zurück, je nachdem ob schon Advent ist (1. Adventsamstag bis 6. Jänner).
Nutze ich, um die Weihnachtsbeleuchtung zur richtigen Zeit einzuschalten.

Wird bei mir zB so geschaltet:

Code Auswählen Erweitern


define di_Weihnachtsbeleuchtung DOIF ([04:00-22:00] and [Umweltsensor_Aussen:luminosity] < AttrVal("Umweltsensor_Aussen","Dämmerung",undef) and Advent==1) (set Weihnachtsbeleuchtung on)
DOELSEIF ([04:00-22:00] and [Umweltsensor_Aussen:luminosity] > AttrVal("Umweltsensor_Aussen","Dämmerung",undef)+5 and Advent==1) (set Weihnachtsbeleuchtung off)
DOELSEIF ([22:00]) (set Weihnachtsbeleuchtung off)

lg, Ici

Edit: Neue Berechnung basierend auf betateilchens Code.
Bitte am Anfang den Moduls noch ein

Code Auswählen Erweitern

use HTTP::Date;
hinzufügen.

[P.A.Trick]

Vielen Dank dafür, aber kann ich das mit dem Kalender Modul nicht einfacher machen?

[kb958291]

Ist in "my $t = timelocal(0, 0, 0, 25, 12, $Jahr-$Dez);" nicht ein Fehler drinn?
$mon geht doch von 0 - 11, d.h. Dezember = 11 oder?

[betateilchen]

Alternativ: http://forum.fhem.de/index.php/topic,43381.0.html

[betateilchen]

$mon geht doch von 0 - 11, d.h. Dezember = 11 oder?

aber nicht bei timelocal()

[kb958291]

Ich hatte versucht, den Advent wie oben beschrieben zu berechnen und bekomme immer folgende Meldung:
perl error in condition: DOIF_time($hash,$hash->{realtime}{0},$hash->{realtime}{1},$wday,$hms,"") and ReadingValDoIf('LichtWetter','twilight_weather','') < 70 and Advent==1: Undefined subroutine &main::timelocal called at ./FHEM/99_myUtils.pm line 65.

Zeile 65 ist bei mir:
my $t = timelocal(0, 0, 0, 25, 12, $Jahr-$Dez);

Deshalb vermutete ich den Fehler im Perlcode.... 

Bin noch am Anfang mit Fhem und komme in der Weihnachtsbeleuchtung bzw. Advent nicht weiter...

[raspklaus]

Ich versuche erstmal nur im Test das zu simulieren indem ich die Systemzeit auf dem Testsystem auf Dezember stelle und dann teste

Code Auswählen Erweitern

define advent dummy
attr advent devStateIcon 0:FS20.off 1:FS20.on
define z_advent notify Advent==1 set advent on

bringt keine Veränderung

[raspklaus]

Der zweite Test bringt auch nicht viel

Code Auswählen Erweitern

define advent dummy
attr advent devStateIcon 0:FS20.off 1:FS20.on
attr advent setList 0 1
define z_advent DOIF ([06:00-22:00] and ReadingsVal( "BM_Bewegungsmelder", "brightness", "") <= 100 and Advent==1) { fhem ("set advent on") }
DOELSEIF ([06:00-22:00] and ReadingsVal( "BM_Bewegungsmelder", "brightness", "") > 100 and Advent==1) { fhem ("set advent off") }
DOELSEIF ([22:00]) (set advent off)


Kann jemand helfen ?

[kumue]

Ich habe einen anderen Ansatz gewählt... holiday Datei http://fhem.de/commandref_DE.html#holiday

Code Auswählen Erweitern


4 11-01 11-30 Nebenzeit
4 12-01 12-31 Hauptzeit
4 01-01 01-06 Hauptzeit
4 01-07 02-28 Nebenzeit


In einem DOIF werte ich dann aus, ob Haupt- oder Nebenzeit ist und schalte entsprechend.

[moonsorrox]

Kann jemand helfen ?

du hast doch hier schon gefragt...! funktioniert das nicht..?

[raspklaus]

moon,

das hatte ich später dort, da hier niemand geantwortet hat

[raspklaus]

Ich verwende da folgende notify:

Code Auswählen Erweitern

define z_advent DOIF ([06:00-22:00] and [BM_Bewegungsmelder:brightness] <= 100 and Advent==1) ("set advent on")
DOELSEIF ([06:00-22:00] and [BM_Bewegungsmelder:brightness] > 100 and Advent==1) ("set advent off")
DOELSEIF ([22:00]) (set advent off)

und erhalte folgenden Fehler:

Code Auswählen Erweitern

perl error in condition: DOIF_time($hash,$hash->{realtime}{2},$hash->{realtime}{3},$wday,$hms,"") and ReadingValDoIf('BM_Bewegungsmelder','brightness','') > 100 and Advent==1: Month '12' out of range 0..11 at ./FHEM/99_myUtils.pm line 231.

und nun stecke ich fest

Die Zeile ist

Code Auswählen Erweitern

my $t = timelocal(0, 0, 0, 25, 12, $Jahr-$Dez);

[Icinger]

Hi Leute,

habe grad den erste Post angepasst, sorry, da war ein Fehler drinnen.

Nu sollte es klappen (zumindest bei mir gehts)

lg, Ici

[raspklaus]

Was passiert bei Dir wenn Du {Advent} eingibst zur Ausgabe des Berechnungsergebnisses ?

Bei mir kommt:

Code Auswählen Erweitern

Can't locate object method "new" via package "DateTime" (perhaps you forgot to load "DateTime"?) at ./FHEM/99_myUtils.pm line 235.

[kb958291]

Ist in "my $t = timelocal(0, 0, 0, 25, 12, $Jahr-$Dez);" nicht ein Fehler drinn?
$mon geht doch von 0 - 11, d.h. Dezember = 11 oder?

hatte ich dann etwa doch Recht??? Als Anfänger ist man ja schnell verunsichert....