annotate http/src/luan/modules/http/dump.luan @ 499:fa4af530697f

add http/dump
author Franklin Schmidt <fschmidt@gmail.com>
date Mon, 18 May 2015 14:24:50 -0600
parents
children ab9c2afefb47
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
499
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan"
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local pairs = Luan.pairs
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 local ipairs = Luan.ipairs
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 local Io = require "luan:Io"
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local Http = require "luan:http/Http"
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8 function respond()
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 Http.response.header.content_type = "text/plain"
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 Io.stdout = Http.response.text_writer()
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 local method = Http.request.method
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 local path = Http.request.path
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14 local query = Http.request.query_string()
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15 if method ~= "POST" and query ~= nil then
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16 path = path.."?"..query
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 end
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18 %>
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
19 <%=method%> <%=path%> <%=Http.request.protocol%>
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 <%
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 for name, values in pairs(Http.request.headers) do
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 local header_name = Http.to_header_name(name)
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23 for _, value in ipairs(values) do
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 %>
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25 <%=header_name%>: <%=value%>
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 <%
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
27 end
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
28 end
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
29 %>
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
30
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
31 <%
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
32 if method == "POST" and query ~= nil then
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
33 %>
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
34 <%=query%>
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
35 <%
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
36 end
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
37 end