# -*- encoding : utf-8 -*-

module HttpUtilities
  module Http
    module Mechanize

      class Client
        attr_accessor :agent, :proxy, :user_agent
        
        include HttpUtilities::Http::Logger
        include HttpUtilities::Http::ProxySupport
        include HttpUtilities::Http::UserAgent
        
        def initialize(options = {})
          init_agent(options)
        end
        
        def init_agent(options = {})
          verbose                   =   options.fetch(:verbose, false)
          logger                    =   options.fetch(:logger, STDOUT)
          
          self.agent                =   ::Mechanize.new
          self.agent.log            =   ::Logger.new(logger) if (verbose)
          
          self.set_proxy_options(options)
          
          if (self.proxy[:host] && self.proxy[:port])
            log(:info, "[HttpUtilities::Http::Mechanize::Client] - Will use proxy #{self.proxy[:host]}:#{self.proxy[:port]} for Mechanize.")
            self.agent.set_proxy(self.proxy[:host], self.proxy[:port], self.proxy[:username], self.proxy[:password])
          end
          
          self.set_user_agent
          (self.user_agent) ? self.agent.user_agent = self.user_agent : self.agent.user_agent_alias = 'Mac Safari'
          
          timeout                   =   options.fetch(:timeout, 300)
          self.agent.open_timeout   =   self.agent.read_timeout = timeout if (timeout)
        end
        
        def reset_agent(options = {})
          self.agent, self.proxy, self.user_agent = nil
          init_agent(options)
        end
        
        def open_url(url, options = {}, retries = 3)
          page = nil

          begin
            page = self.agent.get(url)

          rescue Net::HTTPNotFound, ::Mechanize::ResponseCodeError => error
            log(:error, "[HttpUtilities::Http::Mechanize::Client] - Response Code Error occurred for url #{url}. Error class: #{error.class.name}. Error message: #{error.message}")
            
            if (retries > 0)
              reset_agent(options)
              retries -= 1
              retry
            end
            
          rescue Errno::ECONNREFUSED, Errno::ETIMEDOUT, Errno::ECONNRESET, Timeout::Error, Net::HTTPUnauthorized, Net::HTTPForbidden, StandardError => connection_error
            log(:error, "[HttpUtilities::Http::Mechanize::Client] - Error occurred. Error class: #{connection_error.class.name}. Message: #{connection_error.message}")

            if (retries > 0)
              reset_agent(options)
              retries -= 1
              retry
            end
          end

          return page
        end
        
        def get_page(url_or_page, options = {})
          page        =   nil
          
          if (url_or_page.is_a?(String))
            page      =   open_url(url_or_page, options)
          else
            page      =   url_or_page
          end
          
          page        =   (page && page.is_a?(::Mechanize::Page)) ? page : nil #Occasionally proxies will yield Mechanize::File instead of a proper page
          
          return page
        end
        
        def get_form(url_or_page, form_identifier = {}, options = {})
          form        =   nil
          index       =   form_identifier.delete(:index) { |el| 0 }
          page        =   (url_or_page.is_a?(String)) ? get_page(url_or_page, options) : url_or_page
          
          if (page)
            if (form_identifier.empty?)
              form    =   page.forms[index]
            else
              forms   =   page.forms_with(form_identifier)
              form    =   (forms && forms.any?) ? forms[index] : nil
            end
          end
          
          return form
        end

        def set_form_and_submit(url_or_page, form_identifier = {}, submit_identifier = :first, fields = {}, options = {}, retries = 3)
          should_reset_radio_buttons  =   options.fetch(:should_reset_radio_buttons, false)
          page                        =   get_page(url_or_page, options)
          form                        =   page ? get_form(page, form_identifier) : nil
          response_page               =   nil

          if (form)
            form.action               =     "#{url_or_page}#{form.action}"  if (url_or_page.is_a?(String) && form.action.starts_with?("#"))
            form                      =     reset_radio_buttons(form)       if (should_reset_radio_buttons)
            form                      =     set_form_fields(form, fields)
            button                    =     (submit_identifier.nil? || submit_identifier.eql?(:first)) ? form.buttons.first : form.button_with(submit_identifier)

            begin
              response_page           =     form.submit(button)
            rescue Exception => e
              log(:error, "[HttpUtilities::Http::Mechanize::Client] - Failed to submit form. Error: #{e.class.name} - #{e.message}.")
            end

          elsif (!form && retries > 0)
            log(:info, "[HttpUtilities::Http::Mechanize::Client] - Couldn't find page or form with identifier #{form_identifier.inspect}")
            retries -= 1
            set_form_and_submit(url_or_page, form_identifier, submit_identifier, fields, options, retries)
          end

          return response_page
        end

        def reset_radio_buttons(form)
          radio_buttons = form.radiobuttons
          
          radio_buttons.each do |radio_button|
            radio_button.checked = false
          end if (form && radio_buttons && radio_buttons.any?)

          return form
        end

        def set_form_fields(form, fields)
          if (form && fields && !fields.empty?)
            fields.each do |key, value|
              form = set_form_field(form, key, value)
            end
          end

          return form
        end

        def set_form_field(form, key, value)
          type          =   value.fetch(:type, :input)
          identifier    =   value.fetch(:identifier, :name)
          
          if (type.eql?(:input))
            log(:info, "[HttpUtilities::Http::Mechanize::Client] - Setting text field #{key} to value #{value[:value]}.")
            form.has_field?(key.to_s) ? form.field_with(identifier => key.to_s).value = value[:value].to_s : set_form_fields(form, value[:fallbacks])
          
          elsif (type.eql?(:checkbox))
            log(:info, "[HttpUtilities::Http::Mechanize::Client] - Setting checkbox #{key} to checked: #{value[:checked]}.")
            form.checkbox_with(identifier => key.to_s).checked        =   value[:checked]
          
          elsif (type.eql?(:radiobutton))
            log(:info, "[HttpUtilities::Http::Mechanize::Client] - Setting radio button #{key} to checked: #{value[:checked]}.")
            form.radiobutton_with(identifier => key.to_s).checked     =   value[:checked]
          
          elsif (type.eql?(:select))
            log(:info, "[HttpUtilities::Http::Mechanize::Client] - Setting select/dropdown #{key} to value: #{value[:value]}.")
            form.field_with(identifier => key.to_s).value             =   value[:value].to_s
          
          elsif (type.eql?(:file_upload))
            log(:info, "[HttpUtilities::Http::Mechanize::Client] - Setting file upload #{key} to value #{value[:value]}.")
            form.file_upload_with(identifier => key.to_s).file_name   =   value[:value].to_s
          end

          return form
        end

        def get_parser(page)
          parser = nil

          if (page.is_a?(::Mechanize::Page))
            parser = page.parser
          elsif (page.is_a?(::Mechanize::File))
            parser = Nokogiri::HTML(page.body, nil, "utf-8")
          end

          return parser
        end

      end

    end
  end
end