switch to HAFAS backend

1 files changed, 10 insertions, 8 deletions

diff --git a/index.pl b/index.pl
index 82cf7e7..22dacd8 100644
--- a/index.pl
+++ b/index.pl
@@ -3,7 +3,7 @@ use Mojolicious::Lite;
 use Cache::File;
 use File::Slurp qw(read_file write_file);
 use List::MoreUtils qw();
-use Travel::Status::DE::DeutscheBahn;
+use Travel::Status::DE::HAFAS;
 use Travel::Status::DE::IRIS;
 use Travel::Status::DE::IRIS::Stations;
 use 5.014;
@@ -68,8 +68,9 @@ sub get_results_for {
 			$cache->freeze( $cache_str, $data );
 		}
 		else {
-			my $status = Travel::Status::DE::DeutscheBahn->new(
-				station => $station,
+			my $status = Travel::Status::DE::HAFAS->new(
+				station       => $station,
+				excluded_mots => [qw[bus ferry ondemand tram u]],
 				%opt
 			);
 			$data = {
@@ -175,7 +176,7 @@ sub handle_request {
 	my $api_version
 	  = $backend eq 'iris'
 	  ? $Travel::Status::DE::IRIS::VERSION
-	  : $Travel::Status::DE::DeutscheBahn::VERSION;
+	  : $Travel::Status::DE::HAFAS::VERSION;
 
 	$self->stash( departures => [] );
 	$self->stash( title      => 'db-infoscreen' );
@@ -322,7 +323,7 @@ sub handle_request {
 		my $platform = ( split( / /, $result->platform ) )[0];
 		my $line     = $result->line;
 		my $delay    = $result->delay;
-		if ($via) {
+		if ( $via and $result->can('route') ) {
 			my @route = $result->route;
 			if ( $result->isa('Travel::Status::DE::IRIS::Result') ) {
 				@route = $result->route_post;
@@ -416,6 +417,9 @@ sub handle_request {
 			if ($info) {
 				$moreinfo = [ [ 'RIS', $info ] ];
 			}
+			if ( $result->delay and $result->delay > 0 ) {
+				$info = 'ca. +' . $result->delay . ': ' . $info;
+			}
 		}
 
 		my $time = $result->time;
@@ -618,7 +622,6 @@ sub handle_request {
 					time         => $time,
 					train        => $result->train,
 					train_type   => $result->type,
-					via          => [ $result->route_interesting(3) ],
 					destination  => $result->destination,
 					platform     => $platform,
 					info         => $info,
@@ -635,8 +638,7 @@ sub handle_request {
 					canceled_stops   => [],
 					replaced_by      => [],
 					replacement_for  => [],
-					route_timetable  => [ $result->route_timetable ],
-					route_info       => $result->route_info,
+					route_info       => [ $result->messages ],
 				}
 			);
 		}