Commit 79f13396 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

efa: Added --bike option ("Fahrradmitnahme")

parent 13f90963

bin/efa

+12 −1
Original line number Diff line number Diff line
@@ -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).

provides/zsh/completions/_efa

+1 −0
Original line number Diff line number Diff line
@@ -5,6 +5,7 @@ arguments=( 
	'--from:city: :stop: '

	'--to:city: :stop: '

	'--via:city: :stop: '

	'--bike'

	'--debug'

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

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