diff options
| -rwxr-xr-x | bin/efa | 15 | ||||
| -rw-r--r-- | provides/zsh/completions/_efa | 1 |
2 files changed, 16 insertions, 0 deletions
@@ -26,6 +26,7 @@ my $maxinter; my $restrict; my $prefer; my $proximity; +my $walk_speed; my $debug = 0; my $ignore_info = 'Fahrradmitnahme'; my ($i, $j, $con, $part); @@ -131,6 +132,7 @@ GetOptions( 'time=s' => \$time, 'to=s{2}' => \@to, 'via=s{2}' => \@via, + 'walk-speed=s' => \$walk_speed, ); @exclude = split(/,/, join(',', @exclude)); @@ -222,6 +224,14 @@ if ($restrict) { } } +if ($walk_speed) { + if ($walk_speed =~ /^(normal|fast|slow)$/) { + $post{changeSpeed} = $walk_speed; + } else { + print STDERR "--walk-speed usage: normal / fast / slow\n"; + } +} + $www->get($firsturl); $www->submit_form( form_name => 'jp', @@ -375,6 +385,11 @@ All trains =back +=item B<--walk-speed> I<speed> + +Set your walking speed to I<speed>. +Accepted values: normal (default), fast, slow + =item B<--ignore-info> I<regex> Ignore additional information matching I<regex> (default: /Fahrradmitnahme/) diff --git a/provides/zsh/completions/_efa b/provides/zsh/completions/_efa index 568e572..94fa447 100644 --- a/provides/zsh/completions/_efa +++ b/provides/zsh/completions/_efa @@ -15,6 +15,7 @@ arguments=( '--prefer:type:(speed nowait nowalk)' '--proximity' '--restrict:type:(local ic ice)' + '--walk-speed:speed:(normal fast slow)' '--ignore-info:regex' '*--post:POST key=value' ) |