From 0089d87b3eda33b26f5ad07a8fc95b192740d73d Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sun, 13 Aug 2023 12:57:59 +0200
Subject: parse time shift from environment variable CAL_DAV_NOW

---
 bin/events2md.pl | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/bin/events2md.pl b/bin/events2md.pl
index 14524b1..3a35a32 100755
--- a/bin/events2md.pl
+++ b/bin/events2md.pl
@@ -125,8 +125,22 @@ if ( $log->is_trace ) {
 
 # serialize calendar events
 $log->debug('serialize calendar events...');
-my $start = DateTime->now;
-my $end   = $start->clone->add( months => 6 );
+my $start;
+if ( $ENV{CAL_DAV_NOW} ) {
+	try { require DateTimeX::Easy }
+	catch ($e) {
+		$log->fatalf( 'failed parsing CAL_DAV_NOW: %s', $e ) && exit 2
+	}
+	$start = DateTimeX::Easy->new( $ENV{CAL_DAV_NOW} );
+	$log->fatalf(
+		'failed parsing CAL_DAV_NOW: unknown start time "%s"',
+		$ENV{CAL_DAV_NOW}
+		)
+		&& exit 2
+		unless defined $start;
+}
+$start ||= DateTime->now;
+my $end = $start->clone->add( months => 6 );
 $log->infof( 'will pick events between %s and %s', $start, $end );
 my $span   = DateTime::Span->from_datetimes( start => $start, end => $end );
 my @events = sort {
-- 
cgit v1.2.3