Factor out find_closest from send-reports, initial OSM.pm from osm_road_info branch, needs altering before it will work.

1 files changed, 143 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/Geocode/OSM.pm b/perllib/FixMyStreet/Geocode/OSM.pm
new file mode 100644
index 000000000..fad5baf45
--- /dev/null
+++ b/perllib/FixMyStreet/Geocode/OSM.pm
@@ -0,0 +1,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;
+