mechanize.cr/src/mechanize/form.cr

require "./form/field"
require "./form/check_box"
require "./form/radio_button"

class MechanizeCr::Form
  getter fields     : Array(FormContent::Field)
  getter checkboxes : Array(FormContent::CheckBox)
  getter radiobuttons : Array(FormContent::RadioButton)
  getter enctype    : String
  getter method     : String
  getter name       : String
  property action   : String

  def initialize(node : Node | Myhtml::Node)
    @enctype          = node.fetch("enctype", "application/x-www-form-urlencoded")
    @node             = node
    @fields           = Array(FormContent::Field).new
    @checkboxes       = Array(FormContent::CheckBox).new
    @radiobuttons     = Array(FormContent::RadioButton).new
    @action           = node.fetch("action", "")
    @method           = node.fetch("method", "GET").upcase
    @name             = node.fetch("name", "")
    #@clicked_buttons  = []
    #@page             = page
    #@mech             = mech

    #@encoding = node['accept-charset'] || (page && page.encoding) || nil
    #@ignore_encoding_error = false
    parse
  end

  def request_data
    query_params = build_query
    build_query_string(query_params)
  end

  # generate fields_with and field_with methods.
  # These methods are used for finding nodes that matches conditions.
  # ex.) field_with("email") finds <input name="email">

  {% for singular, index in ["field", "radiobutton"] %}
    {% plural = "#{singular.id}s" %}
    def {{plural.id}}_with(criteria)
      value = Hash(String,String).new
      if String === criteria
        value = {"name" => criteria}
      else
        # TODO
        # when args whose type isn't String is given
      end
      f = {{plural.id}}.select do |elm|
        value.all? do |k,v|
          v === elm.name
        end
      end
      f.empty? ? nil : f
    end

    def {{plural.id}}_with(criteria, &block)
      value = Hash(String,String).new
      if String === criteria
        value = {"name" => criteria}
      else
        # TODO
        # when args whose type isn't String is given
      end
      f = {{plural.id}}.select do |elm|
        value.all? do |k,v|
          v === elm.name
        end
      end
      yield f
      f
    end

    def {{singular.id}}_with(criteria)
      f = {{plural.id}}_with(criteria)
      raise ElementNotFoundError.new(:{{singular.id}}, criteria) if f.nil?
      f.first
    end
  {% end %}

  private def parse
    @fields = Array(FormContent::Field).new
    @checkboxes = Array(FormContent::CheckBox).new
    @node.css("input").not_nil!.each do |html_node|
      html_node = html_node.as(Myhtml::Node)
      type = (html_node["type"] || "text").downcase
      case type
      when "checkbox"
        @checkboxes << FormContent::CheckBox.new(html_node, self)
      else
        @fields << FormContent::Field.new(html_node)
      end
    end
  end

  private def build_query_string(params : Array(Array(String)))
    params.reduce("") do |acc, arr|
      hash = { arr[0] => arr[1] }
      acc + URI::Params.encode(hash) + '&'
    end.rchop
  end

  private def build_query
    query = [] of Array(String)
    successful_controls = Array(FormContent::Field | FormContent::CheckBox).new
    fields.each do |elm|
      successful_controls << elm
    end
    checkboxes.each do |elm|
      if elm.checked
        successful_controls << elm
      end
    end
    successful_controls.each do |ctrl|
      value = ctrl.query_value
      next if value[0] == ""
      query.push(value)
    end
    query
  end
end