FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

57_SSCal.pm: contrib 2.4.9

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24730 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-07-11 18:33:25 +00:00
parent f2c7739d99
commit 7fe5ce1665
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,9 @@
########################################################################################################################
# $Id: 57_SSCal.pm 23315 2020-12-08 10:27:50Z DS_Starter $
# $Id: 57_SSCal.pm 23365 2020-12-16 14:40:38Z DS_Starter $
#########################################################################################################################
# 57_SSCal.pm
#
# (c) 2019 - 2020 by Heiko Maaz
# (c) 2019 - 2021 by Heiko Maaz
# e-mail: Heiko dot Maaz at t-online dot de
#
# This Module integrate the Synology Calendar into FHEM
@ -140,6 +140,7 @@ BEGIN {
# Versions History intern
my %vNotesIntern = (
"2.4.9" => "11.07.2021 set adaption of AUTH for DSM7 compatibility ",
"2.4.8" => "16.12.2020 accep umlauts in calendar name ",
"2.4.7" => "08.12.2020 fix handle code recognition in createAtDevices as single line ",
"2.4.6" => "06.11.2020 bugfix weekly byDay ",
@ -217,6 +218,11 @@ my %hget = ( # Ha
versionNotes => { fn => \&_getversionNotes, needcred => 0 },
);
my %hvada = ( # Funktionshash Version Adaption
"a01" => {AUTH => "6", INFO => "1", CAL => "2",
EVENT => "3", SHARE => "1", TODO => "1" },
);
# Versions History extern
my %vNotesExtern = (
"2.4.0" => "19.05.2020 Switched to Perl packages. Use <i>FHEM::SSCal::calAsHtml</i> from now instead of ".
@ -873,6 +879,8 @@ sub _setlogout {
my $name = $paref->{name};
logout($hash, $data{SSCal}{$name}{calapi}, $splitstr);
delete $data{SSCal}{$name}{calapi}{PARSET}; # erzwinge Abruf API beim nächsten Login
return;
}
@ -1247,15 +1255,14 @@ sub getApiSites_parse { ## no critic 'complex
# Downgrades für nicht kompatible API-Versionen. Hier nur nutzen wenn API zentral downgraded werden soll
Log3($name, 4, "$name - ------- Begin of adaption section -------");
my @sims;
my $adavs = "a01"; # adaptierte Version
push @sims, "EVENT:3";
for my $esim (@sims) {
my($k,$v) = split ":", $esim;
$data{SSCal}{$name}{calapi}{$k}{VER} = $v;
$data{SSCal}{$name}{calapi}{$k}{MOD} = "yes";
Log3($name, 4, "$name - Version of $data{SSCal}{$name}{calapi}{$k}{NAME} adapted to: $data{SSCal}{$name}{calapi}{$k}{VER}");
if($adavs) {
for my $av (sort keys %{$hvada{$adavs}}) {
$data{SSCal}{$name}{calapi}{$av}{VER} = $hvada{$adavs}{$av};
$data{SSCal}{$name}{calapi}{$av}{MOD} = "yes";
Log3($name, 4, "$name - Version of $data{SSCal}{$name}{calapi}{$av}{NAME} adapted to: $data{SSCal}{$name}{calapi}{$av}{VER}");
}
}
Log3($name, 4, "$name - ------- End of adaption section -------");