diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-04-02 19:33:25 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-04-02 19:33:25 +0200 |
| commit | feec7648e7ae2f91d4516f76a148e53996026d2b (patch) | |
| tree | b3c40a95b00511a988ef4a4c6d6678a82a66efc5 | |
| parent | fcc79e14eec5aaa6556498ba0df65da11207f33e (diff) | |
--list: include time zone
| -rwxr-xr-x | bin/hafas-m | 15 |
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> |