summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2018-12-27 15:25:27 +0100
committerDaniel Friesel <derf@finalrewind.org>2018-12-27 15:25:27 +0100
commitb066c8145dfb091f073d91ca1ed043847d0c390b (patch)
tree67ad0e602f6b6b06155e09da082ae0088a1e032a /bin
parentca490a14daae934d4e846d900a8dde40cab2fc46 (diff)
add some type parsing
Diffstat (limited to 'bin')
-rwxr-xr-xbin/db-wagenreihung10
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 ) );
+}