diff options
Diffstat (limited to 'bin/db-iris')
| -rwxr-xr-x | bin/db-iris | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/bin/db-iris b/bin/db-iris index 35ef783..75aec37 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -17,7 +17,7 @@ use List::MoreUtils qw(none); use Travel::Status::DE::IRIS; use Travel::Status::DE::IRIS::Stations; -my ( $date, $time ); +my ( $date, $time, $lookahead ); my $datetime = DateTime->now( time_zone => 'Europe/Berlin' ); my $realtime = 0; my ( $filter_via, $track_via, $status_via ); @@ -34,6 +34,7 @@ GetOptions( 'c|class=s@' => \@grep_class, 'd|date=s' => \$date, 'h|help' => sub { show_help(0) }, + 'l|lookahead=i' => \$lookahead, 'o|output=s@' => \@edata_pre, 'p|platform=s@' => \@grep_platform, 'r|realtime' => \$realtime, @@ -93,10 +94,14 @@ for my $efield (@edata_pre) { } my $status = Travel::Status::DE::IRIS->new( - datetime => $datetime, - station => $station, + datetime => $datetime, + lookahead => $lookahead, + station => $station, ); 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, @@ -378,6 +383,16 @@ Request results for I<date> in dd.mm. oder dd.mm.YYYY format. Note that only slight (a few hours max) deviations from the current time are supported by the IRIS backend, larger ones will not return data. +=item B<-l>, B<--lookahead> I<int> + +Return only those results which are less than I<int> minutes in the future. +Defaults to 240 (4 hours). + +Note that this is only an upper limit, not a guarantee to get every train +with a departure in less than I<int> minutes. This guarantee holds only for +I<int> below 120. However, any non-negative number is accepted for this +option. + =item B<-o>, B<--output> I<outputtypes> For each result, output I<outputtypes> in addition to the normal time, delay, |