Mirrors/travelynx
2
0
Fork 0
mirror of https://github.com/derf/travelynx synced 2024-12-04 02:09:09 +00:00
Code Issues Projects Releases Packages Wiki Activity

polyline sanity check: Handle border stations and incomplete IRIS routes

Browse source
This commit is contained in:
Daniel Friesel 2020-02-25 21:25:53 +01:00
parent 1d2b37f849
commit 3c897ad62a
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lib/Travelynx.pm
View file

@ -2077,10 +2077,19 @@ sub startup {
$cache->freeze( $url, $ret );
my $iris_stations = join( '|', $train->route );
my $hafas_stations = join( '|', @station_list );
# borders ("(Gr)" as in "Grenze") are only returned by HAFAS.
# They are not stations.
my $iris_stations = join( '|', $train->route );
my $hafas_stations
= join( '|', grep { $_ !~ m{\(Gr\)$} } @station_list );
if ( $iris_stations ne $hafas_stations ) {
# Do not return polyline if it belongs to an entirely different
# train. Trains with longer routes (e.g. due to train number
# changes, which are handled by HAFAS but left out in IRIS)
# are okay though.
if ( $iris_stations ne $hafas_stations
and index( $hafas_stations, $iris_stations ) == -1 )
{
$self->app->log->warn( 'Ignoring polyline for '
. $train->line
. ": IRIS route does not agree with HAFAS route: $iris_stations != $hafas_stations"