summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-11-06 14:01:33 +0100
committerDaniel Friesel <derf@finalrewind.org>2015-11-06 14:01:33 +0100
commit93cb8eea10ec33514d78760a6337914031b7b022 (patch)
treefa7694504c160077c644b3b6726deab91f375f22 /bin
parentbf296245bb71fd850f8339d0b83faf07e5376526 (diff)
add with_related to db-iris, enabled by default
Diffstat (limited to 'bin')
-rwxr-xr-xbin/db-iris29
1 files changed, 16 insertions, 13 deletions
diff --git a/bin/db-iris b/bin/db-iris
index ecbf376..3278c0f 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -22,6 +22,7 @@ my ( $date, $time, $lookahead );
my $datetime = DateTime->now( time_zone => 'Europe/Berlin' );
my $developer_mode = 0;
my $realtime = 0;
+my $with_related = 1;
my ( $filter_via, $track_via, $status_via );
my ( @grep_class, @grep_type, @grep_platform );
my ( %edata, @edata_pre );
@@ -33,19 +34,20 @@ binmode( STDOUT, ':encoding(utf-8)' );
@ARGV = map { decode( 'UTF-8', $_ ) } @ARGV;
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,
- 't|time=s' => \$time,
- 'T|type=s' => \@grep_type,
- 'v|via=s' => \$filter_via,
- 'V|track-via=s' => \$track_via,
- 'devmode' => \$developer_mode,
- 'version' => \&show_version,
+ '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,
+ 't|time=s' => \$time,
+ 'T|type=s' => \@grep_type,
+ 'v|via=s' => \$filter_via,
+ 'V|track-via=s' => \$track_via,
+ 'x|exact|no-related' => sub { $with_related = 0 },
+ 'devmode' => \$developer_mode,
+ 'version' => \&show_version,
) or show_help(1);
@@ -105,6 +107,7 @@ my $status = Travel::Status::DE::IRIS->new(
developer_mode => $developer_mode,
lookahead => $lookahead,
station => $station,
+ with_related => $with_related,
);
if ($track_via) {