diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-02-09 13:56:33 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-02-09 13:56:33 +0100 |
| commit | e403f10952ae923d9b7acd4ea8694c7854c5601b (patch) | |
| tree | 736c5846ef778a59ea155cbb8c92dd6d8f81d463 /bin | |
| parent | 520e11a25e0c970cc0382af4bfb3565a9ced96fa (diff) | |
Add support for service-specific proxies
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/hafas-m | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/bin/hafas-m b/bin/hafas-m index 474b5b4..7b89f13 100755 --- a/bin/hafas-m +++ b/bin/hafas-m @@ -59,7 +59,7 @@ GetOptions( if ($list_services) { printf( - "%-40s %-14s %-15s %s\n\n", + "%-40s %-14s %-15s %s\n\n", 'operator', 'abbr. (-s)', 'languages (-l)', 'time zone' ); @@ -70,8 +70,10 @@ if ($list_services) { next; } printf( - "%-40s %-14s %-15s %s\n", - @{$service}{qw(name shortname)}, + "%-40s%1s %-14s %-15s %s\n", + $service->{name}, + $service->{geoip_lock} ? q{!} : q{ }, + $service->{shortname}, join( q{ }, @{ $service->{languages} // [] } ), $service->{time_zone} // q{}, ); @@ -657,8 +659,8 @@ else { } my $entry = [ - ( $d->is_cancelled ? '--:--' : $d->datetime->strftime('%H:%M') ) - . ( $d->tz_offset ? q{*} : ( q{ } x $offset_len ) ), + ( $d->is_cancelled ? '--:--' : $d->datetime->strftime('%H:%M') ) + . ( $d->tz_offset ? q{*} : ( q{ } x $offset_len ) ), $d->is_cancelled ? q{} : format_delay( $d->delay, $delay_len ), |