Mercurial Hosting > luan

annotate src/luan/modules/http/tools/Dump_mod.luan @ 1136:d30d400fd43d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add http/jetty
author Franklin Schmidt <fschmidt@gmail.com>
date Mon, 29 Jan 2018 17:50:49 -0700
parents bae2d0c2576c
children 3bf5190b3c77
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
693
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 507
diff changeset
1 local Luan = require "luan:Luan.luan"
499
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
693
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 507
diff changeset
4 local Io = require "luan:Io.luan"
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 507
diff changeset
5 local Http = require "luan:http/Http.luan"
500
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
6 java()
1136
d30d400fd43d add http/jetty
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
7 local Implementation = require "luan:http/Implementation.luan"
d30d400fd43d add http/jetty
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
8 local HttpServicer = require(Implementation.java.."HttpServicer")
499
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 789
diff changeset
10 local Dump_mod = {}
499
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11
507
40e18d335da9 fix http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents: 500
diff changeset
12 local to_http_header_name = HttpServicer.toHttpHeaderName
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 789
diff changeset
13 Dump_mod.to_http_header_name = to_http_header_name
500
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
14
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 789
diff changeset
15 function Dump_mod.respond()
499
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16 Http.response.header.content_type = "text/plain"
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 Io.stdout = Http.response.text_writer()
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 local method = Http.request.method
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 local path = Http.request.path
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 local query = Http.request.query_string()
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 if method ~= "POST" and query ~= nil then
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23 path = path.."?"..query
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 end
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25 %>
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 <%=method%> <%=path%> <%=Http.request.protocol%>
fa4af530697f add http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
27 <%
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 789
diff changeset
28 Dump_mod.dump_headers(Http.request.headers)
499
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
500
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
38
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
39
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 789
diff changeset
40 function Dump_mod.dump_headers(headers)
500
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
41 for name, values in pairs(headers) do
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
42 local header_name = to_http_header_name(name)
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
43 for _, value in ipairs(values) do
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
44 %>
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
45 <%=header_name%>: <%=value%>
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
46 <%
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
47 end
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
48 end
ab9c2afefb47 add response.binary_writer
Franklin Schmidt <fschmidt@gmail.com>
parents: 499
diff changeset
49 end
507
40e18d335da9 fix http/dump
Franklin Schmidt <fschmidt@gmail.com>
parents: 500
diff changeset
50
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 789
diff changeset
51 return Dump_mod