require 'bigdecimal'
require 'cgi'
require 'date'
require 'logger'
require 'net/http'
require 'openssl'
require 'uri'

module Buckaruby
  # Base class for any request.
  class Request
    def initialize(options)
      @options = options

      @logger = defined?(Rails) ? Rails.logger : Logger.new(STDOUT)
    end

    def execute(options)
      uri = URI.parse(api_url)
      uri.query = "op=#{options[:operation]}" if options[:operation]

      raw_response = post_buckaroo(uri, build_request_data(options))
      response = parse_response(raw_response)

      @logger.debug("[execute] response: #{response.inspect}")

      response
    end

    def build_request_params(_options)
      raise NotImplementedError
    end

    private

    def post_buckaroo(uri, params)
      http = Net::HTTP.new(uri.host, uri.port)
      if uri.scheme == "https"
        http.use_ssl = true
        http.verify_mode = OpenSSL::SSL::VERIFY_PEER
      end

      raw_response = http.post(uri.request_uri, post_data(params))
      return raw_response.body
    # Try to catch some common exceptions Net::HTTP might raise
    rescue Errno::ETIMEDOUT, Errno::EINVAL, Errno::ECONNRESET, Errno::ECONNREFUSED, EOFError, IOError, SocketError,
           Net::HTTPBadResponse, Net::HTTPHeaderSyntaxError, Net::OpenTimeout, Net::ProtocolError, Net::ReadTimeout,
           OpenSSL::SSL::SSLError => ex
      raise ConnectionException, ex
    end

    def build_request_data(options)
      params = { brq_websitekey: @options[:website] }

      params.merge!(build_request_params(options))

      params[:add_buckaruby] = "Buckaruby #{Buckaruby::VERSION}"

      # Sign the data with our secret key.
      params[:brq_signature] = Signature.generate_signature(params, @options)

      params
    end

    def post_data(params)
      params.map { |key, value| "#{key}=#{CGI.escape(value.to_s)}" }.join("&")
    end

    def parse_response(body)
      query = CGI.parse(body)
      query.each { |key, value| query[key] = value.first }
      query
    end

    def test?
      @options[:mode] == :test
    end

    def api_url
      test? ? Urls::TEST_URL : Urls::PRODUCTION_URL
    end
  end

  # Base class for a transaction request.
  class TransactionRequest < Request
    def execute(options)
      super(options.merge(operation: Operation::TRANSACTION_REQUEST))
    end

    def build_request_params(options)
      params = {
        brq_payment_method: options[:payment_method],
        brq_culture: options[:culture] || Language::DUTCH,
        brq_currency: options[:currency] || Currency::EURO,
        brq_amount: BigDecimal.new(options[:amount].to_s).to_s("F"),
        brq_invoicenumber: options[:invoicenumber]
      }

      params.merge!(build_transaction_request_params(options))

      params[:brq_clientip] = options[:client_ip] if options[:client_ip]
      params[:brq_description] = options[:description] if options[:description]
      params[:brq_return] = options[:return_url] if options[:return_url]

      params
    end

    def build_transaction_request_params(_options)
      raise NotImplementedError
    end
  end

  # Request for a creating a new transaction.
  class SetupTransactionRequest < TransactionRequest
    def build_transaction_request_params(options)
      params = {}

      case options[:payment_method]
      when PaymentMethod::IDEAL
        params.merge!(
          brq_service_ideal_action: Action::PAY,
          brq_service_ideal_issuer: options[:payment_issuer],
          brq_service_ideal_version: "2"
        )
      when PaymentMethod::SEPA_DIRECT_DEBIT
        params.merge!(
          brq_service_sepadirectdebit_action: Action::PAY,
          brq_service_sepadirectdebit_customeriban: options[:account_iban],
          brq_service_sepadirectdebit_customeraccountname: options[:account_name]
        )

        if options[:account_bic]
          params[:brq_service_sepadirectdebit_customerbic] = options[:account_bic]
        end

        if options[:collect_date]
          params[:brq_service_sepadirectdebit_collectdate] = options[:collect_date].strftime("%Y-%m-%d")
        end

        if options[:mandate_reference]
          params.merge!(
            brq_service_sepadirectdebit_action: [Action::PAY, Action::EXTRA_INFO].join(","),
            brq_service_sepadirectdebit_mandatereference: options[:mandate_reference],
            brq_service_sepadirectdebit_mandatedate: Date.today.strftime("%Y-%m-%d")
          )
        end
      end

      params[:brq_startrecurrent] = options[:recurring] if options[:recurring]

      params
    end
  end

  # Request for a creating a recurrent transaction.
  class RecurrentTransactionRequest < TransactionRequest
    def build_transaction_request_params(options)
      params = {}

      key = :"brq_service_#{options[:payment_method]}_action"
      params[key] = Action::PAY_RECURRENT

      # Indicate that this is a request without user redirection to a webpage.
      # This is needed to make recurrent payments working.
      params[:brq_channel] = "backoffice"

      params[:brq_originaltransaction] = options[:transaction_id]

      params
    end
  end

  # Request for getting the status of a transaction.
  class StatusRequest < Request
    def execute(options)
      super(options.merge(operation: Operation::TRANSACTION_STATUS))
    end

    def build_request_params(options)
      params = {}

      params[:brq_transaction] = options[:transaction_id] if options[:transaction_id]
      params[:brq_payment] = options[:payment_id] if options[:payment_id]

      params
    end
  end
end