require 'uri'
require 'net/http'
require 'rack'
require 'capybara/util/timeout'

module Capybara
  class Server
    class Identify
      def initialize(app)
        @app = app
      end

      def call(env)
        if env["PATH_INFO"] == "/__identify__"
          [200, {}, @app.object_id.to_s]
        else
          @app.call(env)
        end
      end
    end

    class << self
      def ports
        @ports ||= {}
      end
    end

    attr_reader :app, :port

    def initialize(app)
      @app = app
    end

    def host
      "localhost" 
    end

    def url(path)
      if path =~ /^http/
        path
      else
        (Capybara.app_host || "http://#{host}:#{port}") + path.to_s
      end
    end

    def responsive?
      res = Net::HTTP.start(host, @port) { |http| http.get('/__identify__') }

      if res.is_a?(Net::HTTPSuccess) or res.is_a?(Net::HTTPRedirection)
        return res.body == @app.object_id.to_s
      end
    rescue Errno::ECONNREFUSED, Errno::EBADF
      return false
    end

    def handler
      begin
        require 'rack/handler/thin'
        Rack::Handler::Thin
      rescue LoadError
        begin
          require 'rack/handler/mongrel'
          Rack::Handler::Mongrel
        rescue LoadError
          require 'rack/handler/webrick'
          Rack::Handler::WEBrick
        end
      end
    end

    def boot
      if @app
        @port = Capybara::Server.ports[@app.object_id]
          
        if not @port or not responsive?
          @port = find_available_port
          Capybara::Server.ports[@app.object_id] = @port

          Thread.new { handler.run(Identify.new(@app), :Port => @port, :AccessLog => []) }

          Capybara.timeout(10) { if responsive? then true else sleep(0.5) and false end }
        end
      end
    rescue Timeout::Error
      puts "Rack application timed out during boot"
      exit
    else
      self
    end

  private

    def find_available_port
      server = TCPServer.new('127.0.0.1', 0)
      server.addr[1]
    ensure
      server.close if server
    end

  end
end