diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/db-wagenreihung | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/bin/db-wagenreihung b/bin/db-wagenreihung index 11572a9..8884547 100755 --- a/bin/db-wagenreihung +++ b/bin/db-wagenreihung @@ -71,9 +71,13 @@ my $wr = Travel::Status::DE::DBWagenreihung->new( ); printf( - "%s %s (%s) in %s Gleis %s\n\n", - $wr->train_type, $wr->train_no, $wr->train_subtype // '-', - $wr->station_name, $wr->platform + "%s: %s → %s (%s)\n%s Gleis %s\n\n", + join( ' / ', map { $wr->train_type . ' ' . $_ } $wr->train_numbers ), + join( ' / ', $wr->origins ), + join( ' / ', $wr->destinations ), + $wr->train_subtype // 'IC?', + $wr->station_name, + $wr->platform ); for my $section ( $wr->sections ) { |