diff options
Diffstat (limited to 'bin/dbris')
| -rwxr-xr-x | bin/dbris | 13 |
1 files changed, 9 insertions, 4 deletions
@@ -20,6 +20,7 @@ my $discounts; my $developer_mode; my ( $json_output, $raw_json_output ); my $use_cache = 1; +my $show_full_route; my $cache; my @output; @@ -36,6 +37,7 @@ GetOptions( 'd|date=s' => \$date, 'D|discounts=s' => \$discounts, 'h|help' => sub { show_help(0) }, + 'f|full-route' => \$show_full_route, 'm|modes-of-transit=s' => \$mots, 't|time=s' => \$time, 'V|version' => \&show_version, @@ -254,11 +256,14 @@ for my $connection ( $ris->connections ) { $segment->dep->strftime('%H:%M'), $segment->dep_name ); - for my $stop ( $segment->route ) { - printf( "%s %s %s\n", - $stop->arr ? $stop->arr->strftime('%H:%M') : q{ }, - format_occupancy($stop), $stop->name, ); + if ($show_full_route) { + for my $stop ( $segment->route ) { + printf( "%s %s %s\n", + $stop->arr ? $stop->arr->strftime('%H:%M') : q{ }, + format_occupancy($stop), $stop->name, ); + } } + printf( "%s an %s\n", $segment->arr->strftime('%H:%M'), $segment->arr_name ); |