From 653d3c749a1385b661e3f91181c69df768b9cd84 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 6 Jul 2011 14:40:05 +0200
Subject: db-ris: Only show info column when a train is late

---
 bin/db-ris | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/db-ris b/bin/db-ris
index 8d1b833..bffe532 100755
--- a/bin/db-ris
+++ b/bin/db-ris
@@ -80,6 +80,16 @@ sub display_result {
 	return;
 }
 
+sub filter_info {
+	my ($info) = @_;
+
+	if ( $info =~ m{ ^ (?: p.nktlich | k [.] A [.] ) $ }ox ) {
+		return q{};
+	}
+
+	return $info;
+}
+
 sub filter_via {
 	my (@via) = @_;
 
@@ -133,7 +143,7 @@ for my $d ( $status->results() ) {
 		[
 			$d->time, $d->train,
 			join( q{  }, filter_via(@via) ), $d->destination,
-			$d->platform, $d->info
+			$d->platform, filter_info( $d->info )
 		]
 	);
 }
-- 
cgit v1.2.3