Ticket #31: httpserver.rb

require 'eventmachine'
require 'evma_httpserver'
require 'delegate'

class MyHttpResponse < EM::HttpResponse
  extend Forwardable
  def_delegators :@connection, :send_data, :close_connection_after_writing, :close_connection

  def initialize connection
    @connection = connection
    super()
  end
end

class MyHttpServer < EM::Connection
  include EM::HttpServer

  def process_http_request
    response = MyHttpResponse.new(self)
    response.status = 200
    response.content_type 'text/html'
    response.content = '<center><h1>Hi there</h1></center>'
    response.send_response
  end
end

# EM.kqueue
EM.run{
  EM.start_server '0.0.0.0', 8080, MyHttpServer
}