diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/db-wagenreihung | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/bin/db-wagenreihung b/bin/db-wagenreihung index 2594478..7a17c27 100755 --- a/bin/db-wagenreihung +++ b/bin/db-wagenreihung @@ -70,6 +70,8 @@ my $wr = Travel::Status::DE::DBWagenreihung->new( train_number => $train_number, ); +printf("%s %s in %s Gleis %s\n", $wr->train_type, $wr->train_no, $wr->station_name, $wr->platform); + for my $section ( $wr->sections ) { my $section_length = $section->length_percent; my $spacing_left = int( ( $section_length - 2 ) / 2 ) - 1; |