Add initial support for additional departure information

1 files changed, 12 insertions, 1 deletions

diff --git a/bin/efa-m b/bin/efa-m
index a722588..0c10ba6 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -64,6 +64,16 @@ sub display_result {
 	}
 
 	for my $line (@lines) {
+
+		if ( length( $line->[4] ) ) {
+			$line->[4] =~ tr{\n\x0d}{ }s;
+			chomp $line->[4];
+			print "\n";
+			for my $info_line ( split( qr{\n}, $line->[4] ) ) {
+				say "# ${info_line}";
+			}
+		}
+
 		printf(
 			join( q{  }, ( map { "%-${_}s" } @line_length ) ) . "\n",
 			@{$line}[ 0 .. 3 ]
@@ -75,7 +85,8 @@ sub display_result {
 
 for my $d ( $status->results ) {
 
-	push( @output, [ $d->time, $d->platform, $d->line, $d->destination, ] );
+	push( @output,
+		[ $d->time, $d->platform, $d->line, $d->destination, $d->info ] );
 }
 
 display_result(@output);