summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/hafas-m15
1 files changed, 10 insertions, 5 deletions
diff --git a/bin/hafas-m b/bin/hafas-m
index c4333f4..cc6ce2d 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -51,12 +51,17 @@ GetOptions(
) or show_help(1);
if ($list_services) {
- printf( "%-40s %-14s %s\n\n", 'operator', 'abbr. (-s)', 'languages (-l)' );
+ printf(
+ "%-40s %-14s %-15s %s\n\n",
+ 'operator', 'abbr. (-s)', 'languages (-l)',
+ 'time zone'
+ );
for my $service ( Travel::Status::DE::HAFAS::get_services() ) {
printf(
- "%-40s %-14s %s\n",
+ "%-40s %-14s %-15s %s\n",
@{$service}{qw(name shortname)},
- join( q{ }, @{ $service->{languages} // [] } )
+ join( q{ }, @{ $service->{languages} // [] } ),
+ $service->{time_zone} // q{},
);
}
exit 0;
@@ -757,8 +762,8 @@ 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
-operator from this list for a HAFAS request.
+List known HAFAS instances and exit. Use B<-s>|B<--service> to select a
+service from this list for a HAFAS request.
=item B<-m>, B<--mot> I<motlist>