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

add --change-time / min_change_time options

parent ff446b8a

Changelog

+5 −0
Original line number Diff line number Diff line 
git HEAD



    * hafas: Add -C / --change-time option

    * HAFAS: Add min_change_time option



Travel::Routing::DE::HAFAS 0.05 - Sun Mar 24 2024



    * hafas: Add -c / --max-change option

bin/hafas

+21 −12
Original line number Diff line number Diff line
@@ -23,6 +23,7 @@ my $show_full_route; 
my ( $list_services, $service );

my ( @excluded_mots, @exclusive_mots );

my $max_change      = undef;

my $min_change_time = undef;

my $verbosity       = 0;



my @output;
@@ -47,6 +48,7 @@ my $output_reset = -t STDOUT ? "\033[0m" : q{}; 
GetOptions(

	'a|arrive=s'      => sub { $arrival = 1; $time = $_[1] },

	'c|max-change=s'  => \$max_change,

	'C|change-time=s' => \$min_change_time,

	'd|date=s'        => \$date,

	'h|help'          => sub { show_help(0) },

	'f|full-route'    => \$show_full_route,
@@ -92,6 +94,7 @@ my %opt = ( 
	excluded_mots   => \@excluded_mots,

	exclusive_mots  => \@exclusive_mots,

	max_change      => $max_change,

	min_change_time => $min_change_time,

	developer_mode  => $developer_mode,

	arrival         => $arrival,

	language        => $language,
@@ -477,6 +480,12 @@ Overrides B<--time> / B<--depart>. 


Request connections with no more than I<count> changeovers.



=item B<-C>, B<--change-time> I<minutes>



Request connections with scheduled changeover durations of at least I<minutes>.

Note that this does not account for real-time data: the backend may return

delayed connections that violate the specified changeover duration.



=item B<-d>, B<--date> I<dd>.I<mm>.[I<yyyy>]



Planned departure (or arrival) date.  Default: today.

lib/Travel/Routing/DE/HAFAS.pm

+7 −1
Original line number Diff line number Diff line
@@ -243,7 +243,7 @@ sub new { 
					arrLocL => [ $self->stop_to_hafas( $self->{to_stop} ) ],

					numF    => 6,

					maxChg  => $conf{max_change},

					minChgTime => undef,

					minChgTime => $conf{min_change_time},

					outFrwd    => $outFrwd,

					viaLocL    => @via_locs

					? [ map { { loc => $_ } } @via_locs ]
@@ -760,6 +760,12 @@ pass an empty hashref to call the LWP::UserAgent constructor without arguments. 


Request connections with no more than I<count> changeovers.



=item B<min_change_time> => I<minutes>



Request connections with scheduled changeover durations of at least I<minutes>.

Note that this does not account for real-time data: the backend may return

delayed connections that violate the specified changeover duration.



=item B<service> => I<service>



Request results from I<service>, defaults to "DB".