add some type parsing

1 files changed, 8 insertions, 2 deletions

diff --git a/bin/db-wagenreihung b/bin/db-wagenreihung
index 959e217..2594478 100755
--- a/bin/db-wagenreihung
+++ b/bin/db-wagenreihung
@@ -43,7 +43,7 @@ my ( $station, $train_number ) = @ARGV;
 
 my $col_first  = "\e[38;5;11m";
 my $col_mixed  = "\e[38;5;208m";
-my $col_second = "\e[0m"; #"\e[38;5;9m";
+my $col_second = "\e[0m";          #"\e[38;5;9m";
 my $col_reset  = "\e[0m";
 
 my $res = Travel::Status::DE::IRIS->new(
@@ -122,4 +122,10 @@ for my $wagon ( $wr->wagons ) {
 		$col_reset,          ' ' x $spacing_right );
 }
 print $wr->direction == 100 ? '>' : '<';
-print "\n";
+print "\n\n";
+
+for my $wagon ( $wr->wagons ) {
+	printf( "%3s: %10s  %s\n",
+		$wagon->number || '?',
+		$wagon->type, join( q{  }, $wagon->attributes ) );
+}