From 133ccd4be051d7ce70219293c6d17eb309425803 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 17 Aug 2014 16:21:11 +0200
Subject: [PATCH] add efa -l / --list option
---
bin/efa | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/bin/efa b/bin/efa
index ee85bf7..eb044d4 100755
--- a/bin/efa
+++ b/bin/efa
@@ -169,6 +169,7 @@ GetOptions(
full-route|f
help|h
ignore-info|I:s
+ list|l
maps|M
max-change|m=i
num-connections|n=i
@@ -184,6 +185,15 @@ GetOptions(
},
) or show_help(1);
#>>>
+
+if ( $opt->{list} ) {
+ printf( "%-40s %-14s %s\n\n", 'service', 'abbr. (efa -s)', 'url (efa -u)' );
+ for my $service ( Travel::Routing::DE::EFA::get_efa_urls() ) {
+ printf( "%-40s %-14s %s\n", @{$service}{qw(name shortname url)} );
+ }
+ exit 0;
+}
+
if ( not( @from and @to ) ) {
if ( @ARGV == 4 ) {
( @from[ 0, 1 ], @to[ 0, 1 ] ) = @ARGV;
@@ -423,6 +433,11 @@ Display duration, ticket class and price for each route (if available)
Display intermediate stops (with time and platform) of each train. Note that
these are not always available.
+=item B<-l>|B<--list>
+
+List suddorted EFA services wit their URLs (see B<-u>) and abbreviations
+(see B<-s>).
+
=item B<-m>|B<--max-change> I<number>
Print connections with at most I<number> interchanges
--
GitLab