#!/usr/bin/perl
#
#	Copyright 2016 (c) Shin-ichi Nagamura.
#	All rights reserved.
#
#	$Id: getGeoCodingGoogle 90 2016-09-24 09:04:38Z core $
#


use	utf8 ;
use	strict ;
use	warnings ;

use	kuon ;
use	kuon::GeoCoding::google ;

use	Getopt::Long ;

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: getGeoCodingGoogle [OPTIONS...] LAT LNG\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	$geoc		= kuon::GeoCoding::google->new() ;
	$geoc->get( $lat, $lng )	||	die( "住所を取得出来ませんでした。" ) ;

	printf( "short address:\n%s\n", $geoc->{short_address} ) ;
	printf( "long address:\n%s\n", $geoc->{long_address} ) ;

	return( 0 ) ;
}


exit( main()) ;
