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
|
#!/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 Memcached;
use mySociety::Config;
use LWP::Simple;
use XML::Simple;
my $osmapibase = "http://www.openstreetmap.org/api/";
my $nominatimbase = "http://nominatim.openstreetmap.org/";
sub lookup_location {
my ($latitude, $longitude, $zoom) = @_;
my $url =
"${nominatimbase}reverse?format=xml&zoom=$zoom&lat=$latitude&lon=$longitude";
my $key = "OSM:lookup_location:$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);
}
sub guess_road_operator {
my $inforef = shift;
my $highway = $inforef->{highway} || "unknown";
my $refs = $inforef->{ref} || "unknown";
my $operator;
if ( mySociety::Config::get('COUNTRY') eq 'NO' ) {
if ($highway eq "trunk"
|| $highway eq "primary"
) {
$operator = "Statens vegvesen";
}
unless (defined $operator) {
for my $ref (split(/;/, $refs)) {
if ($ref =~ m/E ?\d+/
|| $ref =~ m/Fv\d+/i
) {
$operator = "Statens vegvesen";
}
}
}
}
return $operator;
}
# A better alternative might be
# http://www.geonames.org/maps/osm-reverse-geocoder.html#findNearbyStreetsOSM
sub get_nearest_road_tags {
my ($latitude, $longitude) = @_;
my $inforef = lookup_location($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});
if (mySociety::Config::get('OSM_GUESS_OPERATOR')
&& !exists $osmtags->{operator}) {
my $guess = guess_road_operator($osmtags);
$osmtags->{operatorguess} = $guess if $guess;
}
return $osmtags;
}
return undef;
}
sub closest_road_text {
my ($latitude, $longitude) = @_;
my $str = '';
my $osmtags = get_nearest_road_tags($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;
|
