module Tinder
  
  # == Usage
  #
  #   campfire = Campfire.new 'mysubdomain'
  #   campfire.login 'myemail@example.com', 'mypassword'
  #   room = campfire.create_room 'New Room', 'My new campfire room to test tinder'
  #   room.speak 'Hello world!'
  #   room.destroy
  class Campfire
    attr_accessor :subdomain, :host

    def initialize(subdomain)
      @cookie = nil
      self.subdomain = subdomain
      self.host = "#{subdomain}.campfirenow.com"
    end
  
    def login(email, password)
      @logged_in = verify_response(post("login", :email_address => email, :password => password), :redirect_to => url_for)
    end
  
    def logged_in?
      @logged_in
    end
  
    def logout
      @logged_in = !verify_response(get("logout"), :redirect)
    end
  
    def create_room(name, topic = nil)
      find_room_by_name(name) if verify_response(post("account/create/room?from=lobby", {:room => {:name => name, :topic => topic}}, :ajax => true), :success)
    end
  
    def find_room_by_name(name)
      link = Hpricot(get.body).search("//h2/a").detect { |a| a.inner_html == name }
      link.blank? ? nil : Room.new(self, link.attributes['href'].scan(/room\/(\d*)$/).to_s, name)
    end

    def users(*room_names)
      users = Hpricot(get.body).search("div.room").collect do |room|
        if room_names.empty? || room_names.include?((room/"h2/a").inner_html)
          room.search("//li.user").collect { |user| user.inner_html }
        end
      end
      users.flatten.compact.uniq.sort
    end

  private

    def url_for(path = "")
      "http://#{host}/#{path}"
    end

    def post(path, data = {}, options = {})
      @request = returning Net::HTTP::Post.new(url_for(path)) do |request|
        prepare_request(request, options)
        request.add_field 'Content-Type', 'application/x-www-form-urlencoded'
        request.set_form_data flatten(data)
      end
      returning @response = Net::HTTP.new(host, 80).start { |http| http.request(@request) } do |response|
        @cookie = response['set-cookie'] if response['set-cookie']
      end
    end
  
    def get(path = nil, options = {})
      @request = returning Net::HTTP::Get.new(url_for(path)) do |request|
        prepare_request(request, options)
      end
      returning @response = Net::HTTP.new(host, 80).start { |http| http.request(@request) } do |response|
        @cookie = response['set-cookie'] if response['set-cookie']
      end
    end
  
    def prepare_request(request, options = {})
      request.add_field 'Cookie', @cookie if @cookie
      if options[:ajax]
        request.add_field 'X-Requested-With', 'XMLHttpRequest'
        request.add_field 'X-Prototype-Version', '1.5.0_rc1'
      end
    end
  
    # flatten a nested hash
    def flatten(params)
      params = params.dup
      params.stringify_keys!.each do |k,v| 
        if v.is_a? Hash
          params.delete(k)
          v.each {|subk,v| params["#{k}[#{subk}]"] = v }
        end
      end
    end

    def verify_response(response, options = {})
      if options.is_a?(Symbol)
        case options
        when :success then [200]
        when :redirect then 300..399
        else raise ArgumentError.new("Unknown response #{options}")
        end.include?(response.code.to_i)
      elsif options[:redirect_to]
        verify_response(response, :redirect) && response['location'] == options[:redirect_to]
      else
        false
      end
    end
  
  end
end