FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

57_SSCal: contrib 1.11.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@21195 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-02-14 13:20:59 +00:00
parent d55827247f
commit b1950dad4f
1 changed files with 43 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
fhem/contrib/DS_Starter/57_SSCal.pm
View File

@ -48,6 +48,7 @@ eval "use FHEM::Meta;1" or my $modMetaAbsent = 1;
# Versions History intern # Versions History intern
my %SSCal_vNotesIntern = ( my %SSCal_vNotesIntern = (
"1.11.0" => "14.02.2020 new function SSCal_doCompositeEvents to create Composite Events for special notify use in FHEM ",
"1.10.0" => "13.02.2020 new key cellStyle for attribute tableSpecs, avoid FHEM crash when are design failures in tableSpecs ", "1.10.0" => "13.02.2020 new key cellStyle for attribute tableSpecs, avoid FHEM crash when are design failures in tableSpecs ",
"1.9.0" => "11.02.2020 new reading Weekday with localization, more field selection for overview table ", "1.9.0" => "11.02.2020 new reading Weekday with localization, more field selection for overview table ",
"1.8.0" => "09.02.2020 evaluate icons for DaysLeft, Map and State in sub SSCal_evalTableSpecs , fix no table is shown after FHEM restart ", "1.8.0" => "09.02.2020 evaluate icons for DaysLeft, Map and State in sub SSCal_evalTableSpecs , fix no table is shown after FHEM restart ",
@ -2102,9 +2103,9 @@ sub SSCal_extractToDolist ($) {
} }
############################################################################################# #############################################################################################
# füllt zentrales Datenhash # - füllt zentrales $data{SSCal}{$name}{eventlist} Valuehash
# $data{SSCal}{$name}{eventlist} = Referenz zum zentralen Valuehash # - erstellt Readings aus $data{SSCal}{$name}{eventlist}
# erstellt Readings aus zentralen Eventarray # - ruft Routine auf um zusätzliche Steuerungsevents zu erstellen
############################################################################################# #############################################################################################
sub SSCal_createReadings ($) { sub SSCal_createReadings ($) {
my ($string) = @_; my ($string) = @_;
@ -2126,13 +2127,17 @@ sub SSCal_createReadings ($) {
# Readings der Eventliste erstellen # Readings der Eventliste erstellen
if($data{SSCal}{$name}{eventlist}) { if($data{SSCal}{$name}{eventlist}) {
my @abnr;
my $l = length(keys %{$data{SSCal}{$name}{eventlist}}); # Anzahl Stellen des max. Index ermitteln my $l = length(keys %{$data{SSCal}{$name}{eventlist}}); # Anzahl Stellen des max. Index ermitteln
readingsBeginUpdate($hash);
readingsBeginUpdate($hash);
$data{SSCal}{$name}{lstUpdtTs} = $hash->{".updateTime"}; # letzte Updatezeit speichern (Unix Format) $data{SSCal}{$name}{lstUpdtTs} = $hash->{".updateTime"}; # letzte Updatezeit speichern (Unix Format)
my $k = 0; my $k = 0;
foreach my $idx (sort keys %{$data{SSCal}{$name}{eventlist}}) { foreach my $idx (sort keys %{$data{SSCal}{$name}{eventlist}}) {
my $idxstr = sprintf("%0$l.0f", $k); # Prestring erstellen my $idxstr = sprintf("%0$l.0f", $k); # Blocknummer erstellen
push(@abnr, $idxstr); # Array aller vorhandener Blocknummern erstellen
foreach my $r (keys %{$data{SSCal}{$name}{eventlist}{$idx}}) { foreach my $r (keys %{$data{SSCal}{$name}{eventlist}{$idx}}) {
if($r =~ /.*Timestamp$/) { # Readings mit Unix Timestamps versteckt erstellen if($r =~ /.*Timestamp$/) { # Readings mit Unix Timestamps versteckt erstellen
readingsBulkUpdate($hash, ".".$idxstr."_".$r, $data{SSCal}{$name}{eventlist}{$idx}{$r}); readingsBulkUpdate($hash, ".".$idxstr."_".$r, $data{SSCal}{$name}{eventlist}{$idx}{$r});
@ -2142,8 +2147,9 @@ sub SSCal_createReadings ($) {
} }
$k += 1; $k += 1;
} }
readingsEndUpdate($hash, 1); readingsEndUpdate($hash, 1);
SSCal_doCompositeEvents ($name,\@abnr,$data{SSCal}{$name}{eventlist}); # spezifische Controlevents erstellen
} else { } else {
SSCal_delReadings($name,0); # alle Kalender-Readings löschen SSCal_delReadings($name,0); # alle Kalender-Readings löschen
@ -2165,6 +2171,37 @@ sub SSCal_createReadings ($) {
return; return;
} }
#############################################################################################
# erstellt zusätzliche Steuerungsevents um einfach per Notify
# Gerätesteuerungen aus Kalender einträgen zu generieren
#
# $abnr - Referenz zum Array aller vorhandener Blocknummern
# $evref - Referenz zum zentralen Valuehash ($data{SSCal}{$name}{eventlist})
#
#############################################################################################
sub SSCal_doCompositeEvents ($$$) {
my ($name,$abnr,$evref) = @_;
my $hash = $defs{$name};
my ($summary,$begin,$status,$id,$event);
foreach my $bnr (@{$abnr}) {
$summary = ReadingsVal($name, $bnr."_01_Summary", "");
$begin = ReadingsVal($name, $bnr."_05_Begin", "");
$status = ReadingsVal($name, $bnr."_17_Status", "");
$id = ReadingsVal($name, $bnr."_98_EventId", "");
$begin =~ s/\s/T/; # Formatierung nach ISO8601 (YYYY-MM-DDTHH:MM:SS) für at-Devices
if($begin) { # einen Composite-Event erstellen wenn Beginnzeit gesetzt ist
$event = "composite: $id $begin $status $summary";
CommandTrigger(undef, "$name $event");
}
}
return;
}
#################################################################################################### ####################################################################################################
# Abbruchroutine BlockingCall # Abbruchroutine BlockingCall
#################################################################################################### ####################################################################################################