summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2017-02-04 09:42:51 +0100
committerDaniel Friesel <derf@finalrewind.org>2017-02-04 09:42:51 +0100
commit8abb5932bc6b794333e94f66587d0549b706836a (patch)
tree0a4305fa162d9a32cc1d4a7591ee0c66bcc5279f
parent994e0b3818aa58d3c4633928413a42c9f3a4142d (diff)
db-iris -V: Increase lookahead for via station
-rwxr-xr-xbin/db-iris11
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,
);
}