diff options
Diffstat (limited to 'bin/dbris')
-rwxr-xr-x | bin/dbris | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -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 |