class Geocoder::Lookup::Bing

def base_url(query)
  url = "#{protocol}://dev.virtualearth.net/REST/v1/Locations"
  if !query.reverse_geocode?
    if r = query.options[:region]
      url << "/#{r}"
    end
    # use the more forgiving 'unstructured' query format to allow special
    # chars, newlines, brackets, typos.
    url + "?q=" + URI.escape(query.sanitized_text.strip) + "&"
  else
    url + "/#{URI.escape(query.sanitized_text.strip)}?"
  end
end

def check_response_for_errors!(response)
  super
  if server_overloaded?(response)
    raise_error(Geocoder::ServiceUnavailable) ||
      Geocoder.log(:warn, "Bing Geocoding API error: Service Unavailable")
  end
end

def map_link_url(coordinates)
  "http://www.bing.com/maps/default.aspx?cp=#{coordinates.join('~')}"
end

def name
  "Bing"
end

def query_url(query)
  base_url(query) + url_query_string(query)
end

def query_url_params(query)
  {
    key: configuration.api_key
  }.merge(super)
end

def required_api_key_parts
  ["key"]
end

def results(query)
  return [] unless doc = fetch_data(query)
  if doc['statusCode'] == 200
    return doc['resourceSets'].first['estimatedTotal'] > 0 ? doc['resourceSets'].first['resources'] : []
  elsif doc['statusCode'] == 401 and doc["authenticationResultCode"] == "InvalidCredentials"
    raise_error(Geocoder::InvalidApiKey) || Geocoder.log(:warn, "Invalid Bing API key.")
  else
    Geocoder.log(:warn, "Bing Geocoding API error: #{doc['statusCode']} (#{doc['statusDescription']}).")
  end
  return []
end

def server_overloaded?(response)
  # Occasionally, the servers processing service requests can be overloaded,
  # and you may receive some responses that contain no results for queries that
  # you would normally receive a result. To identify this situation,
  # check the HTTP headers of the response. If the HTTP header X-MS-BM-WS-INFO is set to 1,
  # it is best to wait a few seconds and try again.
  response['x-ms-bm-ws-info'].to_i == 1
end

def valid_response?(response)
  super(response) and not server_overloaded?(response)
end