From 7a24a7d8168639e8e6a6c0f17429681dbdc2aed7 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 1 Nov 2015 22:29:05 +0100 Subject: support UIC codes --- bin/db-iris | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'bin/db-iris') diff --git a/bin/db-iris b/bin/db-iris index 2aa94b7..ecbf376 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -141,6 +141,10 @@ sub get_departure { sub get_station { my ($input_name) = @_; + if ( $input_name =~ m{ ^ [[:digit:]]+ $ }x ) { + return $input_name; + } + my @stations = Travel::Status::DE::IRIS::Stations::get_station($input_name); if ( @stations == 0 ) { -- cgit v1.2.3