From 0fd9e8a907d79c82d58dd34d031db20462aed115 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Tue, 19 May 2009 21:24:36 +0200
Subject: [PATCH] efa: Added --max-change (maximum number of interchanges)
---
bin/efa | 10 ++++++++++
provides/zsh/completions/_efa | 1 +
2 files changed, 11 insertions(+)
diff --git a/bin/efa b/bin/efa
index 3f512a2..db89e54 100755
--- a/bin/efa
+++ b/bin/efa
@@ -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>:
diff --git a/provides/zsh/completions/_efa b/provides/zsh/completions/_efa
index da1ce0b..92f3bad 100644
--- a/provides/zsh/completions/_efa
+++ b/provides/zsh/completions/_efa
@@ -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)'
--
GitLab