automatisiertes Definieren und Einbinden von Feiertagen/Schulferien als ical

Ralli · 13 April 2015, 15:32:55

Hallo zusammen,

um zukünftige iCals von Feiertagen oder/und Ferien einzubinden (vorausgesetzt, sie sind an der entsprechenden URL zu finden), habe ich mir folgende at-Definitionen gebastelt:

Code Auswählen


define Neuer_Ferien_Kalender_Check at *10:00 {if ((strftime "%d-%m",localtime) eq "30-12"){fhem ("define Ferien".((strftime "%Y",localtime)+1)." Calendar ical url http://www.schulferien.org/iCal/Ferien/icals/Ferien_Rheinland_Pfalz_".((strftime "%Y",localtime)+1).".ics");; fhem("save")}}

Code Auswählen


define Neuer_Feiertags_Kalender_Check at *10:00 {if ((strftime "%d-%m",localtime) eq "30-12"){fhem ("define Feiertage".((strftime "%Y",localtime)+1)." Calendar ical url http://www.schulferien.org/iCal/Feiertage/icals/Feiertage_Rheinland_Pfalz_".((strftime "%Y",localtime)+1).".ics");; fhem("save")}}

Damit wird erreicht, dass jeden Tag um 10 Uhr geprüft wird, ob wir den 30.12. haben (at oder DOIF unterstützen bis jetzt keine Datums-Definitionen). Ist dies der Fall, wird ein neues Calendar-Device mit Namen Ferien20xy bzw. Feiertage20xy angelegt - allerdings ohne entsprechende Prüfung, wir gehen einfach aus, dass der Link bzw. das iCal-File existiert!

Die Auswertung bezüglich eines tatsächlichen Ferien- oder Feiertages läuft dann angelehnt an Wiki wie folgt:

Code Auswählen


define Feiertag dummy
define Feiertag_Check notify Feiertage[0-9]*:modeStart.* {ReadingsVal("Feiertage".(strftime "%Y",localtime), "modeStart", "") =~ "schulferien"? fhem("set Feiertag 1"): fhem("set Feiertag 0")}

Code Auswählen


define Ferientag dummy
define Ferientag_Check notify Ferien[0-9]*:modeStart.* {ReadingsVal("Ferien".(strftime "%Y",localtime), "modeStart", "") =~ "schulferien"? fhem("set Ferientag 1"): fhem("set Ferientag 0")}

FHEMAN · 16 April 2015, 22:04:12

Hi Ralli,

danke, dass du den Code hier veröffentlichst!
Für die Faulen: das aktuelle Jahr wird erstellt mit

Code Auswählen

{fhem ("define Feiertage".((strftime "%Y",localtime))." Calendar ical url http://www.schulferien.org/iCal/Feiertage/icals/Feiertage_Sachsen_Anhalt_".((strftime "%Y",localtime)).".ics")}

in der Kommandozeile oben + SAVE nicht vergessen.
Übrigens sind schon jetzt die Feiertag ics Dateien für die nächsten hundert Jahre verfügbar

Prof. Dr. Peter Henning · 17 April 2015, 17:50:17

Hm, dieses Codebeispiel hat den Nachteil, dass in jedem Jahr ein neues Calendar-Device aufgemacht wird. Das bedeutet, dass alle weiteren Routinen umgeschrieben werden müssen.

Also besser: Am 30.12. das alte löschen. Dann neu anlegen mit den Daten vom kommenden Jahr.

Auch erschließt sich mir nicht der Sinn eines getrennten Dummy für Feiertage und Ferientage, die jeweils nur einen booleschen Wert haben. M.E: besser, eine Funktion "getDayStatus()" einzuführen, die Werte "Feiertag", "Ferientag" etc. liefern kann und ggf. auch als Argument ein beliebiges Datum bekommt.

Zweite Schwäche: so wird jede Stunde der gesamte Kram geholt...

LG

pah

Ralli · 18 April 2015, 06:44:16

Nein, es muss keine Routine umgeschrieben werden, da der von mir verwendete Notify auf Events in den Readings modeStart aller dem Suchmuster entsprechenden Kalender reagiert, dabei das aktuelle Jahr allerdings für die Readingsabfrage verwendet, um dann entweder Ferientag oder Feiertag zu setzen.

Der zweite "Nachteil" ist auch nicht vorhanden, da Du im jeweiligen Calendar-Device das Poll-Intervall variieren kannst.

Prof. Dr. Peter Henning · 18 April 2015, 14:41:50

Ich habe mich doch eigentlich klar ausgedrückt: Erstens geht es nicht um den kleinen notify oben - sondern in einer komplexen FHEM-Installation greifen sicher mehr Routinen auf den Kalender zu.

Zweitens ist es unprofessionell, Mengen von alten Daten (etwa die Feiertage des abgelaufenen Jahres...) vorzuhalten (sogar in der Konfigurationsdatei steht davon noch etwas). _Wenn_ man das schon unbedingt in einem FHEM-Skript statt in einer ordentlichen und viel besser wartbaren Perl-Subroutine abhandeln will, sollte deshalb das andere Device mindestens deaktiviert, besser komplett gelöscht werden.

Drittens habe ich keinerlei Verständnis für das automatische Anlegen von Devices, wenn diese hinterher noch manuell bearbeitet werden müssen, um ihre Abfragefrequenz zu reduzieren.

Damit ich nicht nur kritisiere, sondern auch hier etwas Positives beitrage:

1. Zu Jahresbeginn wird (einmal, aber durchaus wiederholbar) der aktuelle Ferien- und Feiertagskalender geholt.
2. Diese beiden Dateien werden im FHEM-Verzeichnis abgelegt, können von dort aus einmal pro Tag überprüft und ggf. neu geladen werden.

Einen entsprechende Code werde ich in den nächsten Tagen mal hier posten.

LG

pah

Ralli · 18 April 2015, 18:09:27

Ich habe mich genau so klar ausgedrückt. Du musst den Code nicht nehmen und nicht professionell finden - das ist aber egal. Denn jeder kann ihn für sich selbst entweder so nehmen oder umschreiben.

kvo1 · 31 Mai 2015, 15:09:15

Hallo Zusammen,
@Ralli , danke !

mir hat das für meine Thematik schon etwas geholfen. Habe die Feier- und Ferientage in meine eigene
owncloud importiert und trage dann bei Bedarf z.b. schulfreien Tage per Hand dazu (okay nicht soooo elegant).

Den Kalender lese ich (zylisch) ein und prüfe ob da ein String "ferien" vorkommt , fülle ein dummy (0 ider 1)
und benutze das dann für weitere Aufgaben (z.B. Jalousiesteuerung) ....leider tut´s noch nicht wirklich

@pah

ZitatEinen entsprechende Code werde ich in den nächsten Tagen mal hier posten.

würde mich interessieren !

klaus

Prof. Dr. Peter Henning · 31 Mai 2015, 17:56:05

Mach ich doch glatt.

In myUtils.pm:

Code Auswählen


sub getCalendar(){
   my $ret;
   my $year=strftime("%Y",localtime);
   $ret = system("wget -O feiertage.ics http://www.schulferien.org/iCal/Feiertage/icals/Feiertage_Baden_Wuerttemberg_".$year.".ics");
   $ret = system("wget -O ferien.ics http://www.schulferien.org/iCal/Ferien/icals/Ferien_Baden_Wuerttemberg_".$year.".ics");
  
};    

sub getDayStatus(){
   my $ret;
   my $msg;
   my @lines;
   my $date;
   my $desc;
   #strftime "%d-%m",localtime
   
   $ret = fhem("get Feiertage text modeAlarmOrStart");
   if( $ret ne ""){
     @lines = split('\n',$ret);
     $date  = substr($lines[0],0,8);
     $desc  = substr($lines[0],15);
     $msg = "$desc $date";
     fhem("set Tagesstatus $desc");
     fhem("set Tagesmode Feiertag");
   }else{
     $ret = fhem("get Ferien text modeAlarmOrStart");
     if( $ret ne ""){
       @lines = split('\n',$ret);
       $date  = substr($lines[0],0,8);
       $desc  = substr($lines[0],15);
       $msg = "$desc $date";
       fhem("set Tagesstatus $desc");
       fhem("set Tagesmode Ferien");
     }else{ 
       if( strftime("%u",localtime) > 5 ){
         $msg = "Wochenende";
         fhem("set Tagesstatus $msg");
         fhem("set Tagesmode $msg");
       }else{
         $msg = "Arbeitstag";
         fhem("set Tagesstatus $msg");
         fhem("set Tagesmode $msg");
       }
     }
   }
   return $msg;
}

sub checkCalendars($){
 
  my ($period) = @_;
  
  #-- Start oder Alarm stündlich
  if( ($period eq 'hour') || ($period eq '') ){
    my $text;
    my $hash = $defs{'Termin'};
    $text = fhem("get Muell text modeAlarmOrStart");
    $text = "--" if (!$text); 
    $text = "--" if ($text eq ""); 
    #fhem("set Termin ".$text);
    return $text;
    
  #-- Vorschau täglich oder wenn neu gestartet 
  }elsif( ($period eq 'day') || (ReadingsVal("Termin","today",0) eq "today") ){
    my $stoday    = strftime('%2d.%2m.%2y', localtime(time));
    my $stomorrow = strftime('%2d.%2m.%2y', localtime(time+86400));
    my $stwodays  = strftime('%2d.%2m.%2y', localtime(time+2*86400));
    my @today     = ();
    my @tomorrow  = ();
    my @twodays   = (); 
    my (@lines,$line,@linarr);
  
    @lines = split('\n',fhem("get Muell text modeAlarmOrStart"));
    foreach $line (@lines){
      #-- line looks as 
      #   18.05.15 07:00 Restmüllabfuhr
      chomp($line);
      @linarr = split(' ',$line);
      if( $linarr[0] eq $stoday ){
        push(@today,$linarr[1]." ".$linarr[2]);
      }elsif( $linarr[0] eq $stomorrow ){
        push(@tomorrow,$linarr[1]." ".$linarr[2]);
      }elsif( $linarr[0] eq $stwodays ){
        push(@twodays,$linarr[1]." ".$linarr[2]);
      }     
    }
    
    @lines = split('\n',fhem("get Muell text modeUpcoming"));
    foreach $line (@lines){
      #-- line looks as 
      #   18.05.15 07:00 Restmüllabfuhr
      chomp($line);
      @linarr = split(' ',$line);
      if( $linarr[0] eq $stoday ){
        push(@today,$linarr[1]." ".$linarr[2]);
      }elsif( $linarr[0] eq $stomorrow ){
        push(@tomorrow,$linarr[1]." ".$linarr[2]);
      }elsif( $linarr[0] eq $stwodays ){
        push(@twodays,$linarr[1]." ".$linarr[2]);
      }     
    }
    $defs{'Termin'}{READINGS}{'today'}{VAL}    = join(" ",@today);
    $defs{'Termin'}{READINGS}{'tomorrow'}{VAL} = join(" ",@tomorrow);
    $defs{'Termin'}{READINGS}{'twodays'}{VAL}  = join(" ",@twodays);
    
    return "today: ".join(" ",@today)."\ntomorrow: ".join(" ",@tomorrow)."\ntwodays: ".join(" ",@twodays);
  }
}

Die erste Routine wird einmal zu Jahresbeginn gerufen, holt die Ferienkalender. Eine Datei muell.ics wird manuall erzeugt oder sonstwie generiert.

Dann gibt es in den Konfigurationsdateien noch folgende Einträge:

Code Auswählen


define I.L.morning at *05:00:00 set OWLCD backlight on;;set RixowTab screenBrightness 255;;set Archos7Tab screenBrightness 255;;{getDayStatus()};;
attr I.L.morning group timer
attr I.L.morning room Kontrollraum

define I.L.daybreak at *00:00:10 {checkCalendars('day')}
attr I.L.daybreak group timer
attr I.L.daybreak room Kontrollraum

define I.L.hour at +*01:00:00 set Termin %EVENT
attr I.L.hour alignTime 00:00
attr I.L.hour group timer
attr I.L.hour room Kontrollraum

define Tagesstatus dummy
attr Tagesstatus group Calendar
attr Tagesstatus room Kontrollraum

define Feiertage Calendar ical file feiertage.ics 86400
attr Feiertage room Kontrollraum

define Ferien Calendar ical file ferien.ics 86400
attr Ferien room Kontrollraum

define Tagesmode dummy
attr Tagesmode group Calendar
attr Tagesmode room Kontrollraum

define Muell Calendar ical file muell.ics
attr Muell group Calendar
attr Muell room Kontrollraum

define Termin dummy
attr Termin group Calendar
attr Termin room Kontrollraum
attr Termin stateFormat active
attr Termin userReadings active {checkCalendars('hour')},today:none {'today'},tomorrow:none {'tomorrow'},twodays:none {'twodays'}
attr Termin verbose 1

define Ticker notify Termin:.* {fhem("set RixowTab tickerMessage ".Value('Termin'));;;;fhem("set Archos7Tab tickerMessage ".Value('Termin'))}
attr Ticker group Calendar
attr Ticker room Kontrollraum

Bewirkt, dass einmal zu Tagesbeginn der Tagesstatus gesetzt wird (10 Sekunden nach Mitternacht) sowie einmal zu jeder vollen Stunde auf einen anstehenden Termin überprüft wird.

Die Anzeig ein FHEM ist nicht sehr komfortabel, das läuft bei mir auf einem Tablet an der Wand, das auf einen separaten Apache Web Server zugreift. Dieser hängt (per imagemagick) an ein generiertes Bild ein nettes kleines Icon an - je nachdem entweder eine kleine farbige Mülltonne (je nach Art der Müllabholung), oder so wie hier eine kleine grüne Kiste mit Altpapier ...
(http://oberfl.png)

LG

pah

kvo1 · 31 Mai 2015, 18:21:20

@pah , vielen Dank, werd ich mir mal sehen ...

Wer kann mir kurz auf die Sprünge helfen...

im meinem Kalender "BLN_Ferien" steht im reading "modeStart" für heute der Text "ferien" (bzw fe659ee8cf)

über

Code Auswählen

define BLN_Ferientag dummy
define BLN_Ferien_notify notify BLN_Ferien { fhem "set BLN_Ferientag " . (ReadingsVal("BLN_Ferien", "modeStart", "") =~ "ferien" ? 1: 0) }

soll nun bei der Erkennung des strings "ferien" das dummy auf 0 oder 1 gesetzt werden ! Tut´s aber nicht

auch das ....

Code Auswählen

define FBLN_Ferien_notify notify BLN_Ferien:modeStart.* {ReadingsVal("BLN_Ferien", "modeStart", "") =~ "ferien"? fhem("set Ferientag 1"): fhem("set Ferientag 0")}

geht leider nicht ! Wer kann mir kurz helfen ?

Danke vorab !

Ralli · 31 Mai 2015, 19:58:00

Was ist die Ausgabe, wenn Du

Code Auswählen


{ fhem "set BLN_Ferientag " . (ReadingsVal("BLN_Ferien", "modeStart", "") =~ "ferien" ? 1: 0) }

bzw. nur mal

Code Auswählen


{ReadingsVal("BLN_Ferien", "modeStart", "") =~ "ferien" ? 1: 0}

einfach mal in die Eingabe vom Web-Frontend eingibst? Steht nichts im Log?

kvo1 · 31 Mai 2015, 20:22:06

Hallo Ralli,

leider in beiden Fällen garnix !

klaus

kvo1 · 31 Mai 2015, 20:50:27

weiterer Test, wenn ich im Web-Frontend ...

Code Auswählen

{ReadingsVal("BLN_Ferien", "modeStart", "")} eingebe , erhalte ich 1ccee3dd23

Über das Calendar-Device ... ergibt das mittels

Code Auswählen

get BLN_Ferien text 1ccee3dd23 dann folgendes ... 31.05.15 00:00 ferien

hier geht dann (vermutlich) der Vergleich (=~ "ferien") nicht, weil das ReadingsVal nicht des String (31.05.15 00:00) liefert , sondern 1ccee3dd23 ... oder ?

Was kann ich tun !?
klaus

Ralli · 31 Mai 2015, 20:54:18

Da ja nur Ferientage in dem Kalender sein dürften, kannst Du die Abfrage einfach umdrehen. Wenn nichts im Reading modeStart drin steht, ist auch kein Ferientag.

Code Auswählen


{ fhem "set BLN_Ferientag " . (ReadingsVal("BLN_Ferien", "modeStart", "") ne "" ? 1: 0) }

kvo1 · 31 Mai 2015, 21:12:21

wenn ich das so angeben

Code Auswählen

define BLN_Ferien_notify notify BLN_Ferien:modeStart:.* { fhem "set BLN_Ferientag " . (ReadingsVal("BLN_Ferien", "modeStart", "") =~ "1ccee3dd23" ? 1: 0) }

wird das dummy "BLN_Ferientag" auf 1 gesetzt !

Problem ist nur das sich dies ja immer ändert ... , auch bei gleichen Einträgen ..
also im Kalender gelöscht , gleichen Eintrag wiederholt ..... jetzt steht da 40af736c3c

klaus

kvo1 · 31 Mai 2015, 21:29:16

Hallo Ralli,

Zitat von: Ralli am 31 Mai 2015, 20:54:18
Da ja nur Ferientage in dem Kalender sein dürften, kannst Du die Abfrage einfach umdrehen. Wenn nichts im Reading modeStart drin steht, ist auch kein Ferientag.

Code Auswählen Erweitern
{ fhem "set BLN_Ferientag " . (ReadingsVal("BLN_Ferien", "modeStart", "") ne "" ? 1: 0) }

super das geht und man kann sogar "irgendwas" reinschreiben ohne auf den korrekten Text ("ferien") zu achten. Ein Plus für WAF

Danke nochmal für die Hilfe ...!

Gruss
Klaus