diff options
| -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, |