summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rw-r--r--bin/dbwagenreihung10
1 files changed, 8 insertions, 2 deletions
diff --git a/bin/dbwagenreihung b/bin/dbwagenreihung
index 0c5b2fe..1d842fa 100644
--- a/bin/dbwagenreihung
+++ b/bin/dbwagenreihung
@@ -27,10 +27,16 @@ if (@trains != 1) {
my $wr = Travel::Status::DE::DBWagenreihung->new(
departure => $trains[0]->sched_departure,
- developer_mode => 1,
train_number => $train_number,
);
for my $wagon ($wr->wagons) {
- printf("%s %s\n", $wagon->number, $wagon->section);
+ printf("%s %2s", $wagon->section, $wagon->number || 'X');
+ if ($wagon->class_type == 12) {
+ print(" 1/2");
+ }
+ elsif ($wagon->class_type) {
+ printf(" %d", $wagon->class_type);
+ }
+ print("\n");
}