| 65 | | next if $fields[2]; # skip recurrent events |
|---|
| 66 | | |
|---|
| 67 | | my $epoch = $fields[1]; |
|---|
| 68 | | $epoch =~ s/ts\.//; |
|---|
| | 65 | my $vevent = Data::ICal::Entry::Event->new(); |
|---|
| | 66 | |
|---|
| | 67 | if (my $freq = $fields[7]) { |
|---|
| | 68 | # TODO: handle recurrent events |
|---|
| | 69 | warn "Recurrent events[$freq] cannot be handled."; |
|---|
| | 70 | } else { |
|---|
| | 71 | my $dt = cydate2dt($fields[3], $fields[5], $tz); |
|---|
| | 72 | my $dtstart = ($fields[5] !~ /^:$/) ? |
|---|
| | 73 | dt2ical($dt) : $dt->ymd(''); |
|---|
| | 74 | $dt = cydate2dt($fields[4], $fields[6], $tz); |
|---|
| | 75 | my $dtend = ($fields[6] !~ /^:$/) ? |
|---|
| | 76 | dt2ical($dt) : $dt->add(days => 1)->ymd(''); |
|---|
| | 77 | |
|---|
| | 78 | $vevent->add_properties(dtstart => $dtstart, dtend => $dtend); |
|---|
| | 79 | } |
|---|
| | 80 | |
|---|
| | 81 | my($epoch) = $fields[1] =~ m/ts\.(\d+)/; |
|---|
| 71 | | my $dt1 = cydate2dt($fields[3], $fields[5], $tz); |
|---|
| 72 | | my $dtstart = ($fields[5] !~ /^:$/) ? |
|---|
| 73 | | dt2ical($dt1) : $dt1->ymd(''); |
|---|
| 74 | | |
|---|
| 75 | | my $dt2 = cydate2dt($fields[4], $fields[6], $tz); |
|---|
| 76 | | my $dtend = ($fields[6] !~ /^:$/) ? |
|---|
| 77 | | dt2ical($dt2) : $dt2->add(days => 1)->ymd(''); |
|---|
| 78 | | |
|---|
| 79 | | my $vevent = Data::ICal::Entry::Event->new(); |
|---|
