summaryrefslogtreecommitdiff
path: root/bin/db-wagenreihung
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2019-01-03 21:01:14 +0100
committerDaniel Friesel <derf@finalrewind.org>2019-01-03 21:01:14 +0100
commita292fc5ba4a8be919f2fc467cf528b79a6f8c7a3 (patch)
tree6303f4d15c4bed9a19671604f1b17bec6cc09315 /bin/db-wagenreihung
parent6436acb5833ecec7f6bddc33461efb8c875d19b5 (diff)
add origin/destination accessors, support wings in orig/dest/train no
Diffstat (limited to 'bin/db-wagenreihung')
-rwxr-xr-xbin/db-wagenreihung10
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 ) {