From 9e453dec999ac7fd5fc7b526bb7fe04d9c20112e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 3 Aug 2014 23:08:27 +0200
Subject: add --discover option and get_efa_urls method

---
 Changelog                    |  4 +++-
 bin/efa                      | 41 +++++++++++++++++++++++++++++++++++
 lib/Travel/Routing/DE/EFA.pm | 51 ++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 95 insertions(+), 1 deletion(-)

diff --git a/Changelog b/Changelog
index abfff2b..fd4b654 100644
--- a/Changelog
+++ b/Changelog
@@ -3,7 +3,9 @@ git HEAD
     * Add URLs for several austrian EFA services
       (pointed out by Gregor Herrmann)
     * Support EFA services which do not distinguish between scheduled
-      and realtime data (pointed out by Gregor Herrmann)
+      and realtime data (also pointed out by Gregor Herrmann)
+    * efa: Add -D/--discover option
+    * Travel::Routing::DE::EFA: Add get_efa_urls method
 
 Travel::Routing::DE::VRR 2.06 - Sat Aug 02 2014
 
diff --git a/bin/efa b/bin/efa
index fa3a309..3d8a377 100755
--- a/bin/efa
+++ b/bin/efa
@@ -160,6 +160,7 @@ GetOptions(
 		bike|b
 		date|d=s
 		depart=s
+		discover|D
 		efa-url|u=s
 		exclude|e=s@
 		extended-info|E
@@ -220,6 +221,40 @@ if ( $opt->{exclude} ) {
 	$opt->{exclude} = [ split( /,/, join( ',', @{ $opt->{exclude} } ) ) ];
 }
 
+if ( $opt->{discover} ) {
+	for my $pair ( Travel::Routing::DE::EFA::get_efa_urls() ) {
+		my ( $url, $name ) = @{$pair};
+		$efa = eval {
+			Travel::Routing::DE::EFA->new(
+				efa_url => $url,
+
+				origin      => [ @from, $from_type ],
+				destination => [ @to,   $to_type ],
+				via => ( @via ? [ @via, $via_type ] : undef ),
+
+				arrival_time   => $opt->{arrive},
+				departure_time => $opt->{depart} // $opt->{time},
+				date           => $opt->{date},
+				exclude        => $opt->{exclude},
+				train_type     => $opt->{include},
+				with_bike      => $opt->{bike},
+
+				select_interchange_by => $opt->{prefer},
+				use_near_stops        => $opt->{proximity},
+				walk_speed            => $opt->{'walk-speed'},
+				max_interchanges      => $opt->{'max-change'},
+				num_results           => $opt->{'num-connections'},
+
+				lwp_options => { timeout => $opt->{timeout} },
+			);
+		};
+		if ($efa) {
+			printf( "%-55s (%s)\n", $url, $name );
+		}
+	}
+	exit 0;
+}
+
 $efa = eval {
 	Travel::Routing::DE::EFA->new(
 		efa_url => $efa_url,
@@ -344,6 +379,12 @@ Journey date
 
 Choose connections allowing to carry a bike
 
+=item B<-D>|B<--discover>
+
+Probe all known EFA entry points for the specified connection. No routes are
+returned in this case. Instead, B<efa> will print the URLs and names of all
+entry points which did not return an error.
+
 =item B<-e>|B<--exclude> I<transports>
 
 Exclude I<transports> (comma separated list).
diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm
index 931b634..149dc8e 100644
--- a/lib/Travel/Routing/DE/EFA.pm
+++ b/lib/Travel/Routing/DE/EFA.pm
@@ -742,6 +742,45 @@ sub routes {
 	return @{ $self->{routes} };
 }
 
+# static
+sub get_efa_urls {
+	return (
+		[
+			'http://efa.ivb.at/ivb/XSLT_TRIP_REQUEST2',
+			'Innsbrucker Verkehsbetriebe'
+		],
+		[
+			'http://efa.svv-info.at/sbs/XSLT_TRIP_REQUEST2',
+			'Salzburger Verkehrsverbund'
+		],
+		[
+			'http://efa.vor.at/wvb/XSLT_TRIP_REQUEST2',
+			'Verkehrsverbund Ost-Region'
+		],
+		[
+			'http://efaneu.vmobil.at/vvv/XSLT_TRIP_REQUEST2',
+			'Vorarlberger Verkehrsverbund'
+		],
+		[
+			'http://fahrplan.verbundlinie.at/stv/XSLT_TRIP_REQUEST2',
+			'Verkehsverbund Steiermark'
+		],
+		[ 'http://www.linzag.at/static/XSLT_TRIP_REQUEST2', 'Linz AG' ],
+		[
+			'http://212.114.197.7/vgnExt_oeffi/XML_TRIP_REQUEST2',
+			'Verkehrsverbund Grossraum Nuernberb'
+		],
+		[
+			'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2',
+			'Verkehrsverbund Rhein-Ruhr'
+		],
+		[
+			'http://www2.vvs.de/vvs/XSLT_TRIP_REQUEST2',
+			'Verkehrsverbund Stuttgart'
+		],
+	);
+}
+
 1;
 
 __END__
@@ -957,6 +996,18 @@ The following methods act like the arguments to B<new>. See there.
 
 =back
 
+=head2 STATIC METHODS
+
+=over
+
+=item Travel::Status::DE::VRR::get_efa_urls()
+
+Returns a list of known EFA entry points. Each list element is a reference to
+an array consisting of two strings. The first one is the URL (as passed to
+B<efa_url>), the second describes the entity to which this URL belongs.
+
+=back
+
 =head1 DIAGNOSTICS
 
 When encountering an error, Travel::Routing::DE::EFA throws a
-- 
cgit v1.2.3