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
|
#!/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);
}
# 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 = 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});
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;
|
