efa-m: Show delay next to estimated departure time (if available)

1 files changed, 7 insertions, 5 deletions

diff --git a/bin/efa-m b/bin/efa-m
index dfa6ef7..48d321b 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -87,10 +87,7 @@ sub display_result {
 		}
 
 		printf(
-			join( q{  },
-				"%${line_length[0]}s",
-				( map { "%-${_}s" } @line_length[ 1 .. $#line_length ] ) )
-			  . "\n",
+			join( q{  }, ( map { "%-${_}s" } @line_length ) ) . "\n",
 			@{$line}[ 0 .. 3 ]
 		);
 	}
@@ -122,6 +119,7 @@ sub show_results {
 	for my $d ( $status->results ) {
 
 		my $platform = $d->platform;
+		my $dtime    = $d->time;
 
 		if ( $d->platform_db ) {
 			$platform .= ' (DB)';
@@ -136,8 +134,12 @@ sub show_results {
 			next;
 		}
 
+		if ( $d->delay ) {
+			$dtime .= ' (+' . $d->delay . ')';
+		}
+
 		push( @output,
-			[ $d->time, $platform, $d->line, $d->destination, $d->info ] );
+			[ $dtime, $platform, $d->line, $d->destination, $d->info ] );
 	}
 
 	display_result(@output);