diff options
| -rwxr-xr-x | bin/efa | 2 | ||||
| -rw-r--r-- | lib/Travel/Routing/DE/EFA.pm | 9 |
2 files changed, 9 insertions, 2 deletions
@@ -521,7 +521,7 @@ route has bike support. =item B<-d>|B<--date> I<dd>.I<mm>.[I<yyyy>] -Journey date +Journey date. Also accepts the shortcut B<tomorrow>. =item B<-D>|B<--discover> 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 |