Commit 13f90963 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

efa: Added --walk-speed ("Gehgeschwindigkeit")

parent d788348b

bin/efa

+15 −0
Original line number Diff line number Diff line
@@ -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/)

provides/zsh/completions/_efa

+1 −0
Original line number Diff line number Diff line
@@ -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'

)