From 10687196f1f39d01c17a415898758b3a65608396 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 13 Jul 2011 13:13:24 +0200 Subject: DeutscheBahn/Result: Return only useful text in info, add info_raw for the raw string --- bin/db-ris | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'bin/db-ris') diff --git a/bin/db-ris b/bin/db-ris index f5633b0..962b5cd 100755 --- a/bin/db-ris +++ b/bin/db-ris @@ -84,14 +84,6 @@ sub display_result { return; } -sub filter_info { - my ($info) = @_; - - $info =~ s{ (?: ^ | , ) (?: p.nktlich | k [.] A [.] ) }{}x; - - return $info; -} - sub filter_via { my (@via) = @_; @@ -151,7 +143,7 @@ for my $d ( $status->results() ) { [ $d->time, $d->train, join( q{ }, filter_via(@via) ), $d->destination, - $d->platform, filter_info( $d->info ) + $d->platform, $d->info, ] ); } -- cgit v1.2.3