diff options
| -rwxr-xr-x | bin/hafas-m | 37 |
1 files changed, 22 insertions, 15 deletions
diff --git a/bin/hafas-m b/bin/hafas-m index ea8471f..43ad111 100755 --- a/bin/hafas-m +++ b/bin/hafas-m @@ -17,7 +17,8 @@ use Travel::Status::DE::HAFAS; my ( $date, $time, $language ); my $arrivals; my $show_jid; -my $types = q{}; +my $num_results = 30; +my $types = q{}; my $developer_mode; my $via; my ( $json_output, $raw_json_output ); @@ -35,20 +36,21 @@ my $output_bold = -t STDOUT ? "\033[1m" : q{}; my $output_reset = -t STDOUT ? "\033[0m" : q{}; GetOptions( - 'a|arrivals' => \$arrivals, - 'd|date=s' => \$date, - 'h|help' => sub { show_help(0) }, - 'j|with-jid' => \$show_jid, - 'l|language=s' => \$language, - 'm|mot=s' => \$types, - 's|service=s' => \$service, - 't|time=s' => \$time, - 'v|via=s' => \$via, - 'V|version' => \&show_version, - 'devmode' => \$developer_mode, - 'json' => \$json_output, - 'raw-json' => \$raw_json_output, - 'list' => \$list_services, + 'a|arrivals' => \$arrivals, + 'd|date=s' => \$date, + 'h|help' => sub { show_help(0) }, + 'j|with-jid' => \$show_jid, + 'l|language=s' => \$language, + 'm|mot=s' => \$types, + 'n|num-results=s' => \$num_results, + 's|service=s' => \$service, + 't|time=s' => \$time, + 'v|via=s' => \$via, + 'V|version' => \&show_version, + 'devmode' => \$developer_mode, + 'json' => \$json_output, + 'raw-json' => \$raw_json_output, + 'list' => \$list_services, ) or show_help(1); @@ -79,6 +81,7 @@ my %opt = ( developer_mode => $developer_mode, service => $service, language => $language, + results => $num_results, ); if ( $opt{station} =~ m{ ^ (?<lat> [0-9.]+ ) : (?<lon> [0-9].+ ) $ }x ) { @@ -785,6 +788,10 @@ To show them exclusively, set I<motlist> to I<mot1>,I<mot2>,... The I<mot> types depend on the used service. Use C<< -m help >> to list them. +=item B<-n>, B<--num-results> I<count> + +Request up to I<count> results. Default: 30. + =item B<--raw-json> Print unprocessed HAFAS response as JSON and exit. |