From b4590744838794cfe6b5c22ad77cc51331d8338b Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Tue, 29 Jun 2021 17:31:07 +0200
Subject: use Data::ICal::DateTime (not iCal::Parser)

---
 bin/events2md.pl | 66 +++++++++++---------------------------------------------
 1 file changed, 12 insertions(+), 54 deletions(-)

(limited to 'bin')

diff --git a/bin/events2md.pl b/bin/events2md.pl
index afef569..d7a4eb4 100755
--- a/bin/events2md.pl
+++ b/bin/events2md.pl
@@ -19,8 +19,7 @@ use Log::Any::Adapter;
 use URI;
 use IO::Prompter;
 use Cal::DAV;
-use Data::ICal;
-use iCal::Parser;
+use Data::ICal::DateTime;
 use DateTime;
 use Try::Tiny;
 use Path::Tiny;
@@ -112,25 +111,6 @@ if ( $log->is_trace ) {
 	p $calendar;
 }
 
-# index calendar entries
-$log->debug('index calendar entries...');
-my %calendar_entries;
-for ( @{ $calendar->entries } ) {
-	if ( 'VEVENT' eq $_->ical_entry_type ) {
-		my $uid = try { $_->property('uid')->[0]->value };
-		$uid ||= Data::ICal::Entry::Event->new()->property('uid')->[0]->value;
-		$calendar_entries{VEVENT}{$uid} = $_;
-	}
-	else {
-		# TODO
-		next;
-	}
-}
-if ( $log->is_trace ) {
-	use DDP;
-	p %calendar_entries;
-}
-
 # TODO: if list is empty and no calendar uri was explicitly supplied,
 # warn on stdout with list of abailable collections using this sequence:
 #  1. PROPFIND on base-URL for {DAV:}current-user-principal
@@ -142,11 +122,16 @@ if ( $log->is_trace ) {
 $log->debug('serialize calendar events...');
 my $start  = DateTime->now;
 my $end    = $start->clone->add( months => 6 );
-my $parser = iCal::Parser->new( start => $start, end => $end );
-my $events = $parser->parse_strings( $calendar->as_string );
+my $span   = DateTime::Span->from_datetimes( start => $start, end => $end );
+my @events = sort {
+		   DateTime->compare( $a->start, $b->start )
+		|| DateTime->compare( $a->end,   $b->end )
+		|| get_property_string( $a, 'summary' )
+		cmp get_property_string( $b, 'summary' )
+} $calendar->events($span);
 if ( $log->is_trace ) {
 	use DDP;
-	p $events;
+	p @events;
 }
 my $output_path;
 if ($OUTPUT_FILE) {
@@ -154,36 +139,9 @@ if ($OUTPUT_FILE) {
 	$output_path->parent->mkpath;
 	$output_path->remove;
 }
-for my $year (
-	map  { $events->{events}{$_} }
-	sort { $a <=> $b } keys %{ $events->{events} }
-	)
-{
-	for my $month (
-		map  { $year->{$_} }
-		sort { $a <=> $b } keys %$year
-		)
-	{
-		for my $day (
-			map  { $month->{$_} }
-			sort { $a <=> $b } keys %$month
-			)
-		{
-			my @events = sort {
-					   DateTime->compare( $a->[1], $b->[1] )
-					|| DateTime->compare( $a->[2], $b->[2] )
-					|| get_property_string( $a->[0], 'summary' )
-					cmp get_property_string( $b->[0], 'summary' )
-			} map {
-				[   $calendar_entries{VEVENT}{$_},
-					$day->{$_}{DTSTART}, $day->{$_}{DTEND}
-				]
-			} keys %$day;
-			for (@events) {
-				print_event( $_->[0], $_->[1], $_->[2], $output_path, );
-			}
-		}
-	}
+
+for (@events) {
+	print_event( $_, $_->start, $_->end, $output_path, );
 }
 
 sub print_event
-- 
cgit v1.2.3