gistfile1.rb

# encoding: binary
require 'socket'
require 'zlib'
require 'stringio'

GZIP = false
CHUNKED = true

io = StringIO.new
io.binmode
gzip = Zlib::GzipWriter.new(io)

begin
  server = TCPServer.new('0.0.0.0', 3000)
  c = server.accept
  c.sync = true
  while c.readline != "\r\n"
    # Do nothing
  end
  c.close_read

  c.write("HTTP/1.1 200 OK\r\n")
  c.write("Connection: close\r\n")
  if CHUNKED
    c.write("Transfer-Encoding: chunked\r\n")
  end
  if GZIP
    c.write("Content-Encoding: gzip\r\n")
  end
  c.write("Content-Type: text/html; charset=iso-8859-1\r\n")
  c.write("\r\n")
  20.times do |i|
    data = "#{'x' * 100} #{i}<br>\n"
    
    if GZIP
      gzip.write(data)
      gzip.flush
      str = io.string.force_encoding('binary')
    else
      str = data
    end
    
    c.write("#{str.size.to_s(16)}\r\n#{str}\r\n")
    io.truncate(0)
    io.rewind
    STDIN.readline
  end
  c.write("0\r\n\r\n")
  c.close_write
ensure
  gzip.close
end