From 303ece4c611fda31debf2f4211a91dc102913c0a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 18 Jul 2015 14:02:28 +0200
Subject: add accessibility options to bin/efa

---
 bin/efa | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'bin/efa')

diff --git a/bin/efa b/bin/efa
index 2617fc6..ffa7e2b 100755
--- a/bin/efa
+++ b/bin/efa
@@ -20,6 +20,7 @@ our $VERSION = '2.12';
 my $ignore_info = 'Fahrradmitnahme|Einstiegshilfe';
 my $efa;
 my $efa_url = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2';
+my %accessibility;
 my ( @from, @to, @via, $from_type, $to_type, $via_type );
 my $opt = {
 	'efa-url'     => \$efa_url,
@@ -202,6 +203,7 @@ sub display_connection {
 GetOptions(
 	$opt,
 	qw{
+		accessibility|x=s@
 		arrive|a=s
 		auto-url|discover-and-print|A
 		bike|b
@@ -233,6 +235,19 @@ GetOptions(
 ) or show_help(1);
 #>>>
 
+@{ $opt->{accessibility} }
+  = split( qr{,}, join( q{,}, @{ $opt->{accessibility} } ) );
+
+for my $field ( @{ $opt->{accessibility} } ) {
+	given ($field) {
+		when ( [qw[s no-stairs]] )       { $opt->{without_solid_stairs} = 1 }
+		when ( [qw[e no-escalators]] )   { $opt->{without_escalators}   = 1 }
+		when ( [qw[E no-elevators]] )    { $opt->{without_elevators}    = 1 }
+		when ( [qw[l nf low-platform]] ) { $opt->{with_low_platform}    = 1 }
+		when ( [qw[w wheelchair]] )      { $opt->{with_wheelchair}      = 1 }
+	}
+}
+
 if ( $opt->{list} ) {
 	printf( "%-40s %-14s %s\n\n", 'service', 'abbr. (-s)', 'url (-u)' );
 	for my $service ( Travel::Routing::DE::EFA::get_efa_urls() ) {
@@ -323,6 +338,12 @@ if ( $opt->{discover} or $opt->{'auto-url'} ) {
 				max_interchanges      => $opt->{'max-change'},
 				num_results           => $opt->{'num-connections'},
 
+				without_solid_stairs => $opt->{without_solid_stairs},
+				without_escalators   => $opt->{without_escalators},
+				without_elevators    => $opt->{without_elevators},
+				with_low_platform    => $opt->{with_low_platform},
+				with_wheelchair      => $opt->{with_wheelchair},
+
 				developer_mode => $opt->{devmode},
 				lwp_options    => { timeout => $opt->{timeout} },
 			);
@@ -364,6 +385,12 @@ else {
 			max_interchanges      => $opt->{'max-change'},
 			num_results           => $opt->{'num-connections'},
 
+			without_solid_stairs => $opt->{without_solid_stairs},
+			without_escalators   => $opt->{without_escalators},
+			without_elevators    => $opt->{without_elevators},
+			with_low_platform    => $opt->{with_low_platform},
+			with_wheelchair      => $opt->{with_wheelchair},
+
 			developer_mode => $opt->{devmode},
 			lwp_options    => { timeout => $opt->{timeout} },
 		);
-- 
cgit v1.2.3