module Scrivito

class CmsRouting < Struct.new(:request, :main_app, :scrivito_engine, :image_options)
  LINK_TO_EMPTY_LINKLIST = "#__empty_linklist"
  LINK_TO_EMPTY_BLOB = "#__empty_blob"

  def self.match_protocol(url, request)
    request.ssl? && !url.starts_with?('https') ? url.gsub(/^http/, 'https') : url
  end

  def path_or_url(target, path_or_url, options = {})
    if needs_editing_context?(target)
      path_or_url_needs_editing_context(target, path_or_url, options)
    else
      path_or_url_without_editing_context(target, path_or_url, options)
    end
  end

  def convert_links(html)
    if html
      html.to_str.gsub(%r{\bobjid:([a-f0-9]{16})\b([^"']*)}) do
        if obj = Obj.find_by_id($1)
          options = {}

          if $2.present?
            begin
              uri = URI.parse($2)
              options.merge!(extract_query(uri))
              options['anchor'] = uri.fragment
            rescue
            end
          end

          if editing_context.display_mode == 'editing'
            id_path_or_url_for_objs(obj, :path, options)
          else
            path_or_url(obj, :path, options)
          end
        else
          "#__target_object_not_reachable"
        end
      end
    end
  end

  private

  def path_or_url_needs_editing_context(target, path_or_url, options)
    path_or_url_without_editing_context(target, path_or_url,
      options.merge(editing_context.to_params))
  end

  def path_or_url_without_editing_context(target, path_or_url, options)
    if target.is_a?(Link)
      path_or_url_for_links(target, path_or_url, options)
    elsif target.is_a?(Obj)
      path_or_url_for_objs(target, path_or_url, options)
    elsif target.respond_to?(:first)
      if target.first.is_a?(Link)
        path_or_url_for_links(target.first, path_or_url, options)
      else
        return LINK_TO_EMPTY_LINKLIST
      end
    elsif target.is_a?(Binary)
      binary_url(target)
    else
      raise "scrivito_path or scrivito_url was called with an instance of #{target.class}. "+
        "It must only be called with an Obj or a Link or a non-empty LinkList."
    end
  end

  def path_or_url_for_links(link, path_or_url, options)
    url = basic_url_or_path_for_link(link, path_or_url,
      Rack::Utils.parse_nested_query(link.query).merge(options))
    url = url + "##{link.fragment}" if link.fragment.present?
    url
  end

  def path_or_url_for_objs(obj, path_or_url, options)
    permalink = obj.permalink
    if permalink
      main_app
        .public_send("scrivito_permalink_#{path_or_url}", options.merge(:permalink => permalink))
    elsif homepage?(obj)
      main_app.public_send("scrivito_root_#{path_or_url}", options)
    elsif obj.binary?
      binary_obj_url(obj) || LINK_TO_EMPTY_BLOB
    else
      slug = obj.slug.present? ? obj.slug.sub(/^\//, '') : nil
      id_path_or_url_for_objs(obj, path_or_url, options.merge(slug: slug))
    end
  end

  def id_path_or_url_for_objs(obj, path_or_url, options)
    method_name = if Scrivito::Configuration.legacy_routing
      "cms_legacy_id_#{path_or_url}"
    else
      "cms_id_#{path_or_url}"
    end

    main_app.public_send(method_name, options.merge(id: obj.id))
  end

  def homepage?(obj)
    RequestHomepage.call(request.env) == obj
  end

  def editor_authenticated?
    editing_context.authenticated_editor?
  end

  def editing_context
    EditingContextMiddleware.from_request(request)
  end

  def needs_editing_context?(target)
    editor_authenticated? && (!target.is_a?(Link) || target.internal?)
  end

  def basic_url_or_path_for_link(link, path_or_url, options = {})
    if link.internal?
      path_or_url_without_editing_context(link.obj, path_or_url, options)
    else
      url = link.url
      url = merge_options(url, options) if options.any?
      url
    end
  end

  def merge_options(url, options)
    parsed_url = URI.parse(url)

    query = extract_query(parsed_url)
    merged_query = query.merge(options.stringify_keys)
    parsed_url.query = merged_query.to_query

    parsed_url.to_s
  end

  def extract_query(uri)
    Rack::Utils.parse_query(uri.query)
  end

  def binary_url(binary)
    BinaryRouting.new(request, scrivito_engine).binary_url(binary)
  end

  def binary_obj_url(obj)
    if binary = obj.binary
      BinaryRouting.new(request, scrivito_engine).binary_obj_url(obj, binary, image_options || {})
    end
  end
end

end