From 7bc003924c778e453265492e63674b7334384374 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 6 Apr 2018 21:59:13 +0200
Subject: Support date shortcut 'tomorrow'

Useful for everyone who doesn't remember the current date
---
 lib/Travel/Routing/DE/EFA.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'lib/Travel/Routing/DE')

diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm
index 021a691..e5173ba 100644
--- a/lib/Travel/Routing/DE/EFA.pm
+++ b/lib/Travel/Routing/DE/EFA.pm
@@ -93,6 +93,13 @@ sub date {
 
 	my ( $day, $month, $year ) = split( /[.]/, $date );
 
+	if ( $date eq 'tomorrow' ) {
+		( undef, undef, undef, $day, $month, $year )
+		  = localtime( time + 86400 );
+		$month += 1;
+		$year  += 1900;
+	}
+
 	if (
 		not(    defined $day
 			and length($day)
@@ -1079,7 +1086,7 @@ Journey start time.  Default: now
 
 =item B<date> => I<DD.MM.>[I<YYYY>]
 
-Journey date.  Default: today
+Journey date.  Also accepts the string B<tomorrow>.  Default: today
 
 =item B<exclude> => \@exclude
 
-- 
cgit v1.2.3