FritzBox Offset-Uhrzeit aus Weckzeit berechnen
Die Funktion übernimmt die Weckzeiten von einer FritzBox, ermittelt die nächste relevante Weckzeit und berechnet dann eine um x Minuten versetzte Offset-Uhrzeit dazu.
fhem.cfg
define at {FB_NextAlarmClockTime('next Offset',-10)} set lamp on
Beispiele
Sub (z.B. 99_myutils.pm)
########################################################################################################
## Übernimmt alle Weckzeiten der FritzBox, ermittelt die nächste Weckzeit
## und berechnet daraus eine Offset-Uhrzeit Erstellt: LaLeLu, 28.11.2012
##
## Eigentlich ist aber anstelle der Weckzeit die Offset-Uhrzeit die relevante Zeit zur Steuerung
## beliebiger Aufgaben in fhem. Deshalb ist die Steuerung auf die Offset-Uhrzeit ausgelegt.
## Möchte man über die Weckzeit steuern, muss der Offset auf 0 gesetzt werden.
##
## Der 1. Parameter bestimmt die Art der Rückgabe der Funktion. Mögliche Parameter sind:
## next Offset,next Alarm,next Alarm full,next Offset full,all,Alarms,Offsets
##
## Durch den 2. Parameter wird eine Offset-Uhrzeit ermittelt, die um x Minuten versetzt ist.
## Beispiel: Weckzeit 06:40 => {FB_NextAlarmClockTime('next Offset',-10)} => 06:30
##
## urspr. Version: http://www.fhemwiki.de/wiki/FritzBox_Parameter_in_fhem_anzeigen. Danke an den Autor!
##
## Es wird auch die Nr. des Alarms und die Nr. des Telefons ausgegeben.
## Damit können verschiedene Schaltaufgaben gesteuert werden.
##
## Eingabe zum Testen in Kommandozeile fhem: reload 99_myUtils.pm
## Aktualisierung auslösen: trigger n_FBWeckzeitAuswerten
## {FB_AlarmClockTimes('next Offset',-10)}
## oder: {FB_AlarmClockTimes('all',-10)}
##
## Gebrauch z.B. über: define at {FB_NextAlarmClockTime('next',-10)} set lamp on
########################################################################################################
sub FB_AlarmClockTimes($$)
{
my $PreturnMode = shift;
my $Poffset = shift;
my @FritzAlarmClockTime;
my @FritzAlarmClockActive;
my @FritzAlarmClockActiveJN;
my @FritzAlarmClockNumber;
my @FritzAlarmClockWeekdays; my @FritzAlarmClockWeekdaysMod;
my @AlarmFull;
my $k; my $i;
my @Weekdays;
my $AlarmDay; my $AlarmTime; my $OffsetTime;
my @ToLate; my @AlarmTimeOrgHM; my @AlarmTimeHM; my @OffsetTimeHM;
my $ReturnText;
my %Days = (0,"SO",1,"MO",2,"DI",3,"MI",4,"DO",5,"FR",6,"SA");
my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime;
my $myNow = sprintf("%02d:%02d", $hour, $min);
foreach $k (0..2) {
# Die Weckerdaten aus der FritzBox lesen
my $AStr_Time = "ctlmgr_ctl r telcfg settings/AlarmClock".$k."/Time";
my $AStr_Active = "ctlmgr_ctl r telcfg settings/AlarmClock".$k."/Active";
my $AStr_Number = "ctlmgr_ctl r telcfg settings/AlarmClock".$k."/Number";
my $AStr_Weekdays = "ctlmgr_ctl r telcfg settings/AlarmClock".$k."/Weekdays";
$FritzAlarmClockTime[$k] = `$AStr_Time`;
$FritzAlarmClockActive[$k] = `$AStr_Active`;
$FritzAlarmClockNumber[$k] = `$AStr_Number`;
$FritzAlarmClockWeekdays[$k] = `$AStr_Weekdays`;
$FritzAlarmClockWeekdaysMod[$k] = $FritzAlarmClockWeekdays[$k];
$FritzAlarmClockActive[$k] =~ s/\s*$//g;
# Wecktage ermitteln
$Weekdays[$k] = "";
foreach $i (reverse 0..6) {
if ($FritzAlarmClockWeekdaysMod[$k] - 2**$i >= 0) {
if ($i == 6) {$Weekdays[$k] = "SO ".$Weekdays[$k]};
if ($i == 5) {$Weekdays[$k] = "SA ".$Weekdays[$k]};
if ($i == 4) {$Weekdays[$k] = "FR ".$Weekdays[$k]};
if ($i == 3) {$Weekdays[$k] = "DO ".$Weekdays[$k]};
if ($i == 2) {$Weekdays[$k] = "MI ".$Weekdays[$k]};
if ($i == 1) {$Weekdays[$k] = "DI ".$Weekdays[$k]};
if ($i == 0) {$Weekdays[$k] = "MO ".$Weekdays[$k]};
$FritzAlarmClockWeekdaysMod[$k] = $FritzAlarmClockWeekdaysMod[$k] - 2**$i;
};
};
# Falls keine Wiederholung eingerichtet ist = Einmal-Alarm
if ($FritzAlarmClockWeekdays[$k] == 0) {
$Weekdays[$k] = 'Einmal-Alarm';
};
$AlarmTime = substr($FritzAlarmClockTime[$k],0,2).":".substr($FritzAlarmClockTime[$k],2,2);
$OffsetTime = TimeOffset($AlarmTime,$Poffset);
# Check, ob Alarm relevant ist:
# - Ist der Alarm aktiv?
# - Ist heute ein Wecktag?
# - Ist die Weckzeit schon abgelaufen?
if ($FritzAlarmClockActive[$k] != 1) {
$ToLate[$k] = 'Weckzeit nicht aktiv ';
$AlarmTimeOrgHM[$k] = $AlarmTime;
$AlarmTimeHM[$k] = 'Nicht aktiv ';
$OffsetTimeHM[$k] = 'Nein ';
}
elsif ($Weekdays[$k] =~ /$Days{$wday}/ or
$Weekdays[$k] eq 'Einmal-Alarm') {
$AlarmDay = 'HEUTE ist ein Wecktag';
if ($AlarmTime le $myNow) {
$ToLate[$k] = 'Weckzeit abgelaufen ';
$AlarmTimeOrgHM[$k] = $AlarmTime;
$AlarmTimeHM[$k] = 'Nein ';
$OffsetTimeHM[$k] = 'Nein ';
}
elsif ($OffsetTime le $myNow) {
$ToLate[$k] = 'Offsetzeit abgelaufen';
$AlarmTimeOrgHM[$k] = $AlarmTime;
$AlarmTimeHM[$k] = $AlarmTime;
$OffsetTimeHM[$k] = 'Nein ';
}
else {
$ToLate[$k] = ' Weckzeit ist';
$AlarmTimeOrgHM[$k] = $AlarmTime;
$AlarmTimeHM[$k] = $AlarmTime;
$OffsetTimeHM[$k] = $OffsetTime;
};
}
else {
$AlarmDay = 'HEUTE ist kein Wecktag';
$ToLate[$k] = 'Weckzeit nicht aktiv';
$AlarmTimeOrgHM[$k] = $AlarmTime;
$AlarmTimeHM[$k] = 'Kein Wecktag';
$OffsetTimeHM[$k] = 'Nein ';
};
# Info über die Weckzeit
if ($FritzAlarmClockActive[$k] != 1) {
$AlarmFull[$k] = ('Nicht aktiver Alarm-Nr. '.$k);
}
else {
$AlarmFull[$k] = ($AlarmDay.', '.$ToLate[$k].' '.$Days{$wday}.' ('.$AlarmTimeOrgHM[$k].') Offset:'.$Poffset.' => '.$OffsetTimeHM[$k].', Telefon: '.$FritzAlarmClockNumber[$k].', Nr. '.$k.': '.' Aktiv: '.$FritzAlarmClockActive[$k].', Wecktage: '.$Weekdays[$k]);
$AlarmFull[$k] =~ s/\n//; # Zeilenvorschub entfernen
};
};
# Rückgabe aller aktiven Weckzeiten mit kompletter Info
if ($PreturnMode =~ /all/) {$ReturnText = join("\n", @AlarmFull)}
# Rückgabe aller Weckzeiten
elsif ($PreturnMode =~ /Alarms/) {@AlarmTimeOrgHM = sort(@AlarmTimeOrgHM);
$ReturnText = join("\n", @AlarmTimeOrgHM)}
# Rückgabe aller Offset-Uhrzeiten
elsif ($PreturnMode =~ /Offsets/) {@OffsetTimeHM = sort(@OffsetTimeHM);
$ReturnText = join("\n", @OffsetTimeHM)}
# Rückgabe der ersten aktiven Alarm-Zeit
elsif ($PreturnMode =~ /next Alarm/) {@AlarmTimeHM = sort(@AlarmTimeHM);
$ReturnText = $AlarmTimeHM[0]}
# Rückgabe der ersten aktiven Offset-Zeit
elsif ($PreturnMode =~ /next Offset/) {@OffsetTimeHM = sort(@OffsetTimeHM);
$ReturnText = $OffsetTimeHM[0]}
# Rückgabe der ersten aktiven Weckzeit als Text
elsif ($PreturnMode =~ /next full/) {@AlarmFull = sort(@AlarmFull);
$ReturnText = $AlarmFull[0]}
# Bei Fehleingabe
else {@OffsetTimeHM = sort(@OffsetTimeHM);
$ReturnText = $OffsetTimeHM[0]};
return $ReturnText;
}
.cfg
Dies ist ein Beispiel für diverse Schaltungen aufgrund der Offset-Uhrzeit. Hierbei wird sichergestellt, dass auch bei kurz aufeinander folgenden Weckzeiten, fhem sicher schaltet. Dazu dient der trigger n_FBWeckzeitAuswerten.
Es werden je nach eingestelltem Telefon verschiedene Aktionen gestartet.
################################################################################################
## Das Auswerten der Weckzeit der Fritzbox (7390) regelmäßig auslösen
## Anstelle von +*00:01:00 kann natürlich auch einfach nur eine Uhrzeit z.B. *{03:00:00} stehen.
################################################################################################
define t_FBWeckzeitAktRegel at +*01:00:00 {\
{Log 3, (' t_FBWeckzeitAktRegel: n_FBWeckzeitAuswerten regelmäßig auslösen.')}\
{fhem("trigger n_FBWeckzeitAuswerten") }\
}
################################################################################################################
## Makro wir gestartet durch: trigger t_FBWeckzeitAktualisieren
## Dies notify erstellt ein AT, das durch Trigger sich selbst wieder
## 1 Min. nach Ablauf der nächsten Offset-Zeit aufruft.
## Damit ist sichergestellt, dass unmittelbar folgende Offset-Zeiten sicher ausgeführt werden.
## Nicht abgefangen werden mehrere identische Weckzeiten. Dieser Fall kann über Telefon: 9 (Alle) gelöst werden.
################################################################################################################
define n_FBWeckzeitAuswerten notify n_FBWeckzeitAuswerten {\
{Log 3, (' n_FBWeckzeitAuswerten: Weckzeiten der FritzBox aktualisieren und auswerten.')}\
{fhem("set FBWeckzeit ".FB_AlarmClockTimes('next Alarm',-10)) }\
{fhem("set FBWeckzeitOffset ".FB_AlarmClockTimes('next Offset',-10)) }\
{fhem("set FBWeckzeitNextFull ".FB_AlarmClockTimes('next full',-10)) }\
if ($defs{"t_AufstehenMuster"}) {\
{Log 3, (' n_FBWeckzeitAuswerten: Das existierende t_AufstehenMuster löschen.') }\
{fhem("delete t_AufstehenMuster") }\
}\
if ($defs{"t_FBWeckzeitAktTrig"}) {\
{Log 3, (' n_FBWeckzeitAuswerten: Das existierende t_FBWeckzeitAktTrig löschen.') }\
{fhem("delete t_FBWeckzeitAktTrig") }\
}\
if (Value("FBWeckzeitOffset") =~ /Nein/) {\
{Log 3, (' n_FBWeckzeitAuswerten: Kein aktiver Alarm => nichts machen.') }\
}\
else {\
if (Value("FBWeckzeitNextFull") =~ /Telefon: 60/) {\
{Log 3, (' n_FBWeckzeitAuswerten: Telefon: 60 (Schlafzimmer) => n_AufstMakroSchlafZi starten.') }\
{fhem("Define t_AufstehenMuster at ".Value("FBWeckzeitOffset")." trigger n_AufstMakroSchlafZi") }\
}\
elsif (Value("FBWeckzeitNextFull") =~ /Telefon: 61/) {\
{Log 3, (' n_FBWeckzeitAuswerten: Telefon: 61 (Wohnzimmer) => n_AufstMakroWoZi starten.') }\
{fhem("Define t_AufstehenMuster at ".Value("FBWeckzeitOffset")." trigger n_AufstMakroWoZi") }\
}\
elsif (Value("FBWeckzeitNextFull") =~ /Telefon: 9/) {\
{Log 3, (' n_FBWeckzeitAuswerten: Telefon: 9 (Alle) => n_AufstMakroSchlafZi erstellen.') }\
{fhem("Define t_AufstehenMuster at ".Value("FBWeckzeitOffset")." trigger n_AufstMakroSchlafZi") }\
}\
else {\
{Log 3, (' n_FBWeckzeitAuswerten: Nichts machen.') }\
}\
{fhem("Define t_FBWeckzeitAktTrig at ".Value("FBWeckzeitOffset").":45 trigger n_FBWeckzeitAuswerten") }\
{fhem("attr t_FBWeckzeitAktTrig room SYSTEM") }\
{fhem("attr t_FBWeckzeitAktTrig group AT") }\
}\
}
#########################################################################
## AufstehenInDerWoche
#########################################################################
## Makro wird gestartet durch: trigger n_AufstehenMakro
define n_AufstMakroWoZi notify n_AufstMakroWoZi {\
{Log 3, (' n_AufstMakroWoZi NOTIFY: ****** Anfang ******')}\
if( Value("Flur_Wohnungstuer") ne "off") {\
{Log 3, (' n_AufstMakroWoZi Die Wohnungstuer ist offen.') }\
{fhem("set Kueche_Licht off") }\
{fhem("set Kueche_Radio off") }\
}\
elsif (Value("Flur_Wohnungstuer") eq "off") {\
{Log 3, (' n_AufstMakroWoZi Keine Aktion. Die WohnungsTuer ist abgeschlossen.') }\
}\
{Log 3, (' n_AufstMakroWoZi NOTIFY: ****** Ende ******')}\
}
## Makro wird gestartet durch: trigger n_AufstehenMakro
define n_AufstMakroSchlafZi notify n_AufstMakroSchlafZi {\
{Log 3, (' n_AufstMakroSchlafZi NOTIFY: ****** Anfang ******')}\
if( Value("Flur_Wohnungstuer") ne "off") {\
{Log 3, (' n_AufstMakroSchlafZi Die Wohnungstuer ist offen.') }\
{fhem("set Flur_Licht dim81% 20") }\
{fhem("set Kueche_Licht on") }\
{fhem("set Kueche_Arbeitslicht dim75% 15") }\
{fhem("set Kueche_Arbeitslicht on-till {sunrise(+1800)}") }\
{fhem("set Kueche_Radio on") }\
{fhem("setstate ImBett off") }\
{fhem("set Bad_Heizung desired-temp 20.5") }\
{fhem("set Kueche_Heizung desired-temp 20.5") }\
if (Value("KinderDa") ne "on") {\
{Log 3, (' n_AufstMakroSchlafZi NOTIFY: * Kinder sind nicht da *') }\
{fhem("set Schlafen_Bett_Licht on-till {sunrise(+1800)}") }\
{fhem("set Schlafen_Radio on") }\
} else {\
{Log 3, (' n_AufstMakroSchlafZi NOTIFY: * Kinder sind da *') }\
{fhem("set Wohnen_Schrank_Licht off") }\
}\
}\
elsif (Value("Flur_Wohnungstuer") eq "off") {\
{Log 3, (' n_AufstMakroSchlafZi Keine Aktion. Die WohnungsTuer ist abgeschlossen.') }\
}\
{Log 3, (' n_AufstMakroSchlafZi NOTIFY: ****** Ende ******')}\
}
Wichtig
Bitte auch die Anmerkungen unter Wichtig in "FritzBox Parameter in fhem anzeigen" beachten. Dort ist der Ursprung dieser Funktion.
Bemerkungen
Diese Funktion läuft auf einer FritzBox 7390.