diff options
Diffstat (limited to 'bin/db-iris')
| -rwxr-xr-x | bin/db-iris | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/bin/db-iris b/bin/db-iris index 78ebe44..45d16f7 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -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, + datetime => $datetime, + station => $track_via, + lookahead => $lookahead + 3 * 60, ); } |