diff options
author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-22 18:59:54 +0200 |
---|---|---|
committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-22 18:59:54 +0200 |
commit | c8d2e1297dcd160dae4451e53889d920e8fb9804 (patch) | |
tree | c90be1bfe9e3696a9d85e430366a7ceffde1fe26 /bin/efa-m | |
parent | d999862641bf5de667ebc0d6cc92e4a7bf027cc8 (diff) |
add -j / --with-jid option
Diffstat (limited to 'bin/efa-m')
-rwxr-xr-x | bin/efa-m | 17 |
1 files changed, 11 insertions, 6 deletions
@@ -17,7 +17,7 @@ my $service = 'VRR'; my $efa_url; my $efa_encoding; my ( $date, $time, $input_type, $list_lines, $offset, $relative_times ); -my ( $full_routes, $filter_via ); +my ( $full_routes, $filter_via, $show_jid ); my ( $timeout, $developer_mode ); my ( @grep_lines, @grep_platforms, @grep_mots ); my ( %edata, @edata_pre ); @@ -31,6 +31,7 @@ GetOptions( 'd|date=s' => \$date, 'D|discover' => \$discover, 'h|help' => sub { show_help(0) }, + 'j|with-jid' => \$show_jid, 'l|line=s@' => \@grep_lines, 'L|linelist' => \$list_lines, 'list' => \$list_services, @@ -224,9 +225,9 @@ sub display_result { for my $line (@lines) { - if ( $edata{messages} and $line->[5] and @{ $line->[5] } ) { + if ( $edata{messages} and $line->[5]->hints ) { print "\n"; - for my $hint ( @{ $line->[5] } ) { + for my $hint ( $line->[5]->hints ) { $hint =~ tr{\n\x0d}{ }s; chomp $hint; say "# ${hint}"; @@ -295,7 +296,7 @@ sub show_results { say $stop->full_name; } } - elsif ($efa->stop_name) { + elsif ( $efa->stop_name ) { say $efa->stop_name; } @@ -350,8 +351,12 @@ sub show_results { $line = $d->train_type . ' ' . $d->train_no; } - @output_line - = ( $dtime, $platform, $line, q{}, $d->destination, [ $d->hints ] ); + @output_line = ( $dtime, $platform, $line, q{}, $d->destination, $d ); + + if ($show_jid) { + $output_line[2] + .= sprintf( ' %s@%d@%d', $d->stateless, $d->stop_id, $d->key ); + } if ( $edata{route} ) { $output_line[3] |