diff options
| -rw-r--r-- | Changelog | 5 | ||||
| -rwxr-xr-x | bin/db-ris | 12 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn.pm | 3 |
3 files changed, 18 insertions, 2 deletions
@@ -1,6 +1,11 @@ git HEAD + [db-ris] + * Only display info when a train is late, not when on time / unknown + + [Travel::Status::DE::DeutscheBahn] * Proper HTTP request error handling + * Strip leading whitespace from ::Result info Travel::Status::DE::DeutscheBahn 0.01 - Mon Jun 27 2011 @@ -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 ) ] ); } diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm index 12450b2..be0621d 100644 --- a/lib/Travel/Status/DE/DeutscheBahn.pm +++ b/lib/Travel/Status/DE/DeutscheBahn.pm @@ -135,7 +135,8 @@ sub results { $str =~ tr/ //s; } - $info =~ s/,Grund//; + $info =~ s{ ,Grund }{}ox; + $info =~ s{ ^ \s+ }{}ox; while ( $route =~ m{$re_via}g ) { if ($first) { |