From 43f83fc7df3a563521af01dd1251ddd8e8d21d3a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 11 Sep 2011 13:17:12 +0200
Subject: Add initial support for additional departure information

---
 bin/efa-m | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'bin')

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);
-- 
cgit v1.2.3