diff options
| author | Daniel Friesel <daniel.friesel@uos.de> | 2021-08-31 17:41:38 +0200 |
|---|---|---|
| committer | Daniel Friesel <daniel.friesel@uos.de> | 2021-08-31 17:41:38 +0200 |
| commit | 39746c144b1bcfccaaae1dc9534c3017c4814bf5 (patch) | |
| tree | 42d130f99ad2c654679c771edfccdbf8ea86273f | |
| parent | 5cae00129a4b79802b97e48e9cd316b203e7d4af (diff) | |
Increase default lookahead to three hours; respect $DBFAKEDISPLAY_LOOKAHEAD
| -rw-r--r-- | lib/DBInfoscreen.pm | 1 | ||||
| -rw-r--r-- | lib/DBInfoscreen/Controller/Stationboard.pm | 13 |
2 files changed, 6 insertions, 8 deletions
diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm index cd97398..12da336 100644 --- a/lib/DBInfoscreen.pm +++ b/lib/DBInfoscreen.pm @@ -33,6 +33,7 @@ sub startup { spare => $ENV{DBFAKEDISPLAY_SPARE} // 2, workers => $ENV{DBFAKEDISPLAY_WORKERS} // 2, }, + lookahead => $ENV{DBFAKEDISPLAY_LOOKAHEAD} // 180, source_url => 'https://github.com/derf/db-fakedisplay', issue_url => 'https://github.com/derf/db-fakedisplay/issues', version => $ENV{DBFAKEDISPLAY_VERSION} // qx{git describe --dirty} diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm index 18fa100..3ff5a69 100644 --- a/lib/DBInfoscreen/Controller/Stationboard.pm +++ b/lib/DBInfoscreen/Controller/Stationboard.pm @@ -265,6 +265,7 @@ sub handle_request { my %opt = ( cache_iris_main => $self->app->cache_iris_main, cache_iris_rt => $self->app->cache_iris_rt, + lookahead => $self->config->{lookahead} ); my $api_version = $Travel::Status::DE::IRIS::VERSION; @@ -315,21 +316,17 @@ sub handle_request { $self->stash( input => $station ); $self->param( input => $station ); - if ( $template eq 'json' ) { - $opt{lookahead} = 120; - } - if ($with_related) { $opt{with_related} = 1; } if ( $self->param('train') ) { - # request results from five minutes ago to avoid train details suddenly - # becoming unavailable when its scheduled departure is reached. + # request results from twenty minutes ago to avoid train details suddenly + # becoming unavailable when its scheduled departure is reached. $opt{datetime} = DateTime->now( time_zone => 'Europe/Berlin' ) ->subtract( minutes => 20 ); - $opt{lookahead} = 200; + $opt{lookahead} = $self->config->{lookahead} + 20; } my $data = get_results_for( $station, %opt ); @@ -816,7 +813,7 @@ sub station_train_details { $opt{datetime} = DateTime->now( time_zone => 'Europe/Berlin' ) ->subtract( minutes => 20 ); - $opt{lookahead} = 200; + $opt{lookahead} = $self->config->{lookahead} + 20; my $data = get_results_for( $station, %opt ); my $errstr = $data->{errstr}; |