From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

NHORNE / Geo-Coder-Free-0.39 / lib / Geo / Coder / Free / Display / query.pm 

            

              
1
2
3
4
5
6
7
—
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

              
package Geo::Coder::Free::Display::query;
# Run a query on the database
use strict;
use warnings;
use JSON::MaybeXS;
=head1 VERSION
Version 0.39
=cut
our $VERSION = '0.39';
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;