CPAN::Groonga

package Geo::Coder::Free::Display::query;

# Run a query on the database

use strict;
use warnings;
use JSON::MaybeXS;

=head1 VERSION

Version 0.41

=cut

our $VERSION = '0.41';

use Geo::Coder::Free::Display;

our @ISA = ('Geo::Coder::Free::Display');

sub html {
	my $self = shift;
	my %args = (ref($_[0]) eq 'HASH') ? %{$_[0]} : @_;

	my $info = $self->{_info};
	die unless($info);

	my $allowed = {
		'page' => 'query',
		'q' => qr/[a-z][A-Z]$/i,	# TODO: regex of allowable name formats
		'scantext' => undef,	# TODO: regex of allowable name formats
		'lang' => qr/^[A-Z][A-Z]/i,
	};
	my %params = %{$info->params({ allow => $allowed })};

	# TODO: check requested format (JSON/XML) and return that

	delete $params{'page'};
	delete $params{'lang'};

	my $geocoder = $args{'geocoder'};

	my $rc;
	if(my $q = $params{'q'}) {
		$rc = $geocoder->geocode(location => $q);

		if(!defined($rc)) {
			# Maybe the user didn't give a country, so let's add it
			# and search again
			if(my $country = $self->{_lingua}->country()) {
				$rc = $geocoder->geocode(location => "$q, $country");
			}
			return '{}' if(!defined($rc));
		}

		# delete $rc->{'md5'};
		# delete $rc->{'sequence'};
		# foreach my $key(keys %{$rc}) {
			# if(!defined($rc->{$key})) {
				# delete $rc->{$key};
			# }
		# }

		# return encode_json $rc;
		return encode_json {
			'latitude' => $rc->lat(),
			'longitude' => $rc->long()
		};
	} elsif(my $scantext = $params{'scantext'}) {
		my @rc = $geocoder->geocode(scantext => $scantext);

		if(scalar(@rc) > 0) {
			# foreach my $l(@rc) {
				# delete $l->{'md5'};
				# delete $l->{'sequence'};
				# foreach my $key(keys %{$l}) {
					# if(!defined($l->{$key})) {
						# delete $l->{$key};
					# }
				# }
			# }
			# return encode_json \@rc;

			my @locations;
			foreach my $l(@rc) {
				push @locations, {
					'latitude' => $l->lat(),
					'longitude' => $l->long()
				};
			};
			return encode_json \@locations;
		}
	}

	return '{}';
}

1;