FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 19:36:02 +00:00
Code Issues Releases Wiki Activity

applied immi's TZ patch http://forum.fhem.de/index.php/topic,26034.msg194038.html#msg194038

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6491 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert 2014-08-31 16:56:38 +00:00
parent c4a7f6755d
commit b579a2f7f5
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fhem/FHEM/57_Calendar.pm
View File

@ -67,7 +67,16 @@ sub addproperty {
my ($self,$line)= @_; my ($self,$line)= @_;
# TRIGGER;VALUE=DATE-TIME:20120531T150000Z # TRIGGER;VALUE=DATE-TIME:20120531T150000Z
#main::Debug "line= $line"; #main::Debug "line= $line";
my ($property,$parameter)= split(":", $line,2); # TRIGGER;VALUE=DATE-TIME 20120531T150000Z 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);
}
######
#main::Debug "property= $property parameter= $parameter"; #main::Debug "property= $property parameter= $parameter";
my ($key,$parts)= split(";", $property,2); my ($key,$parts)= split(";", $property,2);
#main::Debug "key= $key parts= $parts"; #main::Debug "key= $key parts= $parts";
@ -109,6 +118,15 @@ sub parseSub {
#main::Debug "$ln: $line"; #main::Debug "$ln: $line";
$ln++; $ln++;
next if($line eq ""); # remove empty line next if($line eq ""); # remove empty line
#### corrects line-wraps: if next line is starting with at least 2 spaces, join them
if ($ln<$#ical){
my $line1= $ical[$ln];
if ($line1 =~ s/^\s\s*//) {
$line.=$line1;
$ln++;
};
};
####
last if($line =~ m/^END:.*$/); last if($line =~ m/^END:.*$/);
if($line =~ m/^BEGIN:(.*)$/) { if($line =~ m/^BEGIN:(.*)$/) {
my $entry= ICal::Entry->new($1); my $entry= ICal::Entry->new($1);