summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-04-28 11:41:56 +0200
committerDaniel Friesel <derf@finalrewind.org>2015-04-28 11:41:56 +0200
commitfdd8b35771c80743a97b345010ec97f0a0a36c6a (patch)
treed5dbc0ceb1c3d280d54300e1b5a2594e0f7d4424 /bin
parent6d8a390dcff71ef1c4b7755dac97c0e1111e5230 (diff)
db-iris: support arrival wings as well
Diffstat (limited to 'bin')
-rwxr-xr-xbin/db-iris21
1 files changed, 20 insertions, 1 deletions
diff --git a/bin/db-iris b/bin/db-iris
index 91a1d88..a562212 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -395,6 +395,7 @@ for my $d ( $status->results() ) {
]
);
+ my @processed_wings;
for my $wing ( $d->departure_wings ) {
push(
@output,
@@ -407,8 +408,26 @@ for my $d ( $status->results() ) {
$wing
]
);
+ push( @processed_wings, $wing );
}
- if ( $d->departure_wings ) {
+ for my $wing ( $d->arrival_wings ) {
+ if ( not $wing ~~ \@processed_wings ) {
+ push(
+ @output,
+ [
+ '├' . '─' x ( length($timestr) - 1 ),
+ $wing->train,
+ $edata{route}
+ ? join( q{ }, $wing->route_interesting )
+ : q{},
+ $wing->route_end,
+ $platformstr // q{},
+ $wing
+ ]
+ );
+ }
+ }
+ if ( $d->departure_wings or $d->arrival_wings ) {
$output[-1][0] = '└' . '─' x ( length($timestr) - 1 );
}
}