From feec7648e7ae2f91d4516f76a148e53996026d2b Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Tue, 2 Apr 2024 19:33:25 +0200 Subject: --list: include time zone --- bin/hafas-m | 15 ++++++++++----- 1 file 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 -- cgit v1.2.3