diff options
| -rwxr-xr-x | bin/hafas | 15 | ||||
| -rw-r--r-- | lib/Travel/Routing/DE/HAFAS.pm | 6 |
2 files changed, 16 insertions, 5 deletions
@@ -22,7 +22,8 @@ my ( $json_output, $raw_json_output ); my $show_full_route; my ( $list_services, $service ); my ( @excluded_mots, @exclusive_mots ); -my $verbosity = 0; +my $max_change = undef; +my $verbosity = 0; my @output; my %min_verbosity = ( @@ -45,6 +46,7 @@ my $output_reset = -t STDOUT ? "\033[0m" : q{}; GetOptions( 'a|arrive=s' => sub { $arrival = 1; $time = $_[1] }, + 'c|max-change=s' => \$max_change, 'd|date=s' => \$date, 'h|help' => sub { show_help(0) }, 'f|full-route' => \$show_full_route, @@ -82,12 +84,13 @@ if ( not $from_stop and $to_stop ) { } my %opt = ( - excluded_mots => \@excluded_mots, - exclusive_mots => \@exclusive_mots, + service => $service, from_stop => $from_stop, to_stop => $to_stop, + excluded_mots => \@excluded_mots, + exclusive_mots => \@exclusive_mots, + max_change => $max_change, developer_mode => $developer_mode, - service => $service, arrival => $arrival, language => $language, ); @@ -468,6 +471,10 @@ between two stops and prints the results. Request connections that arrive at the destination before I<hh>:I<mm>. Overrides B<--time> / B<--depart>. +=item B<-c>, B<--max-change> I<count> + +Request connections with no more than I<count> changeovers. + =item B<-d>, B<--date> I<dd>.I<mm>.[I<yyyy>] Planned departure (or arrival) date. Default: today. diff --git a/lib/Travel/Routing/DE/HAFAS.pm b/lib/Travel/Routing/DE/HAFAS.pm index 0b535f2..a2ea78c 100644 --- a/lib/Travel/Routing/DE/HAFAS.pm +++ b/lib/Travel/Routing/DE/HAFAS.pm @@ -253,7 +253,7 @@ sub new { depLocL => [ { lid => $from_lid } ], arrLocL => [ { lid => $to_lid } ], numF => 6, - maxChg => undef, + maxChg => $conf{max_change}, minChgTime => undef, outFrwd => $outFrwd, viaLocL => undef, @@ -749,6 +749,10 @@ values. Providing an unsupported or invalid value may lead to garbage output. Passed on to C<< LWP::UserAgent->new >>. Defaults to C<< { timeout => 10 } >>, pass an empty hashref to call the LWP::UserAgent constructor without arguments. +=item B<max_change> => I<count> + +Request connections with no more than I<count> changeovers. + =item B<service> => I<service> Request results from I<service>, defaults to "DB". |