server-env-benchmarks.cr

require "http/server"
require "openssl/digest"

server = HTTP::Server.new("127.0.0.1", 4000) do |context|
  context.response.content_type = "text/plain"
  if context.request.path != "/test"
    context.response.print "Nok"
    next
  end
  io = IO::Memory.new
  File.open("/tmp/data") do |f|
    b = Bytes.new(f.size)
    f.read(b)
    io = IO::Memory.new(b, false)
  end
  n = context.request.query_params["n"].to_i
  s = ""
  n.times do |i|
    signer = OpenSSL::Digest.new("sha256")
    io.rewind
    signer << io
    s = signer.hexdigest
  end
  context.response.print s
end

server.listen