57_SSCal: handle multiline code in description field if automatic creation of at-devices is used

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@23315 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-12-08 10:27:50 +00:00
parent 5e3e1956ff
commit 0a7966b2ce
2 changed files with 4 additions and 1 deletions

View File

@ -1,5 +1,7 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- feature: 57_SSCal: handle multiline code in description field if automatic
creation of at-devices is used
- feature: 70_BOTVAC: add oauth2 workflow, - feature: 70_BOTVAC: add oauth2 workflow,
support MyKobold app support MyKobold app
- bugfix: 76_SMAPortal: fix problem that after call consumerMasterdata - bugfix: 76_SMAPortal: fix problem that after call consumerMasterdata

View File

@ -139,6 +139,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"2.4.7" => "08.12.2020 fix handle code recognition in createAtDevices as single line ",
"2.4.6" => "06.11.2020 bugfix weekly byDay ", "2.4.6" => "06.11.2020 bugfix weekly byDay ",
"2.4.5" => "03.11.2020 fix commandref wiki link ", "2.4.5" => "03.11.2020 fix commandref wiki link ",
"2.4.4" => "06.10.2020 use addSendqueue from SMUtils, delete local addSendqueue ", "2.4.4" => "06.10.2020 use addSendqueue from SMUtils, delete local addSendqueue ",
@ -2628,7 +2629,7 @@ sub createAtDevices {
$location = ReadingsVal($name, $bnr."_35_Location", $room); # Location wird als room gesetzt $location = ReadingsVal($name, $bnr."_35_Location", $room); # Location wird als room gesetzt
$id = ReadingsVal($name, $bnr."_98_EventId", ""); $id = ReadingsVal($name, $bnr."_98_EventId", "");
if($begin && $status =~ /upcoming|alarmed/x && $desc =~ /^\s*\{(.*)\}\s*$/x) { # ein at-Device erstellen wenn Voraussetzungen erfüllt if($begin && $status =~ /upcoming|alarmed/x && $desc =~ /^\s*\{(.*)\}\s*$/xs) { # ein at-Device erstellen wenn Voraussetzungen erfüllt
my $cmd = $1; my $cmd = $1;
$begin =~ s/\s/T/x; # Formatierung nach ISO8601 (YYYY-MM-DDTHH:MM:SS) für at-Devices $begin =~ s/\s/T/x; # Formatierung nach ISO8601 (YYYY-MM-DDTHH:MM:SS) für at-Devices
my $ao = $begin; my $ao = $begin;