require 'http'
require 'active_support/core_ext/object/blank'

class HTTP::MimeType::JSON
  def decode(str)
    ::JSON.parse(str, symbolize_names: true)
  end
end

class Revo::LoansApi::Client
  attr_reader :session_token, :loan_request_token

  Result = Struct.new(:success?, :response, keyword_init: true)

  def initialize(
    base_url:,
    login: nil,
    password: nil,
    session_token: nil,
    application_source: nil,
    timeouts: nil
  )
    @base_url = base_url
    @login = login
    @password = password
    @session_token = session_token
    @application_source = application_source
    @timeouts = timeouts
  end

  def create_session
    make_request(
      :post, 'sessions',
      params: { user: { login: login, password: password } }
    ).tap do |result|
      @session_token = result.response.dig(:user, :authentication_token) if result&.success?
    end
  end

  def create_loan_request(options)
    response = make_request(
      :post,
      'loan_requests',
      params: loan_request_params(options)
    )
    return response unless response.success?

    @loan_request_token = response.response.dig(:loan_request, :token)
    terms = loan_request_terms
    return terms unless terms.success?

    Result.new(success?: true,
               response: {
                 token: loan_request_token,
                 insurance_available: response.response.dig(:loan_request, :insurance_available),
                 terms: terms.response[:loan_request]
               })
  end

  def update_loan_request(token:, options:)
    update_params = { loan_request: options }
    response = make_request(
      :put,
      "loan_requests/#{token}",
      params: update_params
    )

    return response unless response.success?

    @loan_request_token = token
    terms = loan_request_terms
    return terms unless terms.success?

    Result.new(
      success?: true,
      response: {
        terms: terms.response[:loan_request]
      }
    )
  end

  def get_loan_request_info(token:, amount:)
    result = make_request(:get, "loan_requests/#{token}?amount=#{amount}")

    result.success? ? result.response[:loan_request] : []
  end

  def get_loan_request_attributes(token:)
    result = make_request(:get, "loan_requests/#{token}")
    return result unless result.success?

    Result.new(
      success?: true,
      response: result.response[:loan_request_attributes]
    )
  end

  # prerequisite: a client with the LR's phone number should already exist
  def document(token:, type:, format: 'html')
    make_request(:get, "loan_requests/#{token}/documents/#{type}.#{format}")
  end

  def send_loan_confirmation_message(token:)
    make_request(:post, "loan_requests/#{token}/client/confirmation")
  end

  def complete_loan_request(token:, code: nil, session_id: nil)
    complete_params = {}

    if session_id
      complete_params[:session_id] = session_id
    else
      complete_params[:code] = code
    end

    make_request(
      :post,
      "loan_requests/#{token}/confirmation",
      params: complete_params,
      headers: { 'Application-Source': application_source }
    )
  end

  def create_loan(token:, term_id:)
    make_request(
      :post,
      "loan_requests/#{token}/loan",
      params: { term_id: term_id },
      headers: { 'Application-Source': application_source }
    )
  end

  def finalize_loan(token:, code: nil, sms_info: '0', skip_confirmation: false, session_id: nil)
    loan_params = {
      agree_processing: '1',
      agree_sms_info: sms_info
    }

    loan_params[:confirmation_code] = code if code
    loan_params[:session_id] = session_id if session_id

    if skip_confirmation
      loan_params[:skip_confirmation] = true
      loan_params.delete(:confirmation_code)
    end

    make_request(
      :post,
      "loan_requests/#{token}/loan/finalization",
      params: { loan: loan_params }
    )
  end

  def confirm_loan(token:, bill:)
    response = make_request(
      :put,
      "loan_requests/#{token}/loan/bill",
      params: { loan: { bill: bill } }
    )

    return response unless response.success?

    Result.new(success?: true, response: response.response)
  end

  # returns
  def orders(store_id:, filters: {})
    make_request(
      :get,
      'orders',
      params: { store_id: store_id, filters: filters }
    )
  end

  def send_return_confirmation_code(order_id:)
    make_request(:post, "orders/#{order_id}/send_return_confirmation_code")
  end

  def create_return(order_id:, code:, amount:, store_id:)
    params = {
      return: {
        order_id: order_id,
        confirmation_code: code,
        amount: amount,
        store_id: store_id
      }
    }
    make_request(:post, 'returns', params: params)
  end

  def confirm_return(return_id:)
    make_request(:post, "returns/#{return_id}/confirm")
  end

  def cancel_return(return_id:)
    make_request(:post, "returns/#{return_id}/cancel")
  end

  def start_self_registration(token:, mobile_phone:, skip_message: false, mobile_meta_info: {})
    make_request(
      :post,
      "loan_requests/#{token}/client/self_registration",
      params: { mobile_phone: mobile_phone, skip_message: skip_message, mobile_meta_info: mobile_meta_info }
    )
  end

  def check_client_code(token:, code:)
    make_request(
      :post,
      "loan_requests/#{token}/client/check_code",
      params: { code: code }
    )
  end

  def create_client(token:, client_params:, provider_data: {}, skip_email_confirmation: false)
    make_request(
      :post,
      "loan_requests/#{token}/client",
      params: { client: client_params, provider_data: provider_data,
                skip_email_confirmation: skip_email_confirmation },
      headers: { 'Application-Source': application_source }
    )
  end

  def update_client(id:, client_params:)
    make_request(:patch, "clients/#{id}", params: { client: client_params })
  end

  def get_client(guid:)
    make_request(:get, "clients/#{guid}")
  end

  def get_client_info(guid:)
    make_request(:get, "clients/#{guid}/informers")
  end

  def create_virtual_card(token:, term_id:, force_approve: false)
    make_request(
      :post,
      "loan_requests/#{token}/virtual_card",
      params: { term_id: term_id, force_approve: force_approve },
      headers: { 'Application-Source': application_source }
    )
  end

  def update_virtual_card(token:, term_id:)
    make_request(
      :patch,
      "loan_requests/#{token}/virtual_card",
      params: { term_id: term_id },
      headers: { 'Application-Source': application_source }
    )
  end

  def create_card_loan(token:, term_id:, force_approve: false)
    make_request(
      :post,
      "loan_requests/#{token}/virtual_card_loan",
      params: { term_id: term_id, force_approve: force_approve },
      headers: { 'Application-Source': application_source }
    )
  end

  def send_billing_shift(client_id:, billing_chain:)
    make_request(
      :post,
      "clients/#{client_id}/billing_shift",
      params: { billing_chain: billing_chain }
    )
  end

  def send_billing_shift_confirmation_code(client_id:)
    make_request(:post, "clients/#{client_id}/billing_shift")
  end

  def confirm_billing_shift(client_id:, billing_chain:, code: nil, session_id: nil)
    confirmation_params = {
      billing_chain: billing_chain
    }

    confirmation_params[:code] = code if code
    confirmation_params[:session_id] = session_id if session_id

    make_request(
      :post,
      "clients/#{client_id}/billing_shift/confirmation",
      params: confirmation_params
    )
  end

  def billing_shift_info(client_id:)
    make_request(:get, "clients/#{client_id}/billing_shift/info")
  end

  def billing_shift_document(client_id:, billing_chain: nil, billing_shift_id: nil)
    if billing_shift_id
      make_request(:get, "clients/#{client_id}/billing_shift/#{billing_shift_id}")
    else
      make_request(:get, "clients/#{client_id}/billing_shift/agreement",
                   params: { billing_chain: billing_chain })
    end
  end

  def send_restructuring_confirmation_code(client_id:, product:)
    make_request(:post, "clients/#{client_id}/restructuring/#{product}")
  end

  def restructuring_info(client_id:, product:)
    make_request(:get, "clients/#{client_id}/restructuring/#{product}/info")
  end

  def confirm_restructuring(client_id:, code:, product:)
    make_request(
      :post,
      "clients/#{client_id}/restructuring/#{product}/confirmation",
      params: { code: code }
    )
  end

  def restructuring_document(client_id:, product:, format: 'pdf')
    make_request(
      :get,
      "clients/#{client_id}/restructuring/#{product}/document.#{format}"
    )
  end

  def increase_client_limit(client_id:, amount:)
    make_request(
      :patch,
      "clients/#{client_id}/limit",
      params: { amount: amount }
    )
  end

  def get_client_limit(client_id:)
    make_request(:get, "clients/#{client_id}/limit")
  end

  def client_loan_documents(client_id:, loan_application_id:)
    make_request(:get, "clients/#{client_id}/loans/#{loan_application_id}")
  end

  def get_client_additional_services(client_id:)
    make_request(:get, "clients/#{client_id}/additional_services")
  end

  def update_client_additional_services(client_id:, additional_services:)
    make_request(
      :patch,
      "clients/#{client_id}/additional_services",
      params: additional_services
    )
  end

  def store_document(store_id:, kind:, format: :pdf)
    make_request(
      :get,
      "stores/#{store_id}/documents/#{kind}.#{format}"
    )
  end

  def certificate(loan_application_id:, kind:)
    make_request(
      :post,
      "loan_applications/#{loan_application_id}/certificate",
      params: { kind: kind }
    )
  end

  def create_credit_report(client_id:)
    make_request(:post, "clients/#{client_id}/credit_ratings")
  end

  def credit_reports_list(client_id:)
    make_request(:get, "clients/#{client_id}/credit_ratings")
  end

  def credit_report(client_id:, report_id:)
    make_request(:get, "clients/#{client_id}/credit_ratings/#{report_id}")
  end

  def credit_report_document(client_id:, report_id:)
    make_request(:get, "clients/#{client_id}/credit_ratings/#{report_id}/document")
  end

  def update_client_address(id:, address:)
    make_request(:post, "clients/#{id}/address", params: { address: address })
  end

  def suggest_address(id:, address:)
    make_request(:get, "clients/#{id}/address", params: { address: address })
  end

  def create_stretch_document(id:, payload:)
    make_request(:post, "offer/stretch/#{id}", params: { payload: payload })
  end

  def update_credit_facility(id:, fields:)
    make_request(:patch, "credit_facilities/#{id}", params: { fields: fields })
  end

  private

  API_CONTENT_TYPE = 'application/json'.freeze

  attr_reader :base_url, :login, :password, :application_source

  def connection
    @connection ||= if @timeouts.present?
                      HTTP.timeout(@timeouts).persistent(base_url)
                    else
                      HTTP.persistent(base_url)
                    end
  end

  def loan_request_terms(&block)
    result = make_request(:get, "loan_requests/#{loan_request_token}", &block)
    return result if result.success?

    Result.new(success?: false, response: { errors: { base: [:cant_fetch_loan_request_terms] } })
  end

  def make_request(method, endpoint, params: {}, headers: {}, &block)
    headers = { 'Authorization': session_token }.merge(headers).compact
    response = connection.public_send(
      method,
      url_for(endpoint),
      json: params,
      headers: headers
    )
    handle_response(response, &block)
  rescue HTTP::Error => e
    handle_error(e)
  end

  def handle_response(response)
    if response.status.success?
      if block_given?
        yield response
      else
        response
      end
      Result.new(success?: true, response: parse(response))
    else
      handle_error(response)
    end
  end

  def handle_error(response_or_exception)
    response = response_or_exception if response_or_exception.respond_to?(:status)
    if response
      if response.status.unauthorized?
        raise Revo::LoansApi::InvalidAccessTokenError
      else
        Result.new(success?: false, response: parse_errors(response))
      end
    else
      raise Revo::LoansApi::UnexpectedResponseError, response_or_exception
    end
  end

  def parse(response)
    response.parse if response.body.present?
  rescue HTTP::Error
    response.to_s.presence
  end

  def parse_errors(response)
    if response.content_type.mime_type == API_CONTENT_TYPE
      parse(response)
    else
      {
        errors: { base: [:unexpected_response] },
        raw_response: response.to_s.presence
      }
    end
  end

  def url_for(endpoint)
    [base_url, endpoint].join('/')
  end

  def loan_request_params(options)
    { loan_request: options }
  end
end