summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/db-iris10
1 files changed, 9 insertions, 1 deletions
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);