Unverified Commit e6480f63 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add -x / --exclude-infeasible option

parent 452e421c

bin/hafas

+27 −16
Original line number Diff line number Diff line
@@ -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;
@@ -56,6 +57,7 @@ GetOptions( 
	'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,
@@ -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