From 995035c5796397e49c2819e7e9f1efd7a5c0a4bc Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 6 Jun 2016 18:59:31 +0200 Subject: db-iris: improve geolocation candidate and error handling --- bin/db-iris | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/db-iris b/bin/db-iris index d5cb388..528663e 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -154,11 +154,19 @@ sub get_station { my @candidates = Travel::Status::DE::IRIS::Stations::get_station_by_location( $+{lon}, $+{lat} ); + + if ( not @candidates ) { + say STDERR + "Found no stations inside a 70km radius around $+{lon},$+{lat}"; + exit(1); + } + say STDERR "Geolocation candidates for $+{lon},$+{lat} are:"; say STDERR join( "\n", map { - sprintf( "%s (%s) - %-3.1fkm", $_->[0][1], $_->[0][0], $_->[1] ) + sprintf( "%-30s %-5s %4.1fkm", + $_->[0][1], $_->[0][0], $_->[1] ) } @candidates ); exit(1); -- cgit v1.2.3