db-iris: support arrival wings as well

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 );
 	}
 }