module StripeTester

# File lib/stripe_tester.rb, line 136
def self.basic_authentication_password
  @webhook_password || self.webhook_url.password
end

# File lib/stripe_tester.rb, line 14
def self.create_event(callback_type, attributes={}, options={method: :overwrite})
  webhook_data = self.load_template(callback_type, attributes, options)

  post_to_url(webhook_data) if webhook_data
end

# File lib/stripe_tester.rb, line 89
def self.load_template(callback_type, attributes={}, options={method: :overwrite})
  spec = Gem::Specification.find_by_name("stripe_tester")
  gem_root = spec.gem_dir
  version = StripeTester.stripe_version

  path = gem_root + "/stripe_webhooks/#{version}/#{callback_type}.yml"
  if File.exists?(path)
    template = indifferent(Psych.load_file(path))
    
    unless attributes.empty?
      if options[:method] == :merge
        template = merge_attributes(template, attributes)
      else
        template = overwrite_attributes(template, attributes)
      end
    end

    return template
  else
    raise "Webhook not found. Please use a correct webhook type or correct Stripe version"
  end
end

# File lib/stripe_tester.rb, line 45
def self.merge_attributes(original_attributes, new_attributes={})
  original_attributes = original_attributes.clone
  if new_attributes
    indifferent(new_attributes).each do |key, value|
      if value.is_a?(Hash) && original_attributes[key].is_a?(Hash)
        original_attributes[key] = self.merge_attributes original_attributes[key], value
      else
        original_attributes[key] = value
      end
    end
  end
  original_attributes
end

# File lib/stripe_tester.rb, line 21
def self.overwrite_attributes(original_data, attributes={})
  data = original_data.clone
  if attributes
    indifferent(attributes).each do |k,v|
      replace_value(data, k, v)
    end
  end
  data
end

# File lib/stripe_tester.rb, line 59
def self.post_to_url(data={})
  post_url = webhook_url

  if post_url
    # set up request
    req = Net::HTTP::Post.new(post_url.path)
    req.content_type = 'application/json'
    req.body = data.to_json
    req.basic_auth 'stripe', self.basic_authentication_password if !self.basic_authentication_password.nil?
    http_object = Net::HTTP.new(post_url.hostname, post_url.port)
    http_object.use_ssl = true if post_url.scheme == 'https'
    http_object.verify_mode = OpenSSL::SSL::VERIFY_NONE if (!verify_ssl? && http_object.use_ssl?)

    # send request
    res = http_object.start do |http|
      http.request(req)
    end

    case res
      when Net::HTTPSuccess, Net::HTTPRedirection
        true
      else
        res.value
    end
  else
    raise "Could not post to URL. Please set URL."
  end
end

# File lib/stripe_tester.rb, line 124
def self.remove_url
  @url = nil
end

# File lib/stripe_tester.rb, line 32
def self.replace_value(hash, key, new_value)
  if hash.key?(key)
    hash[key] = new_value
  else
    hash.values.each do |value|
      value = value.first if value.is_a?(Array)
      replace_value(value, key, new_value) if value.is_a?(Hash)
    end
    hash
  end
end

# File lib/stripe_tester.rb, line 144
def self.stripe_version
  @version ? @version : LATEST_STRIPE_VERSION
end

# File lib/stripe_tester.rb, line 140
def self.stripe_version=(version)
  @version = version
end

# File lib/stripe_tester.rb, line 148
def self.verify_ssl=(verify)
  @verify_ssl = verify
end

# File lib/stripe_tester.rb, line 152
def self.verify_ssl?
  !@verify_ssl.nil? ? @verify_ssl : true
end

# File lib/stripe_tester.rb, line 132
def self.webhook_password
  @webhook_password
end

# File lib/stripe_tester.rb, line 128
def self.webhook_password=(webhook_password)
  @webhook_password =  webhook_password
end

# File lib/stripe_tester.rb, line 120
def self.webhook_url
  @url
end

# File lib/stripe_tester.rb, line 113
def self.webhook_url=(url)
  if url =~ /^#{URI::regexp}$/
    temp_url = URI.parse(url)
    @url = temp_url
  end
end

# File lib/stripe_tester.rb, line 158
def self.indifferent(obj)
  if obj.is_a?(Hash) && obj.respond_to?(:with_indifferent_access)
    obj.with_indifferent_access
  else
    obj
  end
end