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

dbris-m: Support raw station IDs (skips one backend round-trip)

parent 66941583

bin/dbris-m

+6 −0
Original line number Diff line number Diff line
@@ -94,6 +94,12 @@ elsif ( $opt{station} =~ m{[|]} ) { 
	$opt{journey} = $opt{station};

	delete $opt{station};

}

elsif ( $opt{station} =~ m{ [@] L = (?<eva> \d+ ) [@] }x ) {

	$opt{station} = {

		eva => $+{eva},

		id  => $opt{station},

	};

}

elsif ( $opt{station} !~ m{ ^ \d+ $ }x ) {

	my $status = Travel::Status::DE::DBRIS->new(

		cache          => $cache,