summaryrefslogtreecommitdiff
path: root/bin/dbris
diff options
context:
space:
mode:
Diffstat (limited to 'bin/dbris')
-rwxr-xr-xbin/dbris11
1 files changed, 11 insertions, 0 deletions
diff --git a/bin/dbris b/bin/dbris
index c46975d..4656a67 100755
--- a/bin/dbris
+++ b/bin/dbris
@@ -18,6 +18,7 @@ my ( $date, $time, $from, $to, $language );
my $mots;
my ( $first_class, $passengers );
my $developer_mode;
+my $show_jid;
my ( $json_output, $raw_json_output );
my $verbose;
my $use_cache = 1;
@@ -52,6 +53,7 @@ GetOptions(
'h|help' => sub { show_help(0) },
'f|full-route' => \$show_full_route,
'first-class!' => \$first_class,
+ 'j|with-jid' => \$show_jid,
'm|modes-of-transit=s' => \$mots,
'l|language=s' => \$language,
'p|passengers=s' => \$passengers,
@@ -448,6 +450,10 @@ for my $connection ( $ris->connections ) {
$segment->arr_platform ? q{ } . $segment->arr_platform : q{},
);
+ if ($show_jid) {
+ say $segment->journey_id =~ s{ }{}gr;
+ }
+
if ($verbose) {
for my $msg ( $segment->messages_ris ) {
printf( "| %s (%s)\n", $msg->{value}, $msg->{key} );
@@ -500,6 +506,11 @@ Default: today.
Show intermediate stops rather than just start/end of connection legs.
+=item B<-j>, B<--with-jid>
+
+Show JourneyID for each connection segment.
+The JourneyID can be passed to dbris-m(1) to obtain details about the segment.
+
=item B<--json>
Print result(s) as JSON and exit. This is a dump of internal data structures