Mercurial Hosting > luan
diff http/src/luan/modules/http/dump.luan @ 507:40e18d335da9
fix http/dump
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Thu, 21 May 2015 17:03:57 -0600 |
parents | ab9c2afefb47 |
children | ca169567ce07 |
line wrap: on
line diff
--- a/http/src/luan/modules/http/dump.luan Thu May 21 12:15:44 2015 -0600 +++ b/http/src/luan/modules/http/dump.luan Thu May 21 17:03:57 2015 -0600 @@ -1,46 +1,1 @@ -local Luan = require "luan:Luan" -local pairs = Luan.pairs -local ipairs = Luan.ipairs -local Io = require "luan:Io" -local Http = require "luan:http/Http" -java() -local HttpServicer = require "java:luan.modules.http.HttpServicer" - - -to_http_header_name = HttpServicer.toHttpHeaderName - -function respond() - Http.response.header.content_type = "text/plain" - Io.stdout = Http.response.text_writer() - - local method = Http.request.method - local path = Http.request.path - local query = Http.request.query_string() - if method ~= "POST" and query ~= nil then - path = path.."?"..query - end -%> -<%=method%> <%=path%> <%=Http.request.protocol%> -<% - dump_headers(Http.request.headers) -%> - -<% - if method == "POST" and query ~= nil then -%> -<%=query%> -<% - end -end - - -function dump_headers(headers) - for name, values in pairs(headers) do - local header_name = to_http_header_name(name) - for _, value in ipairs(values) do -%> -<%=header_name%>: <%=value%> -<% - end - end -end +return require("luan:http/Dump_mod").respond