nitcorn :: HTCPCPAction :: defaultinit
# Nitcorn Action used to answer requests.
class HTCPCPAction
super Action
# Brewing status.
var brewing = false
# Teapot status.
var is_teapot = false
redef fun answer(http_request, turi) do
var message: String
var method = http_request.method
var response: HttpResponse
if is_teapot then
response = new HttpResponse(418)
response.body = "I'm a teapot!\n"
response.header["Content-Type"] = "text"
return response
end
if method == "POST" or method == "BREW" then
if brewing then
message = "Pot Busy"
response = new HttpResponse(400)
else
message = "Brewing a new pot of coffee\n"
brewing = true
response = new HttpResponse(200)
end
else if method == "WHEN" then
if brewing then
message = "Stopped adding milk, your coffee is ready!\n"
brewing = false
response = new HttpResponse(200)
else
message = "There is no coffee brewing!\n"
response = new HttpResponse(405)
end
else if method == "PROPFIND" or method == "GET" then
if brewing then
message = "The pot is busy\n"
else
message = "The pot is ready to brew more coffee\n"
end
response = new HttpResponse(200)
else
message = "Unknown method: {method}"
brewing = false
response = new HttpResponse(405)
end
response.header["Content-Type"] = "text"
response.body = message
return response
end
end
lib/nitcorn/examples/src/htcpcp_server.nit:24,1--82,3