Commit 0fd9e8a9 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

efa: Added --max-change (maximum number of interchanges)

parent 065e00fd

bin/efa

+10 −0
Original line number Diff line number Diff line
@@ -21,6 +21,7 @@ my $cons; 
my (@from, @to, @via);

my ($time, $time_depart, $time_arrive);

my $date;

my $maxinter;

my $restrict;

my $prefer;

my $proximity;
@@ -120,6 +121,7 @@ GetOptions( 
	'from=s{2}' => \@from,

	'help'      => sub {exec('perldoc', $0)},

	'ignore-info=s' => \$ignore_info,

	'max-change=i'  => \$maxinter,

	'post=s'    => \%post,

	'prefer=s'  => \$prefer,

	'proximity' => \$proximity,
@@ -163,6 +165,10 @@ if ($date) { 
	@post{'itdDateDay','itdDateMonth','itdDateYear'} = split(/\./, $date);

}



if (defined($maxinter)) {

	$post{maxChanges} = $maxinter;

}



if ($prefer) {

	given($prefer) {

		when('speed') { $post{routeType} = 'LEASTTIME' }
@@ -286,6 +292,10 @@ Journey end time (overrides --time/--depart) 


Journey date



=item B<--max-change> I<number>



Print connections with at most I<number> interchanges



=item B<--prefer> I<type>



Prefer connections of I<type>:

provides/zsh/completions/_efa

+1 −0
Original line number Diff line number Diff line
@@ -10,6 +10,7 @@ arguments=( 
	'(--depart --time)--arrive:time'

	'(--arrive --time)--depart:time'

	'--date:date'

	'--max-change:number'

	'--prefer:type:(speed nowait nowalk)'

	'--proximity'

	'--restrict:type:(local ic ice)'