module Cardflex
  class Http
    attr_reader :config

    def initialize(config)
      @config = config
    end

    def get(params={})
      uri = "#{@config.query_path}#{_hash_to_query_string(params)}"
      response = _do_http(Net::HTTP::Get, uri)
      Xml.parse(response.body)
    end

    def post(params={})
      params = _add_api_key(params)
      response = _do_http(Net::HTTP::Post, @config.three_step_path, Xml.hash_to_xml(params))
      Xml.parse(response.body)
    end

    def _do_http(http_verb, path, body=nil)
      connection = Net::HTTP.new(@config.server, @config.port)
      connection.open_timeout = 60
      connection.read_timeout = 60
      if @config.ssl?
        connection.use_ssl = true
        connection.verify_mode = OpenSSL::SSL::VERIFY_PEER
        connection.ca_file = @config.ca_file
        connection.verify_callback = proc { |preverify_ok, ssl_context| _verify_ssl_certificate(preverify_ok, ssl_context) }
      end

      connection.start do |http|
        request = http_verb.new(path)
        request['Accept'] = 'text/xml'
        @config.logger.debug("[Cardflex] [#{_current_time}] #{request.method} as text/xml")
        if body
          request['Content-Type'] = 'text/xml'
          request.body = body
          @config.logger.debug _format_body_for_log(body)
        end

        response = http.request(request)
        @config.logger.info "[Cardflex] [#{_current_time}] #{request.method} #{response.code}"
        @config.logger.debug _format_body_for_log(response.body)
        response
      end
    rescue OpenSSL::SSL::SSLError
      raise Cardflex::SSLCertificateError
    end

    def _hash_to_query_string(hash)
      str = "?"
      hash.each do |key, value|
        case value
        when ::Array
          str << "#{key}=#{value.join(',')}&"
        when ::String
          str << "#{key}=#{value}&"
        end
      end

      str.gsub(/&$/, '') # remove trailing &, if any
    end

    def _current_time
      Time.now.utc.strftime("%d/%b/%Y %H:%M:%S %Z")
    end

    def _verify_ssl_certificate(preverify_ok, ssl_context)
      if preverify_ok != true || ssl_context.error != 0
        err_msg = "SSL Verification failed -- Preverify: #{preverify_ok}, Error: #{ssl_context.error_string} (#{ssl_context.error})"
        @config.logger.error err_msg
        false
      else
        true
      end
    end

    def _add_api_key(params)
      key = params.keys[0]
      { key => params[key].merge(:api_key => @config.api_key) }
    end

    def _format_body_for_log(body)
      body.gsub(/^/, "[Cardflex] ")
    end
  end
end