diff options
author | Daniel Friesel <derf@finalrewind.org> | 2019-01-03 21:01:14 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2019-01-03 21:01:14 +0100 |
commit | a292fc5ba4a8be919f2fc467cf528b79a6f8c7a3 (patch) | |
tree | 6303f4d15c4bed9a19671604f1b17bec6cc09315 /bin/db-wagenreihung | |
parent | 6436acb5833ecec7f6bddc33461efb8c875d19b5 (diff) |
add origin/destination accessors, support wings in orig/dest/train no
Diffstat (limited to 'bin/db-wagenreihung')
-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 ) { |