httphere 1.0.0

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,21 @@
+## MAC OS
+.DS_Store
+
+## TEXTMATE
+*.tmproj
+tmtags
+
+## EMACS
+*~
+\#*
+.\#*
+
+## VIM
+*.swp
+
+## PROJECT::GENERAL
+coverage
+rdoc
+pkg
+
+## PROJECT::SPECIFIC

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 BehindLogic
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,21 @@
+= httphere
+
+httphere is a very small and simple ruby command-line HTTP file server.
+
+= To work on
+
+* Improve content-negotiation behind the scenes. For example, a file found to be "application/x-ruby" could just as well be transferred as "text/plain".
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+== Copyright
+
+Copyright (c) 2010 BehindLogic. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,55 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "httphere"
+    gem.summary = %Q{A simple Ruby HTTP file server}
+    gem.description = %Q{httphere is a very small and simple ruby command-line HTTP file server.}
+    gem.email = "gems@behindlogic.com"
+    gem.homepage = "http://dcparker.github.com/httphere"
+    gem.authors = ["Daniel Parker"]
+    gem.add_dependency 'shared-mime-info'
+    gem.add_dependency 'chardet'
+    gem.post_install_message = "\n\033[34mhttphere wants to detect MIME-types! For this\nyou'll need to install the open-source shared-mime-info.\nAssuming you're on a Mac, you can simply run:\n\033[0m  \033[31msudo port install shared-mime-info\033[0m\n\n * This gem has not been tested on Windows.\n\n"
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/test_*.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "httphere #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+1.0.0

data/bin/httphere

@@ -0,0 +1,624 @@
+#!/usr/bin/env ruby
+
+$VERSION = '0.0.1'
+$DEBUG = false
+
+require 'socket'
+$options = {}
+
+ENV['XDG_DATA_DIRS'] = (ENV['XDG_DATA_DIRS'].to_s.split(/:/) << '/opt/local/share').join(':')
+
+require 'optparse'
+optparse = OptionParser.new do |opts|
+  opts.banner = "Usage: #{$0} [options]"
+
+  $options[:port] = 80
+  opts.on( '-p PORT', '--port PORT', "Run on PORT. Defaults to #{$options[:port]}" ) do |port|
+    $options[:port] = port.to_i
+  end
+
+  # Gets the IP address for the default
+  # $options[:address] = Socket.getaddrinfo(Socket.gethostname, nil, 'AF_INET')[0][2]
+  $options[:address] = '0.0.0.0'
+  opts.on( '-a ADDRESS', '--address ADDRESS', "Listen on ADDRESS ip. Defaults to [#{$options[:address]}]") do |address|
+    $options[:address] = address
+  end
+
+  $options[:https_domain] = $options[:address]
+end
+
+optparse.parse!
+
+require 'socket'
+require 'openssl'
+
+class ::OpenSSL::SSL::SSLSocket
+  alias :read_nonblock :readpartial
+end
+
+class EventMachineMini
+  DEFAULT_SSL_OPTIONS = Hash.new do |h,k|
+    case k
+    when :SSLCertificate
+      h[k] = OpenSSL::X509::Certificate.new(File.read(h[:SSLCertificateFile]))
+    when :SSLPrivateKey
+      h[k] = OpenSSL::PKey::RSA.new(File.read(h[:SSLPrivateKeyFile]))
+    else
+      nil
+    end
+  end
+
+  DEFAULT_SSL_OPTIONS.merge!(
+    :GenerateSSLCert      => false,
+    :ServerSoftware       => "Ruby TCP Router OpenSSL/#{::OpenSSL::OPENSSL_VERSION.split[1]}",
+    :SSLCertName          => [['CN', $options[:https_domain]]],
+    :SSLCertComment       => "Generated by Ruby/OpenSSL",
+    :SSLCertificateFile   => 'cert.pem',
+    :SSLPrivateKeyFile    => 'key.pem',
+    :SSLClientCA          => nil,
+    :SSLExtraChainCert    => nil,
+    :SSLCACertificateFile => 'cacert.pem',
+    :SSLCACertificatePath => nil,
+    :SSLCertificateStore  => nil,
+    :SSLVerifyClient      => ::OpenSSL::SSL::VERIFY_PEER,
+    :SSLVerifyDepth       => 1,
+    :SSLVerifyCallback    => nil,   # custom verification
+    :SSLTimeout           => nil,
+    :SSLOptions           => nil,
+    :SSLStartImmediately  => true
+  )
+
+  class << self
+    def ssl_config(config=DEFAULT_SSL_OPTIONS)
+      @ssl_config ||= config
+    end
+  end
+
+  def running?
+    Thread.current[:status] == :running
+  end
+  def stop!
+    Thread.current[:status] = :stop
+  end
+
+  attr_reader :router
+  def initialize(routes={})
+    @router = {}
+    # Set up the listening sockets
+    (routes[:listen] || {}).each do |ip_port,instantiate_klass|
+      ip, port = ip_port.split(/:/)
+      socket = TCPServer.new(ip, port)
+      socket.setsockopt(Socket::SOL_SOCKET, Socket::SO_REUSEADDR, 1)
+      @router[socket] = instantiate_klass
+      # puts "Listening on #{ip_port} for #{instantiate_klass.name} messages..."
+    end
+    # Set up the listening SSL sockets
+    (routes[:ssl_listen] || {}).each do |ip_port,instantiate_klass|
+      ip, port = ip_port.split(/:/)
+      socket = TCPServer.new(ip, port)
+      socket.setsockopt(Socket::SOL_SOCKET, Socket::SO_REUSEADDR, 1)
+
+      ssl_socket = ::OpenSSL::SSL::SSLServer.new(socket, ssl_context)
+      ssl_socket.start_immediately = self.class.ssl_config[:SSLStartImmediately]
+
+      @router[ssl_socket] = instantiate_klass
+      # puts "Listening on #{ip_port} (SSL) for #{instantiate_klass.name} messages..."
+    end
+    # Set up the connect sockets
+    (routes[:connect] || {}).each do |ip_port,args|
+      args = [args] unless args.is_a?(Array); instantiate_klass = args.shift
+      ip, port = ip_port.split(/:/)
+      socket = TCPSocket.new(ip, port)
+      clients[socket] = instantiate_klass.new(self,socket,*args)
+      # puts "Connecting to #{ip_port} for #{instantiate_klass.name} messages..."
+    end
+  end
+
+  def run
+    Thread.current[:status] = :running
+    # trap("INT") { stop! } # This will end the event loop within 0.5 seconds when you hit Ctrl+C
+    loop do
+      # log "tick #{Thread.current[:status]}\n" if $DEBUG
+
+      # Clean up any closed clients
+      clients.each_key do |sock|
+        if sock.closed?
+          conn = clients.delete(sock)
+          conn.upon_unbind if conn.respond_to?(:upon_unbind)
+          if conn.respond_to?(:key)
+            connections_by_key.delete(conn.key) rescue nil
+          end
+        end
+      end
+      
+      if !running?
+        unless listen_sockets.empty?
+          # puts "Closing all listening ports."
+          shutdown_listeners!
+        end
+        if client_sockets.empty?
+          # It's the next time around after we closed all the client connections.
+          break
+        else
+          # puts "Closing all client connections."
+          close_all_clients!
+        end
+      end
+
+      # puts "Listening to #{listen_sockets.length} sockets: #{listen_sockets.inspect}"
+      begin
+        event = select(listen_sockets + client_sockets,nil,nil,0.5)
+      rescue IOError
+        next
+      end
+      if event.nil? # nil would be a timeout, we'd do nothing and start loop over. Of course here we really have no timeout...
+        @router.values.each { |klass|
+          klass.tick if klass.respond_to?(:tick)
+        }
+      else
+        event[0].each do |sock| # Iterate through all sockets that have pending activity
+          # puts "Event on socket #{sock.inspect}"
+          if listen_sockets.include?(sock) # Received a new connection to a listening socket
+            sock = accept_client(sock)
+            clients[sock].upon_new_connection if clients[sock].respond_to?(:upon_new_connection)
+          else # Activity on a client-connected socket
+            if sock.eof? # Socket's been closed by the client
+              log "Connection #{clients[sock].to_s} was closed by the client.\n"
+              sock.close
+              clients[sock].upon_unbind if clients[sock].respond_to?(:upon_unbind)
+              client = clients[sock]
+              clients.delete(sock)
+            else # Data in from the client
+              catch :stop_reading do
+                # puts "Reading data from socket #{sock.inspect} / #{clients[sock].inspect}"
+                begin
+                  if sock.respond_to?(:read_nonblock)
+                    # puts "read_nonblock"
+                    10.times {
+                      data = sock.read_nonblock(4096)
+                      clients[sock].receive_data(data)
+                    }
+                  else
+                    # puts "sysread"
+                    data = sock.sysread(4096)
+                    clients[sock].receive_data(data)
+                  end
+                rescue Errno::EAGAIN, Errno::EWOULDBLOCK, EOFError => e
+                  # no-op. This will likely happen after every request, but that's expected. It ensures that we're done with the request's data.
+                rescue Errno::ECONNRESET, Errno::ECONNABORTED, Errno::ECONNREFUSED, IOError => e
+                  log "Closed Err: #{e.inspect}\n"
+                  sock.close
+                  clients[sock].upon_unbind if clients[sock].respond_to?(:upon_unbind)
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+
+  def clients
+    @clients ||= {}
+  end
+
+  def connections_by_key
+    @connections_by_key ||= {}
+  end
+
+  def close_all_clients!
+    # puts "Closing #{client_sockets.length} client connections..."
+    client_sockets.each { |socket| socket.close rescue nil }
+  end
+  def shutdown_listeners!
+    # puts "Shutting down #{listen_sockets.length} listeners..."
+    listen_sockets.each { |socket| socket.close rescue nil }
+  end
+
+  private
+    def listen_sockets
+      @router.keys.select {|socket| !socket.closed? }
+    end
+
+    def accept_client(source_socket)
+      client_socket = source_socket.accept
+      connection = @router[source_socket].new(self,client_socket)
+      clients[client_socket] = connection
+    end
+
+    def client_sockets
+      @clients.keys
+    end
+
+    def ssl_context
+      unless @ssl_context
+        @ssl_context = OpenSSL::SSL::SSLContext.new
+        @ssl_context.client_ca         = self.class.ssl_config[:SSLClientCA]
+        @ssl_context.ca_file           = self.class.ssl_config[:SSLCACertificateFile]
+        @ssl_context.ca_path           = self.class.ssl_config[:SSLCACertificatePath]
+        @ssl_context.extra_chain_cert  = self.class.ssl_config[:SSLExtraChainCert]
+        @ssl_context.cert_store        = self.class.ssl_config[:SSLCertificateStore]
+        @ssl_context.verify_mode       = self.class.ssl_config[:SSLVerifyClient]
+        @ssl_context.verify_depth      = self.class.ssl_config[:SSLVerifyDepth]
+        @ssl_context.verify_callback   = self.class.ssl_config[:SSLVerifyCallback]
+        @ssl_context.timeout           = self.class.ssl_config[:SSLTimeout]
+        @ssl_context.options           = self.class.ssl_config[:SSLOptions]
+        if self.class.ssl_config[:GenerateSSLCert]
+          puts "Generating SSL Certificate..."
+          @ssl_context.key = OpenSSL::PKey::RSA.generate(4096)
+          ca = OpenSSL::X509::Name.parse("/C=US/ST=Michigan/O=BehindLogic/CN=behindlogic.com/emailAddress=cert@desktopconnect.com")
+          cert = OpenSSL::X509::Certificate.new
+          cert.version = 2
+          cert.serial = 1
+          cert.subject = ca
+          cert.issuer = ca
+          cert.public_key = @ssl_context.key.public_key
+          cert.not_before = Time.now
+          cert.not_after = Time.now + 3600 # this http session should last no longer than 1 hour
+          @ssl_context.cert = cert
+        else
+          @ssl_context.cert              = self.class.ssl_config[:SSLCertificate]
+          @ssl_context.key               = self.class.ssl_config[:SSLPrivateKey]
+        end
+      end
+      @ssl_context
+    end
+end
+
+require 'base64'
+
+module EventParsers
+
+  # Implement this by including it in a class and call receive_data on every read event.
+  # Callbacks available:
+  #   upon_new_request(request)       # after first HTTP line
+  #   receive_header(request, header) # after each header is received
+  #   upon_headers_finished(request)  # after all headers are received
+  #   process_request(request)        # after the full request is received
+  module Http11Parser
+    module BasicAuth
+      ::UnparsableBasicAuth = Class.new(RuntimeError)
+
+      class << self
+        def parse(basic_auth_string)
+          # Do the special decoding here
+          if basic_auth_string =~ /^Basic (.*)$/
+            auth_string = $1
+            auth_plain = Base64.decode64(auth_string)
+            return auth_plain.split(/:/,2)
+          else
+            warn "Bad Auth string!"
+            raise UnparsableBasicAuth
+          end
+        end
+      end
+
+      def initialize(username, password)
+        @username = username
+        @password = password
+      end
+
+      def to_s
+        # Do the special encoding here
+      end
+    end
+
+    class HeaderAndEntityStateStore
+      attr_accessor :state, :delimiter, :linebuffer, :textbuffer, :entity_size, :entity_pos, :bogus_lines
+
+      def initialize(state, delimiter)
+        @state = state
+        @delimiter = delimiter
+        reset!
+      end
+
+      def reset!
+        @linebuffer = []
+        @textbuffer = []
+        @entity_size = nil
+        @entity_pos = 0
+        @bogus_lines = 0
+      end
+
+      def entity?
+        !entity_size.nil? && entity_size > 0
+      end
+
+  	  def bogus_line!(ln=nil)
+        log "bogus line:\n#{ln}\n" if ln && $DEBUG
+        @bogus_lines += 1
+      end
+    end
+    
+    class Request
+      attr_accessor :connection, :method, :http_version, :resource_uri, :query_params, :headers, :entity, :response
+      def ready!
+        @ready = true
+      end
+      def ready?
+        !!@ready
+      end
+
+      def initialize(request_params={})
+        @http_version = request_params[:http_version] if request_params.has_key? :http_version
+        @resource_uri = request_params[:resource_uri] if request_params.has_key? :resource_uri
+        @headers      = request_params[:headers] if request_params.has_key? :headers
+        @entity       = request_params[:entity] if request_params.has_key? :entity
+
+        @headers ||= {}
+        @entity ||= ''
+      end
+
+      def inspect
+        "HTTP Request:\n\t#{@method} #{@resource_uri} HTTP/#{@http_version}\n\t#{@headers.map {|k,v| "#{k}: #{v}"}.join("\n\t")}\n\n\t#{@entity.to_s.gsub(/\n/,"\n\t")}"
+      end
+
+      def has_entity?
+        @entity != ''
+      end
+
+      def basic_auth
+        BasicAuth.parse(@headers['authorization']) if @headers['authorization']
+      end
+
+      def params
+        query_params
+      end
+    end
+
+    def self.included(base)
+      base.extend ClassMethods
+    end
+    module ClassMethods
+      def request_klass(klass=nil)
+        @request_klass ||= (klass || Request)
+      end
+    end
+
+    attr_reader :socket
+
+    def request_backlog
+      @request_backlog ||= []
+    end
+
+    def current_request
+      request_backlog.first
+    end
+    def parsing_request
+      request_backlog.last
+    end
+
+    HttpResponseRE = /\AHTTP\/(1.[01]) ([\d]{3})/i
+    HttpRequestRE = /^(GET|POST|PUT|DELETE) (\/.*) HTTP\/([\d\.]+)[\r\n]?$/i
+    BlankLineRE = /^[\n\r]+$/
+
+		def receive_data(data)
+			return unless (data and data.length > 0)
+
+      @last_activity = Time.now
+
+      case parser.state
+      when :init
+  			if ix = data.index("\n")
+  				parser.linebuffer << data[0...ix+1]
+  				ln = parser.linebuffer.join
+  				     parser.linebuffer.clear
+          log "[#{parser.state}]: #{ln}" if $DEBUG
+          if ln =~ HttpRequestRE
+            request_backlog << self.class.request_klass.new
+            parsing_request.connection = self
+            method, resource_uri, http_version = parse_init_line(ln)
+            parsing_request.method = method
+            parsing_request.resource_uri = resource_uri
+            parsing_request.query_params = parse_query_string(resource_uri.index('?') ? resource_uri[(resource_uri.index('?')+1)..-1] : '')
+            parsing_request.http_version = http_version
+            upon_new_request(parsing_request) if respond_to?(:upon_new_request)
+            parser.state = :headers
+          else
+    			  parser.bogus_line!(ln)
+          end
+  				receive_data(data[(ix+1)..-1])
+        else
+          parser.linebuffer << data
+        end
+      when :headers
+  			if ix = data.index("\n")
+  				parser.linebuffer << data[0...ix+1]
+  				ln = parser.linebuffer.join
+  				     parser.linebuffer.clear
+          # If it's a blank line, move to content state
+          if ln =~ BlankLineRE
+            upon_headers_finished(parsing_request) if respond_to?(:upon_headers_finished)
+            if parser.entity?
+              # evaluate_headers(parsing_request.headers)
+              parser.state = :entity
+            else
+              receive_full_request
+            end
+          else
+            header = parse_header_line(ln)
+            log "\t[#{parser.state}]: #{header.inspect}\n" if $DEBUG
+            receive_header(parsing_request, header.to_a[0]) if respond_to?(:receive_header)
+            parsing_request.headers.merge!(header)
+          end
+  				receive_data(data[(ix+1)..-1])
+  			else
+  				parser.linebuffer << data
+  			end
+			when :entity
+				if parser.entity_size
+					chars_yet_needed = parser.entity_size - parser.entity_pos
+					taking_this_many = [chars_yet_needed, data.length].sort.first
+					parser.textbuffer << data[0...taking_this_many]
+ 					leftover_data = data[taking_this_many..-1]
+					parser.entity_pos += taking_this_many
+					if parser.entity_pos >= parser.entity_size
+						entity_data = parser.textbuffer.join
+						              parser.textbuffer.clear
+						parsing_request.entity << entity_data
+            log "[#{parser.state}]: #{entity_data}\n" if $DEBUG
+            receive_full_request
+					end
+					receive_data(leftover_data)
+				else
+				  raise "TODO!"
+          # receive_binary_data data
+				end
+        
+		  else
+        # Probably shouldn't ever be here?
+        raise "Shouldn't be here!"
+			end
+
+      # TODO: Exception if number of parser.bogus_lines is higher than threshold
+    end
+
+    def process_request(request)
+      warn "STUB - overwrite process_request in a subclass of Http11Parser to process this #{request.inspect}"
+    end
+
+    def send_response!(http_response)
+      log "Sending Response: #{http_response.inspect}\n" if $DEBUG
+      socket.write(http_response)
+      request_backlog.shift
+      # Process the next request IF it is already waiting.
+      process_request(current_request) if current_request && current_request.ready?
+    end
+
+    private
+      def parse_init_line(ln)
+        method, resource_uri, http_version = ln.match(HttpRequestRE).to_a[1..-1]
+        # TODO: Exception if the request is improper!
+        [method, resource_uri, http_version]
+      end
+
+      def parse_query_string(qstring)
+        params = (CGI.parse(qstring) || {}) rescue {}
+        params.inject({}) do |h,(k,v)|
+          h[k.to_sym] = (v.is_a?(Array) && v.length == 1) ? v[0] : v
+          h
+        end
+      end
+
+      def parse_header_line(ln)
+        ln.chomp!
+        if ln =~ /:/
+    			name,value = ln.split(/:\s*/,2)
+          if name.downcase == 'content-length'
+            parser.entity_size = Integer(value.gsub(/\D/,''))
+            # TODO: Exception if content-length specified is too big
+          end
+    			{name.downcase => value}
+  			else
+  			  parser.bogus_line!(ln)
+  			  {}
+        end
+      end
+
+      def receive_full_request
+        parsing_request.ready!
+        parser.state = :init
+        # Process this request now that we're ready -- IF any previous requests are already responded to.
+        # Otherwise, this request will be waiting, and when the previous one(s) are responded to, this one
+        # will be triggered next.
+        process_request(parsing_request) if parsing_request == current_request
+        log "Processed request. Prepared for next request.\n\n" if $DEBUG
+        parser.reset!
+      end
+
+      def parser
+        @parser ||= HeaderAndEntityStateStore.new(:init, "\n")
+      end
+  end
+end
+
+require 'iconv'
+require 'rubygems'
+require 'UniversalDetector'
+require 'shared-mime-info'
+class FileServer < EventParsers::Http11Parser::Request
+  # This is where the routing is processed.
+  def process
+    # Get the filename desired
+    filename = resource_uri.sub(/^\//,'')
+    if File.exists?(filename) && !File.directory?(filename)
+      content_type = MIME.check(filename).type
+      file_body = File.read(filename)
+      respond!('200 Ok', content_type, file_body)
+    else
+      respond!('400 Not Found', 'text/plain', "Could not find file: '#{resource_uri}'")
+    end
+  end
+
+  def respond!(status, content_type, body)
+    respond(status, content_type, body)
+    connection.halt!
+  end
+  def respond(status, content_type, body)
+    # Convert to UTF-8 if possible
+    chardet = UniversalDetector::chardet(body)
+    if chardet['confidence'] > 0.7
+      charset = chardet['encoding']
+      body = Iconv.conv('utf-8', charset, body)
+    # else # no conversion
+    end
+    body_length = body.length
+
+    # Send the response!
+    connection.send_response! "HTTP/1.1 #{status}\r\nServer: HTTP-Here, version #{$VERSION}\r\nContent-Type: #{content_type}\r\nContent-Length: #{body_length+2}\r\n\r\n#{body}\r\n"
+    span = (Time.now - connection.time).to_f
+    content_type
+    puts (status =~ /200/ ?
+      "Served #{resource_uri} (#{content_type})" :
+      "404 #{resource_uri}"
+    ) + " at #{1 / span} requests/second"
+  end
+end
+
+# Requires that a module includes this and defines an initialize method that defines @options
+class Http11Server
+  include EventParsers::Http11Parser
+  request_klass FileServer
+
+  attr_reader :time
+  def initialize(server,socket)
+    @socket = socket
+    @time = Time.now
+  end
+
+  # These just pass the call to the request to handle itself
+  def upon_new_request(request)
+    request.upon_new_request if request.respond_to?(:upon_new_request)
+  end
+  def upon_headers_finished(request)
+    request.upon_headers_finished if request.respond_to?(:upon_headers_finished)
+  end
+  def process_request(request)
+    request.process
+  end
+
+  def halt!
+    socket.close
+    throw :stop_reading
+  end
+
+  def upon_unbind
+    # puts "Client #{@socket} disconnected."
+  end
+end
+
+# EventMachineMini.ssl_config[:GenerateSSLCert] = true
+
+puts "HTTP Here v#{$VERSION} : listening on #{$options[:address]}:#{$options[:port]}..."
+begin
+  $server = EventMachineMini.new( :listen => {"#{$options[:address]}:#{$options[:port]}" => Http11Server} )
+rescue Errno::EACCES
+  puts "\tLooks like you don't have permission to use that port!"
+  exit
+end
+
+Kernel.trap(:INT) { $server.stop! }
+$server.run
+
+puts " HTTP Here Finished\n"
+exit

data/httphere.gemspec

@@ -0,0 +1,62 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{httphere}
+  s.version = "1.0.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Daniel Parker"]
+  s.date = %q{2010-01-06}
+  s.default_executable = %q{httphere}
+  s.description = %q{httphere is a very small and simple ruby command-line HTTP file server.}
+  s.email = %q{gems@behindlogic.com}
+  s.executables = ["httphere"]
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+     ".gitignore",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "VERSION",
+     "bin/httphere",
+     "httphere.gemspec"
+  ]
+  s.homepage = %q{http://dcparker.github.com/httphere}
+  s.post_install_message = %q{
+httphere wants to detect MIME-types! For this
+you'll need to install the open-source shared-mime-info.
+Assuming you're on a Mac, you can simply run:
+  sudo port install shared-mime-info
+
+ * This gem has not been tested on Windows.
+
+}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{A simple Ruby HTTP file server}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<shared-mime-info>, [">= 0"])
+      s.add_runtime_dependency(%q<chardet>, [">= 0"])
+    else
+      s.add_dependency(%q<shared-mime-info>, [">= 0"])
+      s.add_dependency(%q<chardet>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<shared-mime-info>, [">= 0"])
+    s.add_dependency(%q<chardet>, [">= 0"])
+  end
+end
+

metadata

@@ -0,0 +1,86 @@
+--- !ruby/object:Gem::Specification 
+name: httphere
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+platform: ruby
+authors: 
+- Daniel Parker
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-01-06 00:00:00 -05:00
+default_executable: httphere
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: shared-mime-info
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: chardet
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: httphere is a very small and simple ruby command-line HTTP file server.
+email: gems@behindlogic.com
+executables: 
+- httphere
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- .document
+- .gitignore
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- bin/httphere
+- httphere.gemspec
+has_rdoc: true
+homepage: http://dcparker.github.com/httphere
+licenses: []
+
+post_install_message: "\n\
+  \e[34mhttphere wants to detect MIME-types! For this\n\
+  you'll need to install the open-source shared-mime-info.\n\
+  Assuming you're on a Mac, you can simply run:\n\
+  \e[0m  \e[31msudo port install shared-mime-info\e[0m\n\n * This gem has not been tested on Windows.\n\n"
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: A simple Ruby HTTP file server
+test_files: []
+