diff options
author | Daniel Friesel <derf@finalrewind.org> | 2017-02-04 09:42:51 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2017-02-04 09:42:51 +0100 |
commit | 8abb5932bc6b794333e94f66587d0549b706836a (patch) | |
tree | 0a4305fa162d9a32cc1d4a7591ee0c66bcc5279f /bin/db-iris | |
parent | 994e0b3818aa58d3c4633928413a42c9f3a4142d (diff) |
db-iris -V: Increase lookahead for via station
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, ); } |