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

DB HAFAS is no more; service is now a mandatory argument

parent 1616bad4

bin/hafas

+12 −0
Original line number Diff line number Diff line
@@ -81,6 +81,18 @@ if ($list_services) { 
	exit 0;

}



if ( not $service ) {

	say STDERR 'Note: You have called hafas without specifying a service.';

	say STDERR q{};

	say STDERR 'Unfortunately, the previous default service (DB HAFAS)';

	say STDERR 'is no more, and there is no generic replacement available.';

	say STDERR q{};

	say STDERR 'Please use "hafas --list" to list supported services,';

	say STDERR 'and then select one via -s <service>.';

	say STDERR 'Falling back to ÖBB for now.';

	$service = 'ÖBB';

}



parse_mot_options();



my ( $from_stop, @via_stops ) = @ARGV;

lib/Travel/Routing/DE/HAFAS.pm

+3 −3
Original line number Diff line number Diff line
@@ -46,7 +46,7 @@ sub new { 
	}



	if ( not defined $service ) {

		$service = $conf{service} = 'DB';

		confess("The service option is mandatory");

	}



	if ( defined $service and not exists $hafas_instance{$service} ) {
@@ -639,9 +639,9 @@ 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>

=item B<service> => I<service> (mandatory)



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

Request results from I<service>.

See B<get_services> (and C<< hafas-m --list >>) for a list of supported

services.