From de145ca1fd960e3e8860a98cfbccb317c367065a Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Fri, 21 Feb 2025 19:22:41 +0100
Subject: dbris-m: Support raw station IDs (skips one backend round-trip)

---
 bin/dbris-m | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/bin/dbris-m b/bin/dbris-m
index c210017..ea751b3 100755
--- a/bin/dbris-m
+++ b/bin/dbris-m
@@ -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,
-- 
cgit v1.2.3