Added response and headers

This commit is contained in:
Sdogruyol 2015-10-30 22:01:18 +02:00
parent ffdaecace4
commit 4ce1bc908f
4 changed files with 44 additions and 5 deletions

View file

@ -33,4 +33,14 @@ describe "Context" do
response = kemal.call(request)
response.body.should eq "Hello kemal"
end
it "sets response headers" do
kemal = Kemal::Handler.new
kemal.add_route "GET", "/" do |env|
env.set_header "Accept-Language", "tr"
end
request = HTTP::Request.new("GET", "/")
response = kemal.call(request)
response.headers["Accept-Language"].should eq "tr"
end
end

View file

@ -2,18 +2,33 @@
# information such as params, content_type e.g
class Kemal::Context
getter request
getter response
getter params
getter content_type
def initialize(@request, @params)
@content_type = "text/html"
@response = Kemal::Response.new
end
def headers
request.headers
@request.headers
end
def response_headers
@response.headers
end
def set_header(name, value)
@response.headers.add name, value
end
def content_type
@response.content_type
end
def set_content_type(content_type)
@content_type = content_type
@response.content_type = content_type
end
delegate status_code, @response
end

View file

@ -26,8 +26,7 @@ class Kemal::Handler < HTTP::Handler
context = Context.new(request, params.not_nil!)
begin
body = route.handler.call(context).to_s
content_type = context.content_type
return HTTP::Response.ok(content_type, body)
return HTTP::Response.new(200, body, context.response_headers)
rescue ex
return HTTP::Response.error("text/plain", ex.to_s)
end

15
src/kemal/response.cr Normal file
View file

@ -0,0 +1,15 @@
class Kemal::Response
property headers
property status_code
property content_type
def initialize
@status_code :: String
@content_type = "text/html"
@headers = HTTP::Headers{"Content-Type": @content_type}
end
def content_type=(content_type)
@headers["Content-Type"] = content_type
end
end