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

reverted changes in addproperty to r6423

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6499 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert 2014-09-02 10:16:51 +00:00
parent 384244ddd6
commit 695ca5fe69
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/57_Calendar.pm
View File

@ -67,16 +67,12 @@ sub addproperty {
my ($self,$line)= @_;
# TRIGGER;VALUE=DATE-TIME:20120531T150000Z
#main::Debug "line= $line";
my ($property,$property1,$parameter);
####### takes care of TZID, which has ":" in the property DTEND;TZID="(UTC+01:00) Amsterdam, Berlin, Bern, Rome, Stockholm, Vienna":20140904T180000
if ($line =~ m/TZID=/){
($property,$property1,$parameter)= split(":", $line,3);
$property .=$property1;
}
else {
($property,$parameter)= split(":", $line,2);
}
######
# for DTSTART, DTEND there are several variants:
# DTSTART;TZID=Europe/Berlin:20140205T183600
# * DTSTART;TZID="(UTC+01:00) Amsterdam, Berlin, Bern, Rome, Stockholm, Vienna":20140904T180000
# DTSTART:20140211T212000Z
# DTSTART;VALUE=DATE:20130619
my ($property,$parameter)= split(":", $line,2); # TRIGGER;VALUE=DATE-TIME 20120531T150000Z
#main::Debug "property= $property parameter= $parameter";
my ($key,$parts)= split(";", $property,2);
#main::Debug "key= $key parts= $parts";