diff options
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-x | bin/db-iris | 10 |
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); |