diff options
| -rwxr-xr-x | bin/efa | 13 | ||||
| -rw-r--r-- | provides/zsh/completions/_efa | 1 |
2 files changed, 13 insertions, 1 deletions
@@ -27,6 +27,7 @@ my $restrict; my $prefer; my $proximity; my $walk_speed; +my $with_bike; my $debug = 0; my $ignore_info = 'Fahrradmitnahme'; my ($i, $j, $con, $part); @@ -117,6 +118,7 @@ sub prepare_content($) { GetOptions( 'arrive=s' => \$time_arrive, + 'bike' => \$with_bike, 'date=s' => \$date, 'debug' => \$debug, 'depart=s' => \$time_depart, @@ -232,6 +234,11 @@ if ($walk_speed) { } } +if ($with_bike) { + $ignore_info = undef; + $post{bikeTakeAlong} = 1; +} + $www->get($firsturl); $www->submit_form( form_name => 'jp', @@ -265,7 +272,7 @@ $cons = parse_content($raw); for ($i = 0; $con = $cons->[$i]; $i++) { for ($j = 0; $part = $con->[$j]; $j++) { foreach (@{$part->{extra}}) { - unless (length($ignore_info) and $_ =~ /$ignore_info/i) { + unless ($ignore_info and $_ =~ /$ignore_info/i) { print "# $_\n"; } } @@ -329,6 +336,10 @@ Journey end time (overrides --time/--depart) Journey date +=item B<--bike> + +Choose connections where you can take a bike with you + =item B<--exclude> I<transports> Exclude I<transports> (comma separated list). diff --git a/provides/zsh/completions/_efa b/provides/zsh/completions/_efa index 94fa447..84d805c 100644 --- a/provides/zsh/completions/_efa +++ b/provides/zsh/completions/_efa @@ -5,6 +5,7 @@ arguments=( '--from:city: :stop: ' '--to:city: :stop: ' '--via:city: :stop: ' + '--bike' '--debug' '(--depart --arrive)--time:time' '(--depart --time)--arrive:time' |