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

1 files changed, 15 insertions, 0 deletions

diff --git a/bin/efa b/bin/efa
index 9d8f1e5..de1f4bc 100755
--- a/bin/efa
+++ b/bin/efa
@@ -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/)