summaryrefslogtreecommitdiff
path: root/bin/efa
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-18 22:22:25 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-18 22:22:25 +0100
commitb8fd2abe65a1ff299307e06d576ae3b9cc5b8af2 (patch)
treeba07a291bf944564f2487ddd9718c9b0f1c7a67b /bin/efa
parenteccf8ca2b1d6625a2d17d12ab2f0dbc5d49fac75 (diff)
add efa-url support to efa script
Diffstat (limited to 'bin/efa')
-rwxr-xr-xbin/efa22
1 files changed, 17 insertions, 5 deletions
diff --git a/bin/efa b/bin/efa
index 7fc54f1..d3233c7 100755
--- a/bin/efa
+++ b/bin/efa
@@ -11,21 +11,23 @@ no if $] >= 5.018, warnings => "experimental::smartmatch";
use utf8;
use Encode qw(decode);
-use Travel::Routing::DE::VRR;
+use Travel::Routing::DE::EFA;
use Exception::Class;
use Getopt::Long qw/:config no_ignore_case/;
our $VERSION = '2.04';
my $ignore_info = 'Fahrradmitnahme';
my $efa;
+my $efa_url = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2';
my ( @from, @to, @via, $from_type, $to_type, $via_type );
my $opt = {
+ 'efa-url' => \$efa_url,
'help' => sub { show_help(0) },
'ignore-info' => \$ignore_info,
'from' => \@from,
'to' => \@to,
- 'version' => sub { say "efa version $VERSION"; exit 0 },
- 'via' => \@via,
+ 'version' => sub { say "efa version $VERSION"; exit 0 },
+ 'via' => \@via,
};
binmode( STDOUT, ':encoding(utf-8)' );
@@ -146,6 +148,7 @@ GetOptions(
bike|b
date|d=s
depart=s
+ efa-url|u=s
exclude|e=s@
extended-info|E
from=s@{2}
@@ -199,7 +202,9 @@ if ( defined $opt->{'ignore-info'} and length( $opt->{'ignore-info'} ) == 0 ) {
}
$efa = eval {
- Travel::Routing::DE::VRR->new(
+ Travel::Routing::DE::EFA->new(
+ efa_url => $efa_url,
+
origin => [ @from, $from_type ],
destination => [ @to, $to_type ],
via => ( @via ? [ @via, $via_type ] : undef ),
@@ -381,6 +386,13 @@ Ignore additional information matching I<regex> (default: /Fahrradmitnahme/)
If I<regex> is not supplied, removes the default regex (-E<gt> nothing will be ignored)
+=item B<-u>|B<--efa-url> I<url>
+
+URL to the EFA entry point, defaults to
+L<http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2>. Depending on your location, some
+I<url>s may contain more specific data than others. See
+Travel::Routing::DE::EFA(3pm) for alternatives.
+
=item B<--timeout> I<seconds>
Set timeout for HTTP requests. Default: 60 seconds.
@@ -407,7 +419,7 @@ Print version information
3 efa.vrr.de did not return any parsable data
4 efa.vrr.de error: ambiguous input
5 efa.vrr.de error: no connections found
- 10 Unknown Travel::Routing::DE::VRR error
+ 10 Unknown Travel::Routing::DE::EFA error
255 Other internal error
=head1 CONFIGURATION