require 'net/https'
require 'uri'
require 'multi_json'
require 'yaml'
require 'addressable/uri'
require 'deep_merge'

module Onering
  module API
    module Errors
      class NotConnected < Exception; end
      class ClientError < Exception; end
      class ServerError < Exception; end
      class ConnectionTimeout < Exception; end
    end

    class Base
      include Onering::Util

      DEFAULT_BASE="https://onering"
      DEFAULT_PATH="/api"
      DEFAULT_OPTIONS_FILE=[
        "./cli.yml",
        "~/.onering/cli.yml",
        "/etc/onering/cli.yml"
      ]

      DEFAULT_CLIENT_PEM=[
        "./client.pem",
        "~/.onering/client.pem",
        "/etc/onering/client.pem"
      ]

      class<<self
        def connect(options={})
        # list all existing config files from least specific to most
          @_configfiles = ([options[:config]] + DEFAULT_OPTIONS_FILE).compact.select{|i|
            (File.exists?(File.expand_path(i)) rescue false)
          }.reverse

        # merge all config files with more-specific values overriding less-specific ones
          @_config = {}
          @_configfiles.each do |i|
            c = YAML.load(File.read(File.expand_path(i))) rescue {}
            @_config.deep_merge!(c)
          end

          if options[:host].is_a?(URI)
            @_uri = options[:host]
          elsif options[:host].is_a?(String)
            @_uri = Addressable::URI.parse("#{options[:host]}/#{DEFAULT_PATH}")
          else
            @_uri = Addressable::URI.parse("#{@_config['url'] || DEFAULT_BASE}/#{@_config['apiroot'] || DEFAULT_PATH}")
          end

          if @_uri
            @_pemfile = ([options[:pemfile], @_config['pemfile']]+DEFAULT_CLIENT_PEM).compact.select{|i|
              (File.exists?(File.expand_path(i)) rescue false)
            }.first

            if @_pemfile
              @_pem = File.read(File.expand_path(@_pemfile))
              @_http = Net::HTTP.new(@_uri.host, (@_uri.port || 443))
              @_http.open_timeout = 30
              @_http.read_timeout = 120
              @_http.use_ssl = true
              @_http.cert = OpenSSL::X509::Certificate.new(@_pem)
              @_http.key = OpenSSL::PKey::RSA.new(@_pem)
              @_http.verify_mode = OpenSSL::SSL::VERIFY_NONE
            end
          end
        end

        def request(endpoint, options={})
          options = @_config.merge(options)
          options[:method] = (options[:method].to_s.downcase.to_sym rescue nil)
          request = nil

          uri = Addressable::URI.parse("#{@_uri.to_s}/#{endpoint}")
          uri.query_values = options[:fields] if options[:fields]

          raise Errors::NotConnected unless @_http

          case options[:method]
          when :post
            request = Net::HTTP::Post.new(uri.request_uri)
            request['Content-Type'] = 'application/json'
            request.body = MultiJson.dump(options[:data]) if options[:data]

          when :delete
            request = Net::HTTP::Delete.new(uri.request_uri)

          else
            request = Net::HTTP::Get.new(uri.request_uri)

          end

          response = @_http.request(request)

          if response.code.to_i >= 400
            rv = (MultiJson.load(response.body) rescue {}) unless response.body.empty?

            if rv['errors']
              msg = "#{rv['errors']['type']}: #{rv['errors']['message']}"
            end

            if response.code.to_i >= 500
              raise Errors::ServerError.new("HTTP #{response.code}: #{msg}")
            else
              raise Errors::ClientError.new("HTTP #{response.code}: #{msg}")
            end
          else
            if response['Content-Type'] == 'application/json'
              rv = (response.body.empty? ? nil : MultiJson.load(response.body))
            else
              rv = response.body
            end
          end

          rv
        end

        def make_filter(filter)
          filter = filter.collect{|k,v| "#{k}/#{v}" } if filter.is_a?(Hash)
          filter = filter.collect{|i| i.sub(':','/') }.join("/") if filter.is_a?(Array)
          filter
        end

        def echo(obj)
          if obj.is_a?(Array)
            obj.each do |i|
              puts i
            end
          end
        end
      end
    end
  end
end