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

dbris-m: Filter out unknown mots; do not pass them to bahn.de

parent 4d617f8d

bin/dbris-m

+18 −2
Original line number Diff line number Diff line
@@ -21,7 +21,8 @@ my $use_cache = 1; 
my $cache;

my ( $json_output, $raw_json_output );



my @output;

my %known_mot = map { $_ => 1 }

  (qw(ICE EC_IC IR REGIONAL SBAHN BUS SCHIFF UBAHN TRAM ANRUFPFLICHTIG));



binmode( STDOUT, ':encoding(utf-8)' );

for my $arg (@ARGV) {
@@ -156,7 +157,22 @@ if ( $mots and $mots eq 'help' ) { 
}



if ($mots) {

	$opt{modes_of_transit} = [ split( qr{, *}, $mots ) ];



	# Passing unknown MOTs to the backend results in HTTP 422 Unprocessable Entity

	my @mots = split( qr{, *}, $mots );

	my $found_unknown;

	for my $mot (@mots) {

		if ( not $known_mot{$mot} ) {

			$found_unknown = 1;

			say STDERR

"-m / --modes-of-transit: skipping unknown mode of transit '$mot'";

		}

	}

	if ($found_unknown) {

		say STDERR 'supported modes of transit are: '

		  . join( q{, }, sort keys %known_mot );

	}

	$opt{modes_of_transit} = [ grep { $known_mot{$_} } @mots ];

}



my $status = Travel::Status::DE::DBRIS->new(%opt);