1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
-- Licensed to the Apache Software Foundation (ASF) under one or more
-- contributor license agreements. See the NOTICE file distributed with
-- this work for additional information regarding copyright ownership.
-- The ASF licenses this file to You under the Apache License, Version 2.0
-- (the "License"); you may not use this file except in compliance with
-- the License. You may obtain a copy of the License at
--
-- http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
require 'string'
function print_args(r, simple, complex)
local s = " %s: %s\n"
r:puts(" simple:\n")
for k, v in pairs(simple) do
r:puts(s:format(k, v))
end
s = " %s: "
r:puts(" complex:\n")
for k, ary in pairs(complex) do
r:puts(s:format(k))
for i=1, #ary do
r:puts(ary[i])
if i < #ary then r:puts(", ") end
end
r:puts("\n")
end
end
function debug_stuff(r)
r:debug("This is a debug log message")
-- r:info("This is an info log message")
-- r:notice("This is an notice log message")
-- r:warn("This is an warn log message")
-- r:err("This is an err log message")
-- r:alert("This is an alert log message")
-- r:crit("This is an crit log message")
-- r:emerg("This is an emerg log message")
end
function handle(r)
r:puts("hello Lua world\n")
r:puts("Query args:\n")
print_args(r, r:parseargs());
debug_stuff(r)
r:puts("HTTP Method:\n " .. r.method .. "\n")
if r.method == 'POST' then
print_args(r, r:parsebody())
end
require("other")
r:puts("loaded relative to script:\n ")
other.doit(r)
r:puts("loaded from LuaPackagePath:\n")
require("kangaroo");
kangaroo.hop(r);
end
function handle_foo(r)
r:puts("Handler FOO!\n")
r.status = 201
r:debug("set status to 201")
end
function handle_attributes(r)
local function pf(name)
r:puts(("%s: %s\n"):format(name, tostring(r[name])))
end
pf("status")
r.status = 201
pf("status")
r:puts("\n")
pf("content_type")
r.content_type = "text/plain?charset=ascii"
pf("content_type")
r:puts("\n")
pf("method")
pf("protocol")
pf("assbackwards")
pf("the_request")
pf("range")
pf("content_encoding")
pf("user")
pf("unparsed_uri")
pf("ap_auth_type")
pf("uri")
pf("filename")
pf("canonical_filename")
pf("path_info")
pf("args")
r:puts("\n")
end
function test_headers(r)
r:puts("test getting and setting headers here\n")
end
function handle_quietly(r)
r:puts("hello!")
end
function handle_regex(r)
r:puts("matched in handle_regex")
end
function handle_serverversion(r)
r:puts(apache2.version)
end
function handle_fixupstest(r)
r:puts("status is " .. r.status)
end
|
