Commit 8abb5932 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

db-iris -V: Increase lookahead for via station

parent 994e0b38

bin/db-iris

+5 −6
Original line number Diff line number Diff line
@@ -17,9 +17,10 @@ use List::MoreUtils qw(none); 
use Travel::Status::DE::IRIS;

use Travel::Status::DE::IRIS::Stations;



my ( $date, $time, $lookahead );

my ( $date, $time );

my $datetime       = DateTime->now( time_zone => 'Europe/Berlin' );

my $developer_mode = 0;

my $lookahead      = 3 * 60;

my $realtime       = 0;

my $with_related   = 1;

my ( $filter_via, $track_via, $status_via );
@@ -133,12 +134,10 @@ my $status = Travel::Status::DE::IRIS->new( 
	with_related   => $with_related,

);

if ($track_via) {



	# lookahead should not be used here - the via stop is reached an unknown

	# amount of time later

	$status_via = Travel::Status::DE::IRIS->new(

		datetime  => $datetime,

		station   => $track_via,

		lookahead => $lookahead + 3 * 60,

	);

}