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

hafas --list: skip DB

parent d42f52a9

bin/hafas

+3 −0
Original line number Diff line number Diff line
@@ -72,6 +72,9 @@ GetOptions( 
if ($list_services) {

	printf( "%-40s %-14s %s\n\n", 'operator', 'abbr. (-s)', 'languages (-l)' );

	for my $service ( Travel::Routing::DE::HAFAS::get_services() ) {

		if ( $service->{shortname} eq 'DB' ) {

			next;

		}

		printf(

			"%-40s %-14s %s\n",

			@{$service}{qw(name shortname)},