From 995035c5796397e49c2819e7e9f1efd7a5c0a4bc Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
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