db-ris: Only show info column when a train is late

1 files changed, 11 insertions, 1 deletions

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