summaryrefslogtreecommitdiff
path: root/bin/hafas-m
diff options
context:
space:
mode:
Diffstat (limited to 'bin/hafas-m')
-rwxr-xr-xbin/hafas-m42
1 files changed, 27 insertions, 15 deletions
diff --git a/bin/hafas-m b/bin/hafas-m
index 7a683b7..ceac8cc 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -14,7 +14,7 @@ use List::MoreUtils qw(uniq);
use List::Util qw(first max);
use Travel::Status::DE::HAFAS;
-my ( $date, $time );
+my ( $date, $time, $language );
my $arrivals = 0;
my $types = q{};
my $developer_mode;
@@ -30,23 +30,28 @@ for my $arg (@ARGV) {
}
GetOptions(
- 'a|arrivals' => \$arrivals,
- 'd|date=s' => \$date,
- 'h|help' => sub { show_help(0) },
- 'm|mot=s' => \$types,
- 's|service=s' => \$service,
- 't|time=s' => \$time,
- 'V|version' => \&show_version,
- 'devmode' => \$developer_mode,
- 'json' => \$json_output,
- 'list' => \$list_services,
+ 'a|arrivals' => \$arrivals,
+ 'd|date=s' => \$date,
+ 'h|help' => sub { show_help(0) },
+ 'l|language=s' => \$language,
+ 'm|mot=s' => \$types,
+ 's|service=s' => \$service,
+ 't|time=s' => \$time,
+ 'V|version' => \&show_version,
+ 'devmode' => \$developer_mode,
+ 'json' => \$json_output,
+ 'list' => \$list_services,
) or show_help(1);
if ($list_services) {
- printf( "%-40s %-14s\n\n", 'operator', 'abbr. (-s)' );
+ printf( "%-40s %-14s %s\n\n", 'operator', 'abbr. (-s)', 'languages (-l)' );
for my $service ( Travel::Status::DE::HAFAS::get_services() ) {
- printf( "%-40s %-14s\n", @{$service}{qw(name shortname)} );
+ printf(
+ "%-40s %-14s %s\n",
+ @{$service}{qw(name shortname)},
+ join( q{ }, @{ $service->{languages} // [] } )
+ );
}
exit 0;
}
@@ -60,6 +65,7 @@ my %opt = (
arrivals => $arrivals,
developer_mode => $developer_mode,
service => $service,
+ language => $language,
);
if ( $opt{station} =~ m{ ^ (?<lat> [0-9.]+ ) : (?<lon> [0-9].+ ) $ }x ) {
@@ -369,11 +375,11 @@ hafas-m - Interface to the DeutscheBahn/HAFAS online departure monitor
=head1 SYNOPSIS
B<hafas-m> [B<-d> I<date>] [B<-t> I<time>] [B<-m> I<motlist>]
-[B<-s> I<service>] I<station>
+[B<-s> I<service>] [B<-l> I<language>] I<station>
B<hafas-m> [B<-s> I<service>] B<?>I<query>|I<lat>B<:>I<lon>
-B<hafas-m> [B<-s> I<service>] I<journeyID>
+B<hafas-m> [B<-s> I<service>] [B<-l> I<language>] I<journeyID>
=head1 VERSION
@@ -442,6 +448,12 @@ Print result(s) as JSON. This is a dump of internal data structures and not
guaranteed to remain stable between minor versions. Please use the
Travel::Status::DE::HAFAS(3pm) module if you need a proper API.
+=item B<-l>, B<--language> I<language>
+
+Request free-text messages to be provided in I<language>.
+See B<--list> for a list of languages supported by individual HAFAS instances.
+Note that requesting an invalid/unsupported language may lead to garbage output.
+
=item B<--list>
List known HAFAS installations and exit. Use B<-s>|B<--service> to select an