Add -a / --arrival option

1 files changed, 14 insertions, 9 deletions

diff --git a/bin/dbris b/bin/dbris
index 64a3039..7d06b64 100755
--- a/bin/dbris
+++ b/bin/dbris
@@ -14,15 +14,13 @@ use List::Util   qw(max);
 use Travel::Status::DE::DBRIS;
 use Travel::Routing::DE::DBRIS;
 
-my ( $date, $time, $from, $to, $language );
+my ( $date, $time, $arrival, $from, $to, $language );
 my $mots;
-my ( $first_class, $passengers );
-my $developer_mode;
-my $show_jid;
-my ( $json_output, $raw_json_output );
-my $verbose;
+my ( $first_class,    $passengers );
+my ( $developer_mode, $verbose );
+my ( $show_jid,       $show_full_route );
+my ( $json_output,    $raw_json_output );
 my $use_cache = 1;
-my $show_full_route;
 my $cache;
 
 my %known_mot = map { $_ => 1 }
@@ -49,6 +47,7 @@ my $output_bold_warning  = -t STDOUT ? "\033[1;40;33m" : q{};
 my $output_bold_critical = -t STDOUT ? "\033[1;40;31m" : q{};
 
 GetOptions(
+	'a|arrive=s'           => sub { $arrival = 1; $time = $_[1] },
 	'd|date=s'             => \$date,
 	'h|help'               => sub { show_help(0) },
 	'f|full-route'         => \$show_full_route,
@@ -171,6 +170,7 @@ if ( $date or $time ) {
 			exit 1;
 		}
 	}
+	$opt{arrival}  = $arrival;
 	$opt{datetime} = $dt;
 }
 
@@ -479,7 +479,7 @@ dbris - Interface to bahn.de public transit routing service
 
 =head1 SYNOPSIS
 
-B<dbris> [B<-d> I<DD.MM.YYYY>] [B<-t> I<HH:MM>] [...] I<from-stop>
+B<dbris> [B<-d> I<DD.MM.YYYY>] [B<-a>|B<-t> I<HH:MM>] [...] I<from-stop>
 [I<via-stop>[:I<duration>] [I<via-stop>[:I<duration>]]] I<to-stop>
 
 =head1 VERSION
@@ -497,6 +497,11 @@ connections, with an optional minimum stopover I<duration> given in minutes.
 
 =over
 
+=item B<-a>, B<--arrive> I<HH:MM>
+
+Request connections that arrive on or after I<HH:MM>.
+Overrides B<--time>.
+
 =item B<-d>, B<--date> I<dd.mm.>[I<yyyy>]
 
 Request connections for a specific day.
@@ -564,7 +569,7 @@ Useful for debugging and development purposes.
 
 =item B<-t>, B<--time> I<HH:MM>
 
-Request connections on or after I<HH:MM>.
+Request connections that depart on or after I<HH:MM>.
 Default: now.
 
 =item B<-v>, B<--verbose>