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

Changelog

 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
 

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

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) {