<?php
// $Id$

/**
 * @file
 * Plugin to provide a yandex geocoder.
 */

/**
 * Plugins are described by creating a $plugin array which will be used
 * by the system that includes this file.
 */
$plugin = array(
  'title' => t("Yandex (Яндекс.Карт)"),
  'description' => t('Geocodes addresses via Yandex (Яндекс.Карт)'),
  'callback' => 'geocoder_yandex',
  'field_types' => array('text','text_long','addressfield','text_with_summary','computed', 'taxonomy_term_reference'),
  'field_callback' => 'geocoder_yandex_field',
  'terms_of_service' => 'http://api.yandex.ru/maps/geocoder/doc/desc/concepts/About.xml',
);

/**
 * Process Address
 */
function geocoder_yandex($address, $options = array()) {
  $geocoder_settings = variable_get("geocoder_settings",array());
  $consumer_key = $geocoder_settings["geocoder_apikey_yandex"];
  $params = array (
    'format' => 'json',
    'results' => 1,
    'key' => $consumer_key,
    'geocode' => $address,
  );
  $request = drupal_http_request("http://geocode-maps.yandex.ru/1.x/?" . http_build_query($params));
  $data = json_decode($request->data);
  
  return _geocoder_yandex_geometry($data);
}

function geocoder_yandex_field($field, $field_item) {
  if ($field['type'] == 'text' || $field['type'] == 'text_long' || $field['type'] == 'text_with_summary' || $field['type'] == 'computed') {
    return geocoder_yandex($field_item['value']);
  }
  if ($field['type'] == 'addressfield') {
    $address = geocoder_widget_parse_addressfield($field_item);
    return geocoder_yandex($address);
  }
  if ($field['type'] == 'taxonomy_term_reference') {
    $term = taxonomy_term_load($field_item['tid']);
    return geocoder_yandex($term->name);
  }
}

function _geocoder_yandex_geometry(&$data) {
  geophp_load();
  if (isset($data->error)) {
    drupal_set_message($data->error->status . ' ' . $data->error->message, 'error');
  }
  if($data->response->GeoObjectCollection->metaDataProperty->GeocoderResponseMetaData->found == 0) {
    return NULL;
  }
  $loc = explode(' ', $data->response->GeoObjectCollection->featureMember[0]->GeoObject->Point->pos);
  return new Point ($loc[0], $loc[1]);
}