class Typhoeus::EasyFactory

def changed_options
  {
    :disable_ssl_host_verification => :ssl_verifyhost,
    :disable_ssl_peer_verification => :ssl_verifypeer,
    :proxy_auth_method => :proxyauth,
  }
end

def easy
  @easy ||= Typhoeus::Pool.get
end

def get
  begin
    easy.http_request(
      request.base_url.to_s,
      request.options.fetch(:method, :get),
      sanitize(request.options)
    )
  rescue Ethon::Errors::InvalidOption => e
    help = provide_help(e.message.match(/:\s(\w+)/)[1])
    raise $!, "#{$!}#{help}", $!.backtrace
  end
  set_callback
  easy
end

def initialize(request, hydra = nil)
  @request = request
  @hydra = hydra
end

def provide_help(option)
  if new_option = changed_options[option.to_sym]
    "\nPlease try #{new_option} instead of #{option}." if new_option
  elsif removed_options.include?(option.to_sym)
    "\nThe option #{option} was removed."
  end
end

def removed_options
  [:cache_key_basis, :cache_timeout, :user_agent]
end

def renamed_options
  {
    :auth_method => :httpauth,
    :connect_timeout => :connecttimeout,
    :encoding => :accept_encoding,
    :follow_location => :followlocation,
    :max_redirects => :maxredirs,
    :proxy_type => :proxytype,
    :ssl_cacert => :cainfo,
    :ssl_capath => :capath,
    :ssl_cert => :sslcert,
    :ssl_cert_type => :sslcerttype,
    :ssl_key => :sslkey,
    :ssl_key_password => :keypasswd,
    :ssl_key_type => :sslkeytype,
    :ssl_version => :sslversion,
  }
end

def sanitize(options)
  # set nosignal to true by default
  # this improves thread safety and timeout behavior
  sanitized = {:nosignal => true}
  request.options.each do |k,v|
    s = k.to_sym
    next if [:method, :cache_ttl].include?(s)
    if new_option = renamed_options[k.to_sym]
      warn("Deprecated option #{k}. Please use #{new_option} instead.")
      sanitized[new_option] = v
    # sanitize timeouts
    elsif [:timeout_ms, :connecttimeout_ms].include?(s)
      if !v.integer?
        warn("Value '#{v}' for option '#{k}' must be integer.")
      end
      sanitized[k] = v.ceil
    else
      sanitized[k] = v
    end
  end
  sanitize_timeout!(sanitized, :timeout)
  sanitize_timeout!(sanitized, :connecttimeout)
  sanitized
end

def sanitize_timeout!(options, timeout)
  timeout_ms = (timeout.to_s + '_ms').to_sym
  if options[timeout] && options[timeout].round != options[timeout]
    if !options[timeout_ms]
      options[timeout_ms] = (options[timeout]*1000).ceil
    end
    options[timeout] = options[timeout].ceil
  end
  options
end

def set_callback
  if request.streaming?
    response = nil
    easy.on_headers do |easy|
      response = Response.new(Ethon::Easy::Mirror.from_easy(easy).options)
      request.execute_headers_callbacks(response)
    end
    easy.on_body do |chunk, easy|
      request.on_body.each do |callback|
        callback.call(chunk, response)
      end
    end
  else
    easy.on_headers do |easy|
      request.execute_headers_callbacks(Response.new(Ethon::Easy::Mirror.from_easy(easy).options))
    end
  end
  easy.on_complete do |easy|
    request.finish(Response.new(easy.mirror.options))
    Typhoeus::Pool.release(easy)
    if hydra && !hydra.queued_requests.empty?
      hydra.dequeue_many
    end
  end
end