Unverified Commit b85f3942 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add --max-change / max_change options

parent e7867caf

bin/hafas

+11 −4
Original line number Diff line number Diff line
@@ -22,6 +22,7 @@ my ( $json_output, $raw_json_output ); 
my $show_full_route;

my ( $list_services, $service );

my ( @excluded_mots, @exclusive_mots );

my $max_change = undef;

my $verbosity  = 0;



my @output;
@@ -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.

lib/Travel/Routing/DE/HAFAS.pm

+5 −1
Original line number Diff line number Diff line
@@ -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".