diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-02-21 19:22:41 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-02-21 19:22:41 +0100 |
| commit | de145ca1fd960e3e8860a98cfbccb317c367065a (patch) | |
| tree | 190c409a50c6eda5b56b2691bbed1b9313cd1315 | |
| parent | 66941583086ecf5f01df9b3262a39b904aefe68e (diff) | |
dbris-m: Support raw station IDs (skips one backend round-trip)
| -rwxr-xr-x | bin/dbris-m | 6 |
1 files changed, 6 insertions, 0 deletions
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, |