summaryrefslogtreecommitdiff
path: root/bin/db-ris
diff options
context:
space:
mode:
Diffstat (limited to 'bin/db-ris')
-rwxr-xr-xbin/db-ris12
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 )
]
);
}