diff options
| -rwxr-xr-x | bin/hafas | 43 |
1 files changed, 27 insertions, 16 deletions
@@ -20,6 +20,7 @@ my $types = q{}; my $developer_mode; my ( $json_output, $raw_json_output ); my $show_full_route; +my $exclude_infeasible; my ( $list_services, $service ); my ( @excluded_mots, @exclusive_mots ); my $max_change = undef; @@ -46,22 +47,23 @@ my $output_bold = -t STDOUT ? "\033[1m" : q{}; my $output_reset = -t STDOUT ? "\033[0m" : q{}; GetOptions( - 'a|arrive=s' => sub { $arrival = 1; $time = $_[1] }, - 'c|max-change=s' => \$max_change, - 'C|change-time=s' => \$min_change_time, - 'd|date=s' => \$date, - 'h|help' => sub { show_help(0) }, - 'f|full-route' => \$show_full_route, - 'l|language=s' => \$language, - 'm|mot=s' => \$types, - 's|service=s' => \$service, - 't|time|depart=s' => \$time, - 'v|verbose+' => \$verbosity, - 'V|version' => \&show_version, - 'devmode' => \$developer_mode, - 'json' => \$json_output, - 'raw-json' => \$raw_json_output, - 'list' => \$list_services, + 'a|arrive=s' => sub { $arrival = 1; $time = $_[1] }, + 'c|max-change=s' => \$max_change, + 'C|change-time=s' => \$min_change_time, + 'd|date=s' => \$date, + 'h|help' => sub { show_help(0) }, + 'f|full-route' => \$show_full_route, + 'l|language=s' => \$language, + 'm|mot=s' => \$types, + 's|service=s' => \$service, + 't|time|depart=s' => \$time, + 'x|exclude-infeasible' => \$exclude_infeasible, + 'v|verbose+' => \$verbosity, + 'V|version' => \&show_version, + 'devmode' => \$developer_mode, + 'json' => \$json_output, + 'raw-json' => \$raw_json_output, + 'list' => \$list_services, ) or show_help(1); @@ -338,6 +340,9 @@ for my $res ( $hafas->connections ) { } if ( $cancelled or $negative_transfer or $part_cancelled ) { + if ($exclude_infeasible) { + next; + } printf( "%s (%02d:%02d) %s %s %s\n", $res->dep->strftime('XX.XX. %H:%M'), @@ -538,6 +543,12 @@ B<-v>) to 3 (B<-vvv>). Show version information and exit. +=item B<-x>, B<--exclude-infeasible> + +HAFAS responses include journeys that are infeasible e.g. due to delayed or +cancelled trips. By default, B<hafas> displays those with an XX.XX. departure +date. When this option is set, B<hafas> silently ignores them instead. + =back =head1 EXIT STATUS |