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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
#!/usr/bin/perl
#
# FixMyStreet:Geocode::OSM
# OpenStreetmap forward and reverse geocoding for FixMyStreet.
#
# Copyright (c) 2011 Petter Reinholdtsen. Some rights reserved.
# Email: pere@hungry.com
package FixMyStreet::Geocode::OSM;
use warnings;
use strict;
use Digest::MD5 qw(md5_hex);
use Encode;
use File::Slurp;
use File::Path ();
use LWP::Simple qw($ua);
use Memcached;
use XML::Simple;
use mySociety::Locale;
my $osmapibase = "http://www.openstreetmap.org/api/";
my $nominatimbase = "http://nominatim.openstreetmap.org/";
# string STRING CONTEXT
# Looks up on Nominatim, and caches, a user-inputted location.
# Returns array of (LAT, LON, ERROR), where ERROR is either undef, a string, or
# an array of matches if there are more than one. The information in the query
# may be used to disambiguate the location in cobranded versions of the site.
sub string {
my ( $s, $c, $params ) = @_;
$s .= '+' . $params->{town} if $params->{town} and $s !~ /$params->{town}/i;
my $url = "${nominatimbase}search?";
my %query_params = (
q => $s,
format => 'json',
#'accept-language' => '',
email => 'support' . chr(64) . 'fixmystreet.com',
);
$query_params{viewbox} = $params->{bounds}[1] . ',' . $params->{bounds}[2] . ',' . $params->{bounds}[3] . ',' . $params->{bounds}[0]
if $params->{bounds};
$query_params{countrycodes} = $params->{country}
if $params->{country};
$url .= join('&', map { "$_=$query_params{$_}" } keys %query_params);
my $cache_dir = FixMyStreet->config('GEO_CACHE') . 'osm/';
my $cache_file = $cache_dir . md5_hex($url);
my $js;
if (-s $cache_file) {
$js = File::Slurp::read_file($cache_file);
} else {
$ua->timeout(15);
$js = LWP::Simple::get($url);
$js = encode_utf8($js) if utf8::is_utf8($js);
File::Path::mkpath($cache_dir);
File::Slurp::write_file($cache_file, $js) if $js;
}
if (!$js) {
return { error => _('Sorry, we could not parse that location. Please try again.') };
}
$js = JSON->new->utf8->allow_nonref->decode($js);
my ( $error, @valid_locations, $latitude, $longitude );
foreach (@$js) {
# These co-ordinates are output as query parameters in a URL, make sure they have a "."
( $latitude, $longitude ) = ( $_->{lat}, $_->{lon} );
mySociety::Locale::in_gb_locale {
push (@$error, {
address => $_->{display_name},
latitude => sprintf('%0.6f', $latitude),
longitude => sprintf('%0.6f', $longitude)
});
};
push (@valid_locations, $_);
}
return { latitude => $latitude, longitude => $longitude } if scalar @valid_locations == 1;
return { error => $error };
}
sub reverse_geocode {
my ($latitude, $longitude, $zoom) = @_;
my $url =
"${nominatimbase}reverse?format=xml&zoom=$zoom&lat=$latitude&lon=$longitude";
my $key = "OSM:reverse_geocode:$url";
my $result = Memcached::get($key);
unless ($result) {
my $j = LWP::Simple::get($url);
if ($j) {
Memcached::set($key, $j, 3600);
my $ref = XMLin($j);
return $ref;
} else {
print STDERR "No reply from $url\n";
}
return undef;
}
return XMLin($result);
}
sub _osmxml_to_hash {
my ($xml, $type) = @_;
my $ref = XMLin($xml);
my %tags;
if ('ARRAY' eq ref $ref->{$type}->{tag}) {
map { $tags{$_->{'k'}} = $_->{'v'} } @{$ref->{$type}->{tag}};
return \%tags;
} else {
return undef;
}
}
sub get_object_tags {
my ($type, $id) = @_;
my $url = "${osmapibase}0.6/$type/$id";
my $key = "OSM:get_object_tags:$url";
my $result = Memcached::get($key);
unless ($result) {
my $j = LWP::Simple::get($url);
if ($j) {
Memcached::set($key, $j, 3600);
return _osmxml_to_hash($j, $type);
} else {
print STDERR "No reply from $url\n";
}
return undef;
}
return _osmxml_to_hash($result, $type);
}
# A better alternative might be
# http://www.geonames.org/maps/osm-reverse-geocoder.html#findNearbyStreetsOSM
sub get_nearest_road_tags {
my ( $cobrand, $latitude, $longitude ) = @_;
my $inforef = reverse_geocode($latitude, $longitude, 16);
if (exists $inforef->{result}->{osm_type}
&& 'way' eq $inforef->{result}->{osm_type}) {
my $osmtags = get_object_tags('way',
$inforef->{result}->{osm_id});
unless ( exists $osmtags->{operator} ) {
$osmtags->{operatorguess} = $cobrand->guess_road_operator( $osmtags );
}
return $osmtags;
}
return undef;
}
sub closest_road_text {
my ( $cobrand, $latitude, $longitude ) = @_;
my $str = '';
my $osmtags = get_nearest_road_tags( $cobrand, $latitude, $longitude );
if ($osmtags) {
my ($name, $ref) = ('','');
$name = $osmtags->{name} if exists $osmtags->{name};
$ref = " ($osmtags->{ref})" if exists $osmtags->{ref};
if ($name || $ref) {
$str .= _('The following information about the nearest road might be inaccurate or irrelevant, if the problem is close to several roads or close to a road without a name registered in OpenStreetMap.') . "\n\n";
$str .= sprintf(_("Nearest named road to the pin placed on the map (automatically generated using OpenStreetMap): %s%s"),
$name, $ref) . "\n\n";
if (my $operator = $osmtags->{operator}) {
$str .= sprintf(_("Road operator for this named road (from OpenStreetMap): %s"),
$operator) . "\n\n";
} elsif ($operator = $osmtags->{operatorguess}) {
$str .= sprintf(_("Road operator for this named road (derived from road reference number and type): %s"),
$operator) . "\n\n";
}
}
}
return $str;
}
1;
|
