module AqumulateAPI

  class << self
    attr_accessor :session
  end

  def self.session
    @session ||= Session.new
  end

  def self.session=(session)
    @session = session
  end

  class Session

    attr_reader :config, :auth

    def initialize
      if block_given?
        @config = AqumulateAPI::Configuration.new
        yield(@config)
      else
        @config = AqumulateAPI.config
      end

      login
    end

    def login
      response = HTTParty.post(
          "#{config.url}/token",
          headers: { 'Accept' => 'application/x-www-form-urlencoded' },
          body: {
              grant_type: config.grant_type,
              'userName' => config.username,
              password: config.password
          },
          timeout: config.timeout
      )

      if config.debug
        puts response.request.inspect
        puts response.inspect
      end

      @auth = handle_response response
    end

    def handle_response(response)
      if response.parsed_response.is_a?(Hash) && response.parsed_response.has_key?('error')
        raise AuthenticationError.new(response.parsed_response['error_description'], response.request)

      elsif response.code != 200
        raise RequestError.new(response.response.msg, response.response)
      end

      response.parsed_response
    end

    def api_request(resource, body)
      response = HTTParty.post(
          "#{config.url}/api/#{resource}",
          headers: {
              'Content-Type' => 'application/json',
              'Authorization' => "bearer #{auth['access_token']}"
          },
          body: body.to_json,
          timeout: config.timeout
      )

      if config.debug
        puts response.request.inspect
        puts response.inspect
      end

      handle_response response
    end

    def check_raise_request_error(response)
      raise RequestError.new(response['ErrorMessage'], response) if response_has_error?(response)
    end

    def response_has_error?(response)
      response.has_key?('ErrorMessage') && !response['ErrorMessage'].to_s.empty?
    end

  end
end