Add generic train data accessors

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;