#!/usr/bin/perl
#
#	Copyright 2016 (c) Shin-ichi Nagamura.
#	All rights reserved.
#
#	$Id: getAmedasLocation 91 2016-09-24 10:01:32Z core $
#


use	utf8 ;
use	strict ;
use	warnings ;

use	kuon ;
use	kuon::Geo ;
use	kuon::Amedas::Location ;

use	Data::Dumper ;
use	Encode ;
use	Getopt::Long ;

binmode	STDIN,	":utf8" ;
binmode	STDOUT,	":utf8" ;
binmode	STDERR,	":utf8" ;


# ----- options -----
my	$opt_help				= 0 ;

my	%options	= (
		"debug"				=> \$kuon::opt_dbg,
		"verbose"			=> \$kuon::opt_msg,
		"help"				=> \$opt_help,
	) ;


sub		usage( $ )
{
	my	$rc	= shift ;

	printf( "usage: getAmedasLocation [OPTIONS...] LAT LNG [header]\n" ) ;
	printf( "--debug     for debugging\n" ) ;
	printf( "--verbose   verbose mode\n" ) ;
	printf( "--help      show this message\n" ) ;
	exit( $rc ) ;
}


sub		main()
{
	# ----- read options -----
	Getopt::Long::Configure( "bundling" ) ;
	&usage( 1 )		unless( GetOptions( %options )) ;
	&usage( 0 )		if( $opt_help ) ;
	&usage( 1 )		if( $#ARGV < 1 ) ;

	my	$lat		= shift( @ARGV ) ;
	my	$lng		= shift( @ARGV ) ;
	my	@hdrs		= map { decode( 'utf8', $_ ) } @ARGV ;
	my	$geo		= kuon::Geo->new( $lat, $lng ) ;
	my	@location	= kuon::Amedas::Location::getList( $geo, @hdrs ) ;

	foreach my $location ( @location ) {
		printf( "%.3f Km, %s,%s,%s,%s,%s\n", $location->{dist} / 1000, $location->{no}, $location->{name}, $location->{lat}, $location->{lng}, join( ",", @{$location->{hdrs}} )) ;
	}

	return( 0 ) ;
}


exit( main()) ;
